explorer: Fix and improve new text file hotkey

1 files changed, 16 insertions, 2 deletions

diff --git a/tt.programs.explorer.ahk b/tt.programs.explorer.ahk
index 20296c3..3deb9d6 100644
--- a/tt.programs.explorer.ahk
+++ b/tt.programs.explorer.ahk
@@ -57,8 +57,22 @@ return
 ; Create new file
 
 ^!n::
-FileAppend,, % ExplorerPath() "\New Text Document.txt"
-SendInput, {F5}New Text Document.txt{F2}
+path := ExplorerPath() "\"
+pre := "Nytt textdokument"
+post := ".txt"
+if (FileExist(path pre post))
+{
+	n := 2
+	while (FileExist(path pre " (" n ")" post))
+		n += 1
+	name := pre " (" n ")" post
+}
+else
+	name := pre post
+FileAppend,, % name
+SendInput, {Esc}{F5}
+Sleep, 80
+SendInput, % name "{F2}"
 return
 
 ;; Explorer hotkeys -----------------------------------------------------------