From a69b11884b29aa48f154cb33766eaa17e3991fef Mon Sep 17 00:00:00 2001
From: RedBearAK <64876997+RedBearAK@users.noreply.github.com>
Date: Mon, 18 Apr 2022 01:20:47 -0800
Subject: [PATCH 1/3] Finder Mods for Windows File Explorer file manager

As mentioned in issue #651, this works for me, but if it isn't in the best location in the file just move it or do your own commit and then close this, or let me know if you've merged the code separately so I can close this.

Working shortcuts in this PR to get Windows File Explorer (explorer.exe) to behave more like macOS Finder:
- Get Info (Cmd+i)
- View mode shortcuts (Cmd+1/2/3/4)
- Nav with arrows, including code that stops Explorer opening new windows for Cmd+Down on folders
- Nav with braces (prior/next in history)
- Open in New Window (Cmd+Shift+o)
- Safer delete shortcuts, with error beeps for Backspace or Delete used without Cmd key
- Enter key to rename like Finder (without blocking other usage of Enter key)

Code passes Enter, Backspace and Delete keys when focus is in editable text input fields (and passes Enter key in sidebar for navigation).
---
 windows/kinto.ahk | 54 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 53 insertions(+), 1 deletion(-)

diff --git a/windows/kinto.ahk b/windows/kinto.ahk
index 4680403..208991d 100644
--- a/windows/kinto.ahk
+++ b/windows/kinto.ahk
@@ -214,6 +214,58 @@ GroupAdd, intellij, ahk_exe idea64.exe
 ; +F8::Send {LCtrl down}{LWin down}{left}{LCtrl up}{LWin up}  ; Comment out on host machine
 ; +F6::Send {LCtrl down}{LWin down}{right}{LCtrl up}{LWin up} ; Comment out on host machine
 
+; #########################################################################
+; #############   START OF FINDER MODS FOR FILE MANAGERS   ################
+; #########################################################################
+; Finder Mods for Windows File Explorer (explore.exe)
+; #IfWinActive ahk_exe explorer.exe
+#IfWinActive ahk_class CabinetWClass ahk_exe explorer.exe
+    ^i::Send !{Enter}           ; Cmd+i: Get Info / Properties
+    ^r::Send {F5}               ; Cmd+R: Refresh view (Not actually a Finder shortcut? But works in Linux file browsers too.)
+    ^1::Send ^+2                ; Cmd+1: View as Icons
+    ^2::Send ^+6                ; Cmd+2: View as List (Detailed)
+    ^3::Send ^+5                ; Cmd+3: View as List (Compact)
+    ^4::Send ^+1                ; Cmd+4: View as Gallery
+    ^Up::Send !{Up}             ; Cmd+Up: Up to parent folder
+    ^Left::Send !{Left}         ; Cmd+Left: Go to prior location in history
+    ^Right::Send !{Right}       ; Cmd+Right: Go to next location in history
+    ^[::Send !{Left}            ; Cmd+Left_Brace: Go to prior location in history
+    ^]::Send !{Right}           ; Cmd+Right_Brace: Go to next location in history
+    ^+o::Send ^{Enter}          ; Cmd+Shift+o: Open in new window (tabs not available)
+    ^Delete::Send {Delete}      ; Cmd+Delete: Delete / Send to Trash
+    ^BackSpace::Send {Delete}   ; Cmd+Delete: Delete / Send to Trash
+    ^d::return,                 ; Block the unusual Explorer "delete" shortcut of Ctrl+D, used for "bookmark" elsewhere
+    ^Down:: ; CTRL-DOWN = Navigate into the selected directory
+    For window in ComObjCreate("Shell.Application").Windows
+        If WinActive() = window.hwnd
+            For item in window.document.SelectedItems {
+                window.Navigate(item.Path)
+                Return
+            }
+    Return
+    $Enter:: ; Use Enter key to rename (F2), unless focus is inside a text input field. 
+    ControlGetFocus, fc, A
+    If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1,SysTreeView321
+        Send {Enter}
+    Else Send {F2}
+    Return
+    $BackSpace:: ; Backspace (without Cmd): Block Backspace key with error beep, unless inside text input field
+    ControlGetFocus, fc, A
+    If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1
+        Send {BackSpace}
+    Else SoundBeep,
+    Return
+    $Delete:: ; Delete (without Cmd): Block Delete key with error beep, unless inside text input field
+    ControlGetFocus, fc, A
+    If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1
+        Send {Delete}
+    Else SoundBeep,
+    Return
+#IfWinActive
+; #########################################################################
+; ##############   END OF FINDER MODS FOR FILE MANAGERS   #################
+; #########################################################################
+
 #IfWinNotActive ahk_group remotes
     ; wordwise support
     ^Up::Send ^{Home}
@@ -882,4 +934,4 @@ return
     else
         Send, %UserInput%
     return
-#If
\ No newline at end of file
+#If

From 3d57409b3e62edf2d6e041274718d0fd2a233c9d Mon Sep 17 00:00:00 2001
From: RedBearAK <64876997+RedBearAK@users.noreply.github.com>
Date: Tue, 26 Apr 2022 14:27:52 -0800
Subject: [PATCH 2/3] Update kinto.ahk

Reformatting of comments
---
 windows/kinto.ahk | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/windows/kinto.ahk b/windows/kinto.ahk
index 208991d..5455579 100644
--- a/windows/kinto.ahk
+++ b/windows/kinto.ahk
@@ -218,7 +218,6 @@ GroupAdd, intellij, ahk_exe idea64.exe
 ; #############   START OF FINDER MODS FOR FILE MANAGERS   ################
 ; #########################################################################
 ; Finder Mods for Windows File Explorer (explore.exe)
-; #IfWinActive ahk_exe explorer.exe
 #IfWinActive ahk_class CabinetWClass ahk_exe explorer.exe
     ^i::Send !{Enter}           ; Cmd+i: Get Info / Properties
     ^r::Send {F5}               ; Cmd+R: Refresh view (Not actually a Finder shortcut? But works in Linux file browsers too.)
@@ -229,13 +228,7 @@ GroupAdd, intellij, ahk_exe idea64.exe
     ^Up::Send !{Up}             ; Cmd+Up: Up to parent folder
     ^Left::Send !{Left}         ; Cmd+Left: Go to prior location in history
     ^Right::Send !{Right}       ; Cmd+Right: Go to next location in history
-    ^[::Send !{Left}            ; Cmd+Left_Brace: Go to prior location in history
-    ^]::Send !{Right}           ; Cmd+Right_Brace: Go to next location in history
-    ^+o::Send ^{Enter}          ; Cmd+Shift+o: Open in new window (tabs not available)
-    ^Delete::Send {Delete}      ; Cmd+Delete: Delete / Send to Trash
-    ^BackSpace::Send {Delete}   ; Cmd+Delete: Delete / Send to Trash
-    ^d::return,                 ; Block the unusual Explorer "delete" shortcut of Ctrl+D, used for "bookmark" elsewhere
-    ^Down:: ; CTRL-DOWN = Navigate into the selected directory
+    ^Down::                     ; Cmd-Down: Navigate into the selected directory
     For window in ComObjCreate("Shell.Application").Windows
         If WinActive() = window.hwnd
             For item in window.document.SelectedItems {
@@ -243,19 +236,25 @@ GroupAdd, intellij, ahk_exe idea64.exe
                 Return
             }
     Return
-    $Enter:: ; Use Enter key to rename (F2), unless focus is inside a text input field. 
+    ^[::Send !{Left}            ; Cmd+Left_Brace: Go to prior location in history
+    ^]::Send !{Right}           ; Cmd+Right_Brace: Go to next location in history
+    ^+o::Send ^{Enter}          ; Cmd+Shift+o: Open in new window (tabs not available)
+    ^Delete::Send {Delete}      ; Cmd+Delete: Delete / Send to Trash
+    ^BackSpace::Send {Delete}   ; Cmd+Delete: Delete / Send to Trash
+    ^d::return,                 ; Block the unusual Explorer "delete" shortcut of Ctrl+D, used for "bookmark" in similar apps
+    $Enter:: 			; Use Enter key to rename (F2), unless focus is inside a text input field. 
     ControlGetFocus, fc, A
     If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1,SysTreeView321
         Send {Enter}
     Else Send {F2}
     Return
-    $BackSpace:: ; Backspace (without Cmd): Block Backspace key with error beep, unless inside text input field
+    $BackSpace:: 		; Backspace (without Cmd): Block Backspace key with error beep, unless inside text input field
     ControlGetFocus, fc, A
     If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1
         Send {BackSpace}
     Else SoundBeep,
     Return
-    $Delete:: ; Delete (without Cmd): Block Delete key with error beep, unless inside text input field
+    $Delete:: 			; Delete (without Cmd): Block Delete key with error beep, unless inside text input field
     ControlGetFocus, fc, A
     If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1
         Send {Delete}

From fcb5c75180a9b6f326300eddf7d65d4b2f2550c6 Mon Sep 17 00:00:00 2001
From: RedBearAK <64876997+RedBearAK@users.noreply.github.com>
Date: Tue, 26 Apr 2022 14:39:53 -0800
Subject: [PATCH 3/3] Change SoundBeep tuning.

---
 windows/kinto.ahk | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/windows/kinto.ahk b/windows/kinto.ahk
index 5455579..234f6ea 100644
--- a/windows/kinto.ahk
+++ b/windows/kinto.ahk
@@ -252,13 +252,13 @@ GroupAdd, intellij, ahk_exe idea64.exe
     ControlGetFocus, fc, A
     If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1
         Send {BackSpace}
-    Else SoundBeep,
+    Else SoundBeep, 600, 300
     Return
     $Delete:: 			; Delete (without Cmd): Block Delete key with error beep, unless inside text input field
     ControlGetFocus, fc, A
     If fc contains Edit,Search,Notify,Windows.UI.Core.CoreWindow1
         Send {Delete}
-    Else SoundBeep,
+    Else SoundBeep, 600, 300
     Return
 #IfWinActive
 ; #########################################################################