jondcoleman · January 23, 2020 12:06 · Aug 30, 2018 · Aug 20, 2018 · Aug 20, 2018 · Jan 8, 2015
diff --git a/AdvancedWindowSnap.ahk b/AdvancedWindowSnap.ahk
@@ -2,7 +2,8 @@
  * Advanced Window Snap
  * Snaps the Active Window to one of nine different window positions.
  *
- * @author Andrew Moore <[email protected]>
+ * @author Jonathan Coleman
+ * @originalAuthor Andrew Moore <[email protected]>
  * @version 1.0
  */
 
@@ -25,22 +26,21 @@ HasVal(haystack, needle) {
     if !(IsObject(haystack)) || (haystack.Length() = 0)
 		return 0
 	for index, value in haystack
-        MsgBox %needle% %value%
 		if (value = needle)
 			return 1
 	return 0
 }
 
 SnapActiveWindow(winPlaceVertical, winPlaceHorizontal, winSizeHeight) {
 
-    ProcessesToExclude := ["OUTLOOK.EXE"]
-    pixelAdjustment := exclude = 1 ? 0 : 7  ; to account for 
-
+    ProcessesToExclude := ["OUTLOOK.EXE", "slack.exe"]
     WinGet activeWin, ID, A
     WinGet activeWinProcess, ProcessName, A
 
     activeMon := GetMonitorIndexFromWindow(activeWin)
     exclude := HasVal(ProcessesToExclude, activeWinProcess)
+    ; MsgBox, %activeWinProcess% %exclude%
+    pixelAdjustment := exclude = 1 ? 0 : 7  ; to account for 
 
     SysGet, MonitorWorkArea, MonitorWorkArea, %activeMon%
 

diff --git a/AdvancedWindowSnap.ahk b/AdvancedWindowSnap.ahk
@@ -18,14 +18,34 @@
  *                                    the active monitor's height. Expecting "half" size,
  *                                    otherwise will resize window to a "third".
  */
+
+; Note pixelAdjustment which was added because the resize resulted in not taking up all of the space.
+
+HasVal(haystack, needle) {
+    if !(IsObject(haystack)) || (haystack.Length() = 0)
+		return 0
+	for index, value in haystack
+        MsgBox %needle% %value%
+		if (value = needle)
+			return 1
+	return 0
+}
+
 SnapActiveWindow(winPlaceVertical, winPlaceHorizontal, winSizeHeight) {
+
+    ProcessesToExclude := ["OUTLOOK.EXE"]
+    pixelAdjustment := exclude = 1 ? 0 : 7  ; to account for 
+
     WinGet activeWin, ID, A
+    WinGet activeWinProcess, ProcessName, A
+
     activeMon := GetMonitorIndexFromWindow(activeWin)
-    pixelAdjustment := 14 ; not sure why this is needed but it is for my pc JDC
+    exclude := HasVal(ProcessesToExclude, activeWinProcess)
 
     SysGet, MonitorWorkArea, MonitorWorkArea, %activeMon%
+
     if (winSizeHeight == "half") {
-        height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/2 + pixelAdjustment/2
+        height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/2 + pixelAdjustment
     } else {
         height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/3
     }
@@ -37,11 +57,11 @@ SnapActiveWindow(winPlaceVertical, winPlaceHorizontal, winSizeHeight) {
         posX  := MonitorWorkAreaLeft + (MonitorWorkAreaRight - MonitorWorkAreaLeft)/2
         width := (MonitorWorkAreaRight - MonitorWorkAreaLeft)/2
     } else {
-        posX  := MonitorWorkAreaLeft - pixelAdjustment/2
-        width := MonitorWorkAreaRight - MonitorWorkAreaLeft + pixelAdjustment
+        posX  := MonitorWorkAreaLeft - pixelAdjustment
+        width := MonitorWorkAreaRight - MonitorWorkAreaLeft + pixelAdjustment*2
     }
     if (winPlaceVertical == "bottom") {
-        posY := MonitorWorkAreaBottom - height + pixelAdjustment/2
+        posY := MonitorWorkAreaBottom - height + pixelAdjustment
     } else if (winPlaceVertical == "middle") {
         posY := MonitorWorkAreaTop + height
     } else {

diff --git a/AdvancedWindowSnap.ahk b/AdvancedWindowSnap.ahk
@@ -21,11 +21,11 @@
 SnapActiveWindow(winPlaceVertical, winPlaceHorizontal, winSizeHeight) {
     WinGet activeWin, ID, A
     activeMon := GetMonitorIndexFromWindow(activeWin)
+    pixelAdjustment := 14 ; not sure why this is needed but it is for my pc JDC
 
     SysGet, MonitorWorkArea, MonitorWorkArea, %activeMon%
-
     if (winSizeHeight == "half") {
-        height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/2
+        height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/2 + pixelAdjustment/2
     } else {
         height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/3
     }
@@ -37,12 +37,11 @@ SnapActiveWindow(winPlaceVertical, winPlaceHorizontal, winSizeHeight) {
         posX  := MonitorWorkAreaLeft + (MonitorWorkAreaRight - MonitorWorkAreaLeft)/2
         width := (MonitorWorkAreaRight - MonitorWorkAreaLeft)/2
     } else {
-        posX  := MonitorWorkAreaLeft
-        width := MonitorWorkAreaRight - MonitorWorkAreaLeft
+        posX  := MonitorWorkAreaLeft - pixelAdjustment/2
+        width := MonitorWorkAreaRight - MonitorWorkAreaLeft + pixelAdjustment
     }
-
     if (winPlaceVertical == "bottom") {
-        posY := MonitorWorkAreaBottom - height
+        posY := MonitorWorkAreaBottom - height + pixelAdjustment/2
     } else if (winPlaceVertical == "middle") {
         posY := MonitorWorkAreaTop + height
     } else {

diff --git a/README.md b/README.md
@@ -5,7 +5,7 @@ Advanced Window Snap is a script for [AutoHotKey] that expands upon Windows buil
 ## Installation Steps
 
 1. Install [AutoHotKey]
-2. Copy or Download the **AdvancedWindowSnap.ahk** ([Raw][raw1] | [Gist][gist1]) file to your computer and double click it to run it.
+2. Copy or Download the **AdvancedWindowSnap.ahk** file to your computer and double click it to run it.
 3. (Optional) To have the program run when you start up your computer, place the .ahk file into your computer's [startup] folder. 
     * The Windows 7 Startup Folder can be accessed by mousing to **Start** > **All Programs**, then right-clicking on **Startup** and selecting "**Open**".
     * The Windows 8 Startup Folder can be accessed by tapping <kbd>Win</kbd> + <kbd>R</kbd> on your keyboard, then in the Open: field, type `shell:startup` then press <kbd>Enter</kbd>.
@@ -47,13 +47,11 @@ Hotkey | Behavior
     - Initial Version
 
 ## Recommendation For Editing AHK Files
-If you plan on working with AutoHotKey files, consider using [Sublime Text 3]. Read my steps for setting up Sublime Text 3 to edit AutoHotKey files here: [Sublime Text & Editing AutoHotKey Files]
+If you plan on working with AutoHotKey files, consider using [Sublime Text 3]. Read my steps for setting up Sublime Text 3 to edit AutoHotKey files here: [Working with AutoHotKey in Sublime Text].
 
 [AutoHotKey]:http://ahkscript.org/
 [startup]:http://www.autohotkey.com/docs/FAQ.htm#Startup]
 [Sublime Text 3]:http://www.sublimetext.com/3
 [Package Control]:https://packagecontrol.io/installation
 [AutoHotKey Package]:https://packagecontrol.io/packages/AutoHotkey
-[Sublime Text & Editing AutoHotKey Files]:https://github.com/AWMooreCO/AutoHotkey-Scripts/blob/master/README.md
-[raw1]:https://raw.githubusercontent.com/AWMooreCO/AutoHotkey-Scripts/master/AdvancedWindowSnap/AdvancedWindowSnap.ahk
-[gist1]:https://gist.github.com/AWMooreCO/1ef708055a11862ca9dc
+[Working with AutoHotKey in Sublime Text]:https://gist.github.com/AWMooreCO/d0308bab265cc8c5e122
diff --git a/AdvancedWindowSnap.ahk b/AdvancedWindowSnap.ahk
@@ -62,7 +62,7 @@ GetMonitorIndexFromWindow(windowHandle) {
     ; Starts with 1.
     monitorIndex := 1
 
-    VarSetCapacity(monitorInfo, 40)♣
+    VarSetCapacity(monitorInfo, 40)
     NumPut(40, monitorInfo)
 
     if (monitorHandle := DllCall("MonitorFromWindow", "uint", windowHandle, "uint", 0x2))

diff --git a/README.md b/README.md
@@ -0,0 +1,59 @@
+# Advanced Window Snap
+
+Advanced Window Snap is a script for [AutoHotKey] that expands upon Windows built-in window-snapping hotkeys (which are <kbd>Win</kbd> + <kbd>LEFT</kbd> to snap an active window to the left half of a monitor and <kbd>Win</kbd> + <kbd>RIGHT</kbd> to snap a window to the right half of a monitor) by adding 9 additional snap methods.
+
+## Installation Steps
+
+1. Install [AutoHotKey]
+2. Copy or Download the **AdvancedWindowSnap.ahk** ([Raw][raw1] | [Gist][gist1]) file to your computer and double click it to run it.
+3. (Optional) To have the program run when you start up your computer, place the .ahk file into your computer's [startup] folder. 
+    * The Windows 7 Startup Folder can be accessed by mousing to **Start** > **All Programs**, then right-clicking on **Startup** and selecting "**Open**".
+    * The Windows 8 Startup Folder can be accessed by tapping <kbd>Win</kbd> + <kbd>R</kbd> on your keyboard, then in the Open: field, type `shell:startup` then press <kbd>Enter</kbd>.
+
+## Advanced Window Snap Keybindings
+
+### Directional Arrow Hotkeys:
+Hotkey | Behavior
+------ | --------
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>UP</kbd> | Window will snap to the top **half** of the screen.
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>DOWN</kbd> | Window will snap to the bottom **half** of the screen.
+<kbd>Ctrl</kbd> + <kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>UP</kbd> | Window will snap to the top **third** of the screen.
+<kbd>Ctrl</kbd> + <kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>DOWN</kbd> | Window will snap to the bottom **third** of the screen.
+
+### Numberpad Hotkeys (Landscape):
+These will work only if you have NumLock turned **ON**. These are ideal for Landscape Monitors.
+
+Hotkey | Behavior
+------ | --------
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 7</kbd> | Window will snap to the top-left **quarter** of the screen.
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 8</kbd> | Window will snap to the top **half** of the screen.
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 9</kbd> | Window will snap to the top-right **quarter** of the screen.
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 1</kbd> | Window will snap to the bottom-left **quarter** of the screen.
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 2</kbd> | Window will snap to the bottom **half** of the screen.
+<kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 3</kbd> | Window will snap to the bottom-right **quarter** of the screen.
+
+### Numberpad Hotkeys (Portrait):
+These will work only if you have NumLock turned **ON**. These are ideal for Portrait Monitors.
+
+Hotkey | Behavior
+------ | --------
+<kbd>Ctrl</kbd> + <kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 8</kbd> | Window will snap to the top **third** of the screen.
+<kbd>Ctrl</kbd> + <kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 5</kbd> | Window will snap to the middle **third** of the screen.
+<kbd>Ctrl</kbd> + <kbd>Win</kbd> + <kbd>Alt</kbd> + <kbd>Numpad 2</kbd> | Window will snap to the bottom **third** of the screen
+
+## Changelog
+
+- **v1.00**, *08 Jan 2015*
+    - Initial Version
+
+## Recommendation For Editing AHK Files
+If you plan on working with AutoHotKey files, consider using [Sublime Text 3]. Read my steps for setting up Sublime Text 3 to edit AutoHotKey files here: [Sublime Text & Editing AutoHotKey Files]
+
+[AutoHotKey]:http://ahkscript.org/
+[startup]:http://www.autohotkey.com/docs/FAQ.htm#Startup]
+[Sublime Text 3]:http://www.sublimetext.com/3
+[Package Control]:https://packagecontrol.io/installation
+[AutoHotKey Package]:https://packagecontrol.io/packages/AutoHotkey
+[Sublime Text & Editing AutoHotKey Files]:https://github.com/AWMooreCO/AutoHotkey-Scripts/blob/master/README.md
+[raw1]:https://raw.githubusercontent.com/AWMooreCO/AutoHotkey-Scripts/master/AdvancedWindowSnap/AdvancedWindowSnap.ahk
+[gist1]:https://gist.github.com/AWMooreCO/1ef708055a11862ca9dc
diff --git a/AdvancedWindowSnap.ahk b/AdvancedWindowSnap.ahk
@@ -0,0 +1,114 @@
+/**
+ * Advanced Window Snap
+ * Snaps the Active Window to one of nine different window positions.
+ *
+ * @author Andrew Moore <[email protected]>
+ * @version 1.0
+ */
+
+/**
+ * SnapActiveWindow resizes and moves (snaps) the active window to a given position.
+ * @param {string} winPlaceVertical   The vertical placement of the active window.
+ *                                    Expecting "bottom" or "middle", otherwise assumes
+ *                                    "top" placement.
+ * @param {string} winPlaceHorizontal The horizontal placement of the active window.
+ *                                    Expecting "left" or "right", otherwise assumes
+ *                                    window should span the "full" width of the monitor.
+ * @param {string} winSizeHeight      The height of the active window in relation to
+ *                                    the active monitor's height. Expecting "half" size,
+ *                                    otherwise will resize window to a "third".
+ */
+SnapActiveWindow(winPlaceVertical, winPlaceHorizontal, winSizeHeight) {
+    WinGet activeWin, ID, A
+    activeMon := GetMonitorIndexFromWindow(activeWin)
+
+    SysGet, MonitorWorkArea, MonitorWorkArea, %activeMon%
+
+    if (winSizeHeight == "half") {
+        height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/2
+    } else {
+        height := (MonitorWorkAreaBottom - MonitorWorkAreaTop)/3
+    }
+
+    if (winPlaceHorizontal == "left") {
+        posX  := MonitorWorkAreaLeft
+        width := (MonitorWorkAreaRight - MonitorWorkAreaLeft)/2
+    } else if (winPlaceHorizontal == "right") {
+        posX  := MonitorWorkAreaLeft + (MonitorWorkAreaRight - MonitorWorkAreaLeft)/2
+        width := (MonitorWorkAreaRight - MonitorWorkAreaLeft)/2
+    } else {
+        posX  := MonitorWorkAreaLeft
+        width := MonitorWorkAreaRight - MonitorWorkAreaLeft
+    }
+
+    if (winPlaceVertical == "bottom") {
+        posY := MonitorWorkAreaBottom - height
+    } else if (winPlaceVertical == "middle") {
+        posY := MonitorWorkAreaTop + height
+    } else {
+        posY := MonitorWorkAreaTop
+    }
+
+    WinMove,A,,%posX%,%posY%,%width%,%height%
+}
+
+/**
+ * GetMonitorIndexFromWindow retrieves the HWND (unique ID) of a given window.
+ * @param {Uint} windowHandle
+ * @author shinywong
+ * @link http://www.autohotkey.com/board/topic/69464-how-to-determine-a-window-is-in-which-monitor/?p=440355
+ */
+GetMonitorIndexFromWindow(windowHandle) {
+    ; Starts with 1.
+    monitorIndex := 1
+
+    VarSetCapacity(monitorInfo, 40)♣
+    NumPut(40, monitorInfo)
+
+    if (monitorHandle := DllCall("MonitorFromWindow", "uint", windowHandle, "uint", 0x2))
+        && DllCall("GetMonitorInfo", "uint", monitorHandle, "uint", &monitorInfo) {
+        monitorLeft   := NumGet(monitorInfo,  4, "Int")
+        monitorTop    := NumGet(monitorInfo,  8, "Int")
+        monitorRight  := NumGet(monitorInfo, 12, "Int")
+        monitorBottom := NumGet(monitorInfo, 16, "Int")
+        workLeft      := NumGet(monitorInfo, 20, "Int")
+        workTop       := NumGet(monitorInfo, 24, "Int")
+        workRight     := NumGet(monitorInfo, 28, "Int")
+        workBottom    := NumGet(monitorInfo, 32, "Int")
+        isPrimary     := NumGet(monitorInfo, 36, "Int") & 1
+
+        SysGet, monitorCount, MonitorCount
+
+        Loop, %monitorCount% {
+            SysGet, tempMon, Monitor, %A_Index%
+
+            ; Compare location to determine the monitor index.
+            if ((monitorLeft = tempMonLeft) and (monitorTop = tempMonTop)
+                and (monitorRight = tempMonRight) and (monitorBottom = tempMonBottom)) {
+                monitorIndex := A_Index
+                break
+            }
+        }
+    }
+
+    return %monitorIndex%
+}
+
+; Directional Arrow Hotkeys
+#!Up::SnapActiveWindow("top","full","half")
+#!Down::SnapActiveWindow("bottom","full","half")
+^#!Up::SnapActiveWindow("top","full","third")
+^#!Down::SnapActiveWindow("bottom","full","third")
+
+; Numberpad Hotkeys (Landscape)
+#!Numpad7::SnapActiveWindow("top","left","half")
+#!Numpad8::SnapActiveWindow("top","full","half")
+#!Numpad9::SnapActiveWindow("top","right","half")
+#!Numpad1::SnapActiveWindow("bottom","left","half")
+#!Numpad2::SnapActiveWindow("bottom","full","half")
+#!Numpad3::SnapActiveWindow("bottom","right","half")
+
+; Numberpad Hotkeys (Portrait)
+^#!Numpad8::SnapActiveWindow("top","full","third")
+^#!Numpad5::SnapActiveWindow("middle","full","third")
+^#!Numpad2::SnapActiveWindow("bottom","full","third")
No results found