This commit is contained in:
2021-08-12 12:54:52 -06:00
parent e6f44c364a
commit 39c7202b4b
3 changed files with 21 additions and 10 deletions

View File

@@ -9,16 +9,6 @@
(var &mut builtinConfigDir "")
(var &mut :KissConfig config null)
(function walkDirectory [basePath directory :String->Void processFile :String->Void processSubdirectory]
(doFor fileOrFolder (FileSystem.readDirectory (joinPath basePath directory))
(case fileOrFolder
((when (FileSystem.isDirectory (joinPath basePath directory folder)) folder)
(let [subdirectory (joinPath directory folder)]
(processSubdirectory subdirectory)
(walkDirectory basePath subdirectory processFile processSubdirectory)))
(file
(processFile (joinPath directory file))))))
(function :Void tryLoadConfig [&opt :String text]
// TODO if a config object is active and a shortcut panel is open, dispose the panel before we lose the handle in the current config object