Fallback created for git commands not standard handled by this module

private/find-editor.rkt

@@ -6,6 +6,7 @@
 
 (provide find-editor
          find-editors
+         editor-downloads
          configured-editor
          set-editor!
          set-editor-auto!)
@@ -108,6 +109,20 @@
      "Visual Studio Code"
      (environment-path "ProgramFiles(x86)" "Microsoft VS Code" "bin" "code.cmd")
      " --wait")
+    (editor-on-path "notepad++"
+                    "Notepad++"
+                    "notepad++.exe"
+                    " -multiInst -nosession")
+    (editor-at
+     "notepad++"
+     "Notepad++"
+     (environment-path "ProgramFiles" "Notepad++" "notepad++.exe")
+     " -multiInst -nosession")
+    (editor-at
+     "notepad++"
+     "Notepad++"
+     (environment-path "ProgramFiles(x86)" "Notepad++" "notepad++.exe")
+     " -multiInst -nosession")
     (editor-on-path "notepad" "Notepad" "notepad.exe" "")
     (editor-at
      "notepad"
@@ -190,6 +205,23 @@
     ((unix) (find-unix-editors))
     (else '())))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; goal   : Return official download pointers for optional GUI editors.
+; pre    : The current platform is known.
+; post   : No network request has been made.
+; result : A list of (name description url) items.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define (editor-downloads)
+  (case (system-type 'os)
+    ((windows)
+     '(("vscode" "Visual Studio Code" "https://code.visualstudio.com/download")
+       ("notepad++" "Notepad++" "https://notepad-plus-plus.org/downloads/")))
+    ((macosx)
+     '(("vscode" "Visual Studio Code" "https://code.visualstudio.com/download")))
+    ((unix)
+     '(("vscode" "Visual Studio Code" "https://code.visualstudio.com/download")))
+    (else '())))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; goal   : Read the editor explicitly configured for git-cli.
 ; pre    : The git-cli configuration is readable.