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

safety checks in kiss-vscode config swap

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-06-01 21:16:21 +00:00
parent 6443f12072
commit c895a903e5
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -30,9 +30,13 @@
(function :Void tryLoadConfig [&opt :Bool force :Bool fallbackToDefault :String _]
(let [handleConfigFailure
->errorMessage {
(FileSystem.deleteDirectory activeConfigDir)
(when (FileSystem.exists lastConfigDir)
(FileSystem.rename lastConfigDir activeConfigDir))
(try
{
(FileSystem.deleteDirectory activeConfigDir)
(when (FileSystem.exists lastConfigDir)
(FileSystem.rename lastConfigDir activeConfigDir))
}
(catch [e] (throw "failed to delete bad config: $e")))
// When user config fails to build, use the default
// Counterintuitively, this unless is correct:
(unless fallbackToDefault
@@ -66,17 +70,18 @@
(#unless test
(unless force
(let [oldConfigFile (joinPath activeConfigDir "config.js")]
(when (let [mTime
->file (.getTime .mtime (FileSystem.stat file))
oldFileMTime
(mTime oldConfigFile)
userConfigMTime
(let [foldersToCheck [(userConfigDir) builtinConfigDir]]
(when commandsDir
(foldersToCheck.push commandsDir))
(apply max
(map (apply concat (map foldersToCheck readDirectory)) mTime)))]
(> oldFileMTime userConfigMTime))
(when (and (FileSystem.exists oldConfigFile)
(let [mTime
->file (.getTime .mtime (FileSystem.stat file))
oldFileMTime
(mTime oldConfigFile)
userConfigMTime
(let [foldersToCheck [(userConfigDir) builtinConfigDir]]
(when commandsDir
(foldersToCheck.push commandsDir))
(apply max
(map (apply concat (map foldersToCheck readDirectory)) mTime)))]
(> oldFileMTime userConfigMTime)))
(requireConfigJs oldConfigFile)
(Vscode.window.showInformationMessage "Config loaded successfully!")
(return)))))