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

Revert "KissConfig refactor quickPickItem"

Browse Source 
This reverts commit fc695e88da.
This commit is contained in:
Nat Quayle Nelson
2021-04-02 14:55:49 -06:00
parent fc695e88da
commit 5c0027d0a7
1 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -73,18 +73,17 @@
(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 (map (commands.keys) quickPickItem)] (let [commandList
(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)