[vscode] refactor some things

This commit is contained in:
2021-04-02 19:03:47 -06:00
parent 84d1a6877e
commit 191aed1849
4 changed files with 7 additions and 9 deletions

View File

@@ -16,7 +16,7 @@ typedef Command = (String) -> Void;
enum ShortcutKey {
Final(command:String);
Prefix(keys: Map<String, ShortcutKey>);
Prefix(keys:Map<String, ShortcutKey>);
}
@:expose

View File

@@ -119,7 +119,6 @@
(defun :Void registerShortcut [keys description &opt :Map<String,ShortcutKey> prefixMap]
(unless prefixMap (set prefixMap commandShortcuts))
(print keys)
(let [firstKey (keys.shift)]
(cond
((prefixMap.exists firstKey)

View File

@@ -7,7 +7,7 @@
(.replace (.replace (.toString (Date.now)) ":" "-") " " "-"))
(defvar &mut activeConfigDir "")
(defvar &mut :Dynamic config null)
(defvar &mut :KissConfig config null)
(defun :Void tryLoadConfig [&opt :String text]
(let [activeConfigPath (Path.join [activeConfigDir "config.js"])
@@ -36,13 +36,13 @@
(let [activeConfigFile (Path.join [activeConfigDir "config.js"])
uniqueConfigFile (Path.join [activeConfigDir "$(.toShort (Uuid.v4)).js"])]
(File.copy activeConfigFile uniqueConfigFile)
(set config .KissConfig (Node.require uniqueConfigFile))
(set config (the KissConfig .KissConfig (Node.require uniqueConfigFile)))
// (FileSystem.deleteFile uniqueConfigFile)
(.registerBuiltins (the KissConfig config))
(.registerCommand (the KissConfig config) "Reload Kiss config" tryLoadConfig)
(.prepareInterp (the KissConfig config))
(config.registerBuiltins)
(config.registerCommand "Reload Kiss config" tryLoadConfig)
(config.prepareInterp)
// User-defined init:
(.init (the KissConfig config))
(config.init)
(Vscode.window.showInformationMessage "Config loaded successfully!"))
// If there's a build error, restore the config.js backup
(begin