kiss-vscode command to open or create config file. close #25
This commit is contained in:
@@ -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))
|
||||
|
||||
|
Binary file not shown.
@@ -1,5 +1,4 @@
|
||||
// Before you use commands in this file:
|
||||
/* (loadFrom "kiss-vscode" "src/commands/Vscode.kiss") */
|
||||
// This is loaded in every KissConfig
|
||||
|
||||
(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"))))
|
Reference in New Issue
Block a user