From 7299890afe56a613927057d9b928309edb4b4404 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sat, 26 Dec 2020 15:40:33 +0100
Subject: explorer: Add copy file path hotkey

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

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

diff --git a/tt.programs.explorer.ahk b/tt.programs.explorer.ahk
index 3deb9d6..3bebd6d 100644
--- a/tt.programs.explorer.ahk
+++ b/tt.programs.explorer.ahk
@@ -104,6 +104,22 @@ if (GetKeyState("Shift"))
 else
 	ShellApp.ShellExecute(i.path, "", "", "Edit", 1)
 return
+
+; Copy file path
+
+^+c::
+e := Explorer()
+r := ""
+items := e.Document.SelectedItems
+if (items.Count() > 1)
+	for item in items
+		r .= """" item.path """ "
+else
+	for item in items
+		r := item.path
+if (r = "")
+	r := e.Document.Folder.Self.path
+clipboard := r
 return
 
 ; Directory navigation
-- 
cgit v1.2.3