kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

try using home directory for kiss-vscode active config

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-07-23 19:06:28 -06:00
parent 53e3913882
commit 1395ac4f48
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
projects/kiss-vscode/src/Main.kiss
View File

@@ -1,6 +1,7 @@
(defun userHome [] (or (Sys.getEnv "MSYSHOME") (Sys.getEnv "HOME") (Sys.getEnv "UserProfile")))
(defun userConfigDir [] (defun userConfigDir []
(joinPath (joinPath
(or (Sys.getEnv "MSYSHOME") (Sys.getEnv "HOME") (Sys.getEnv "UserProfile")) (userHome)
".kiss")) ".kiss"))
(defvar &mut activeConfigDir "") (defvar &mut activeConfigDir "")
@@ -129,13 +130,12 @@
// TODO overload Prelude.print to use showInformationMessage // TODO overload Prelude.print to use showInformationMessage
(set builtinConfigDir (joinPath context.extensionPath "config")) (set builtinConfigDir (joinPath context.extensionPath "config"))
(set activeConfigDir (joinPath context.extensionPath "_activeConfig")) (set activeConfigDir (joinPath (userHome) ".kiss-vscode" "activeConfig"))
(set lastConfigDir (joinPath context.extensionPath "_lastActiveConfig")) (set lastConfigDir (joinPath (userHome) ".kiss-vscode" "lastActiveConfig"))
(tryLoadConfig))) (tryLoadConfig)))
(defun :Void main [] (defun :Void main []
(#when test (#when test
// TODO
(set builtinConfigDir "config") (set builtinConfigDir "config")
(set activeConfigDir "_activeConfig") (set activeConfigDir "_activeConfig")
(set lastConfigDir "_lastActiveConfig") (set lastConfigDir "_lastActiveConfig")