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

KissConfig refactor quickPickItem

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-04-02 12:55:16 -06:00
parent 35848dd130
commit fc695e88da
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -73,17 +73,18 @@
(awaitLet [kissStr (inputBox)] (awaitLet [kissStr (inputBox)]
(infoMessage (Std.string (evalString kissStr))))) (infoMessage (Std.string (evalString kissStr)))))
(defun quickPickItem [label]
(object
label label
description null
detail null
picked null
alwaysShow null))
(defun :Void runCommand [&opt command] (defun :Void runCommand [&opt command]
(if command (if command
{(set lastCommand command) ((dictGet commands command) (selectedText))} {(set lastCommand command) ((dictGet commands command) (selectedText))}
(let [commandList (let [commandList (map (commands.keys) quickPickItem)]
(for description (commands.keys)
(object
label description
description null
detail null
picked null
alwaysShow null))]
(awaitLet [chosenCommand (quickPick commandList)] (awaitLet [chosenCommand (quickPick commandList)]
(when chosenCommand (when chosenCommand
(set lastCommand chosenCommand.label) (set lastCommand chosenCommand.label)