kiss-vscode command to open or create config file. close #25

projects/kiss-vscode/config/KissConfig.kiss

@@ -159,6 +159,7 @@
 (loadFrom "kiss-vscode" "src/commands/KissTools.kiss")
 (loadFrom "kiss-vscode" "src/commands/ExtensionTools.kiss")
 (loadFrom "kiss-vscode" "src/commands/KTxt2Tools.kiss")
+(loadFrom "kiss-vscode" "src/commands/Vscode.kiss")
 
 // Provided from Main.kiss via (set):
 (var &mut :Command tryLoadConfig)
@@ -188,6 +189,8 @@
         // ExtensionTools.kiss:
         (registerCommand "${prefix} [u]pdate Kiss-VSCode" updateKissVscode)
         (registerCommand "${prefix} [t]est and [u]pdate Kiss-VSCode" testAndUpdateKissVscode)
+        // Vscode.kiss:
+        (registerCommand "${prefix} edit Kiss-Vscode [c]onfig" openKissConfig)
         // KTxt2.kiss:
         (registerCommand "${ktxt2Prefix} [i]mport input file" importKTxt2InputFile))
         

projects/kiss-vscode/src/commands/Vscode.kiss

@@ -1,5 +1,4 @@
-// Before you use commands in this file:
+// This is loaded in every KissConfig
-/* (loadFrom "kiss-vscode" "src/commands/Vscode.kiss") */
 
 (function userHome [] (or (Sys.getEnv "MSYSHOME") (Sys.getEnv "HOME") (Sys.getEnv "UserProfile")))
 
@@ -30,4 +29,12 @@
 (registerCommand "desired name with [a]ny [b]indings" openKissConfig)
 */
 (function openKissConfig [&opt _]
-    ((openFile "$(userHome)/.kiss/Config.kiss")))
+    // For first-time extension users, create the config folder
+    // based on the default
+    (let [configPath "$(userHome)/.kiss"
+            defaultConfigPath (joinPath extensionPath "config" "default")]
+        (unless (FileSystem.exists configPath)
+            (FileSystem.createDirectory configPath)
+            (doFor file (FileSystem.readDirectory defaultConfigPath)
+                (File.copy "${defaultConfigPath}/$file" "${configPath}/$file")))
+        ((openFile "${configPath}/Config.kiss"))))