From e831a7416ba2dd1f342e710c6048c8fa97291d93 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Tue, 1 Dec 2020 23:18:35 +0100
Subject: Switch to Windows 7

---
 tt.programs.explorer.ahk | 59 +++++++++++++-----------------------------------
 1 file changed, 16 insertions(+), 43 deletions(-)

(limited to 'tt.programs.explorer.ahk')

diff --git a/tt.programs.explorer.ahk b/tt.programs.explorer.ahk
index 0d31034..db07380 100644
--- a/tt.programs.explorer.ahk
+++ b/tt.programs.explorer.ahk
@@ -50,12 +50,7 @@ WinWait, ahk_class ConsoleWindowClass
 SendInput, % "cd " path "{Return}"
 return
 
-; Create new folder/file
-
-^+n::
-FileCreateDir, % ExplorerPath() "\New Folder"
-SendInput, {F5}New Folder{F2}
-return
+; Create new file
 
 ^!n::
 FileAppend,, % ExplorerPath() "\New Text Document.txt"
@@ -129,35 +124,24 @@ Loop, % win
 	PostMessage, 0x111, 41504,,, % "ahk_id " win%A_Index% ; refresh
 return
 
-; Sort and display options
-
-^q::ExplorerFolderView("name")
-^w::ExplorerFolderView("modified")
-^e::ExplorerFolderView("type")
-^t::ExplorerFolderView("created")
-^g::ExplorerFolderView("groups")
-^s::ExplorerFolderView("tiles")
-^d::ExplorerFolderView("icons")
-^+d::ExplorerFolderView("thumbnails")
-^f::ExplorerFolderView("details")
-^+f::ExplorerFolderView("list")
-
-^!q::ExplorerFolderView("name", true)
-^!w::ExplorerFolderView("modified", true)
-^!e::ExplorerFolderView("type", true)
-^!t::ExplorerFolderView("created", true)
-^!g::ExplorerFolderView("groups", true)
-^!s::ExplorerFolderView("tiles", true)
-^!d::ExplorerFolderView("icons", true)
-^!+d::ExplorerFolderView("thumbnails", true)
-^!f::ExplorerFolderView("details", true)
-^!+f::ExplorerFolderView("list", true)
+; Sort and display options (Windows XP)
+
+;^q::ExplorerFolderView("name")
+;^w::ExplorerFolderView("modified")
+;^e::ExplorerFolderView("type")
+;^t::ExplorerFolderView("created")
+;^g::ExplorerFolderView("groups")
+;^s::ExplorerFolderView("tiles")
+;^d::ExplorerFolderView("icons")
+;^+d::ExplorerFolderView("thumbnails")
+;^f::ExplorerFolderView("details")
+;^+f::ExplorerFolderView("list")
 
 #IfWinActive
 
 ;; -> library
 
-ExplorerFolderView(view, children := false)
+ExplorerFolderView(view)
 {
 	if (view = "name")
 		n := {m: 30210, d: -1}
@@ -180,20 +164,8 @@ ExplorerFolderView(view, children := false)
 	else if (view = "list")
 		n := {m: 28715, d: 3}
 	
-	PostMessage, 0x111, % n.m, 0,, A ; change current folder
+	PostMessage, 0x111, % n.m, 0,, A
 	return
-	if (not children or m.d = -1)
-		return
-	
-	old := A_BatchLines
-	SetBatchLines, -1
-	
-	Loop, Files, % ExplorerPath() "\*", D
-	{
-		MsgBox, % A_LoopFileFullPath
-	}
-	
-	SetBatchLines, % old
 }
 
 ;; Git hotkeys ----------------------------------------------------------------
@@ -231,6 +203,7 @@ basename(s)
 !c::Run, % "cmd /c cd "qp()" & git commit & pause"
 !+c::Run, % "cmd /c cd "qp()" & git commit --amend & pause"
 !^c::Run, % "cmd /c cd "qp()" & git commit -a & pause"
+!^+c::Run, % "cmd /c cd "qp()" & git commit -a --amend & pause"
 !p::Run, % "cmd /c cd "qp()" & git push & pause"
 !s::Run, % "cmd /c cd "qp()" & git status & pause"
 
-- 
cgit v1.2.3