From 1f460f7ebc10c2f8bb66ae684498f49187eab9bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 23 Oct 2020 01:44:02 +0200
Subject: first commit

---
 tt.jump.ahk | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 tt.jump.ahk

(limited to 'tt.jump.ahk')

diff --git a/tt.jump.ahk b/tt.jump.ahk
new file mode 100644
index 0000000..4ad0d40
--- /dev/null
+++ b/tt.jump.ahk
@@ -0,0 +1,48 @@
+;; -> init
+
+JumpPaths := { s: env("Sync")
+             , w: env("Sync") "\Projekt\john.ankarstrom.se\htdocs"
+             , e: env("Personal")
+             , d: env("Personal") "\Downloads"
+             , b: "C:\Program Files\KM-Goanna\k-meleon.exe"
+             , m: "C:\Program Files\Mozilla Thunderbird\thunderbird.exe" }
+
+;; -> body
+
+; Open in new Explorer window
+
+#s::
+ToolTip, ...
+SendInput, {Blind}{LWin Up}
+Input, k, L1
+if (JumpPaths[k] != "")
+{
+  if (InStr(FileExist(JumpPaths[k]), "D"))
+    Run, % "explorer /n, """ JumpPaths[k] """"
+  else
+    Run, % """" JumpPaths[k] """"
+}
+ToolTip
+return
+
+; Open in current (or new) Explorer window
+
+!#s::
+ToolTip, ...
+SendInput, {Blind}{LWin Up}
+Input, k, L1  
+if (JumpPaths[k] != "")
+  if ((e := Explorer()) != -1) ; (see tt.programs.explorer.ahk)
+    e.Navigate(JumpPaths[k])
+  else
+    Run, % "explorer """ JumpPaths[k] """"
+ToolTip
+return
+
+;; -> library
+
+env(name)
+{
+  EnvGet, r, %name%
+  return r
+}
-- 
cgit v1.2.3