Merge pull request #66 from sdias/change-desktop-names

Added a function to change desktop names at runtime as proposed by @achim-t in #60.

The names are reset to the default values contained in `settings.ini` when the program is restarted.

Default hotkey for this feature is `Win + F2`.

This closes #60.

docs/settings.md

@@ -163,6 +163,7 @@ The following actions are not executed in the context of a virtual desktop and t
 - Unpin the currently visible app
 - Toggle pin on the currently visible window
 - Toggle pin on the currently visible app
+- Change the current desktop name
 
 For each of these actions, you can set a combination of zero or more modifiers (as before), as well as a regular key.
 For example: if you want to set up a keyboard shortcut to be able to pin the current window, you just need to set up that combination (for example, `Win, Ctrl, Q`).
@@ -228,6 +229,7 @@ _Combination_ keys' settings follow the same rules as [modifier keys' settings](
 | PinApp                       | Pin all of the windows of the currently opened app.           |
 | UnpinWindow                  | Unpin the current window.                                     |
 | UnpinApp                     | Unpin all of the windows of the currently opened app.         |
+| ChangeDesktopName            | Change the name of the current desktop with a popup prompt.   |
 
 ### Example configurations
 
@@ -257,6 +259,7 @@ UnpinWindow=
 UnpinApp=
 ; "SC029" is the key below your "Esc" key
 OpenDesktopManager=LAlt, SC029
+ChangeDesktopName=Win, F2
 ```
 
 The following shortcuts are available:

settings.ini

@@ -28,6 +28,7 @@ UnpinWindow=
 UnpinApp=
 ; "SC029" is the key below your "Esc" key
 OpenDesktopManager=LAlt, SC029
+ChangeDesktopName=Win, F2
 
 [KeyboardShortcutsModifiers]
 SwitchDesktop=Win, Ctrl

virtual-desktop-enhancer.ahk

@@ -77,6 +77,9 @@ global previousDesktopNo=0
 global doFocusAfterNextSwitch=0
 global hasSwitchedDesktopsBefore=1
 
+global changeDesktopNamesPopupTitle := "Windows 10 Virtual Desktop Enhancer"
+global changeDesktopNamesPopupText :=  "Change the desktop name of desktop #{:d}"
+
 initialDesktopNo := _GetCurrentDesktopNumber()
 
 SwitchToDesktop(GeneralDefaultDesktop)
@@ -104,6 +107,7 @@ hkComboPinApp              := KeyboardShortcutsCombinationsPinApp
 hkComboUnpinApp            := KeyboardShortcutsCombinationsUnpinApp
 hkComboTogglePinApp        := KeyboardShortcutsCombinationsTogglePinApp
 hkComboOpenDesktopManager  := KeyboardShortcutsCombinationsOpenDesktopManager
+hkComboChangeDesktopName     := KeyboardShortcutsCombinationsChangeDesktopName
 
 arrayS := Object(),                     arrayR := Object()
 arrayS.Insert("\s*|,"),                 arrayR.Insert("")
@@ -126,6 +130,7 @@ for index in arrayS {
     hkComboUnpinApp           := RegExReplace(hkComboUnpinApp, arrayS[index], arrayR[index])
     hkComboTogglePinApp       := RegExReplace(hkComboTogglePinApp, arrayS[index], arrayR[index])
     hkComboOpenDesktopManager := RegExReplace(hkComboOpenDesktopManager, arrayS[index], arrayR[index])
+    hkComboChangeDesktopName    := RegExReplace(hkComboChangeDesktopName, arrayS[index], arrayR[index])    
 }
 
 ; Setup key bindings dynamically
@@ -192,6 +197,8 @@ setUpHotkeyWithCombo(hkComboTogglePinApp, "OnTogglePinAppPress", "[KeyboardShort
 
 setUpHotkeyWithCombo(hkComboOpenDesktopManager, "OpenDesktopManager", "[KeyboardShortcutsCombinations] OpenDesktopManager")
 
+setUpHotkeyWithCombo(hkComboChangeDesktopName, "ChangeDesktopName", "[KeyboardShortcutsCombinations] ChangeDesktopName")
+
 if (GeneralTaskbarScrollSwitching) {
     Hotkey, ~WheelUp, OnTaskbarScrollUp
     Hotkey, ~WheelDown, OnTaskbarScrollDown
@@ -354,6 +361,20 @@ OpenDesktopManager() {
     Send #{Tab}
 }
 
+; Let the user change desktop names with a prompt, without having to edit the 'settings.ini'
+; file and reload the program.
+; The changes are temprorary (names will be overwritten by the default values of
+; 'settings.ini' when the program will be restarted.
+ChangeDesktopName() {
+    currentDesktopNumber := _GetCurrentDesktopNumber()
+    currentDesktopName := _GetDesktopName(currentDesktopNumber)
+    InputBox, newDesktopName, % changeDesktopNamesPopupTitle, % Format(changeDesktopNamesPopupText, _GetCurrentDesktopNumber()), , , , , , , , %currentDesktopName%
+    ; If the user choose "Cancel" ErrorLevel is set to 1.
+    if (ErrorLevel == 0) {
+        _SetDesktopName(currentDesktopNumber, newDesktopName)
+    }
+}
+
 Reload() {
     Reload
 }
@@ -402,6 +423,18 @@ _GetDesktopName(n:=1) {
     return name
 }
 
+; Set the name of the nth desktop to the value of a given string.
+_SetDesktopName(n:=1, name:=0) {
+    if (n == 0) {
+        n := 10
+    }
+    if (!name) {
+        ; Default value: "Desktop N".
+        name := "Desktop " %n%
+    }
+    DesktopNames%n% := name
+}
+
 _GetNextDesktopNumber() {
     i := _GetCurrentDesktopNumber()
 	if (GeneralDesktopWrapping == 1) {