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

[vscode] allow registering existing commands

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-04-04 14:50:27 -06:00
parent 4efafb5f57
commit e3791e5b50
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
projects/kiss-vscode/config/KissConfig.kiss
View File

@@ -11,6 +11,9 @@
(defalias &call inputBox Vscode.window.showInputBox) (defalias &call inputBox Vscode.window.showInputBox)
(defalias &call quickPick Vscode.window.showQuickPick) (defalias &call quickPick Vscode.window.showQuickPick)
// commands
(defalias &call executeCommand Vscode.commands.executeCommand)
// ui // ui
(defalias &ident activeTextEditor Vscode.window.activeTextEditor) (defalias &ident activeTextEditor Vscode.window.activeTextEditor)
@@ -199,6 +202,10 @@
(whenLet [keyboardShortcut (extractKeyboardShortcuts description)] (whenLet [keyboardShortcut (extractKeyboardShortcuts description)]
(registerShortcut (keyboardShortcut.split "") description))) (registerShortcut (keyboardShortcut.split "") description)))
// Register a VSCode command (built-in, or from an extension)
(defun registerExistingCommand [description command]
(registerCommand description (lambda :Void [&opt _] (executeCommand command))))
(defun :Void registerBuiltins [] (defun :Void registerBuiltins []
(set Prelude.print (set Prelude.print
->[v] { ->[v] {