diff --git a/projects/kiss-vscode/config/KissConfig.kiss b/projects/kiss-vscode/config/KissConfig.kiss index 00f694fa..e1bb9940 100644 --- a/projects/kiss-vscode/config/KissConfig.kiss +++ b/projects/kiss-vscode/config/KissConfig.kiss @@ -11,6 +11,9 @@ (defalias &call inputBox Vscode.window.showInputBox) (defalias &call quickPick Vscode.window.showQuickPick) +// commands +(defalias &call executeCommand Vscode.commands.executeCommand) + // ui (defalias &ident activeTextEditor Vscode.window.activeTextEditor) @@ -199,6 +202,10 @@ (whenLet [keyboardShortcut (extractKeyboardShortcuts 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 [] (set Prelude.print ->[v] {