From fc695e88da721748db5abf91d861f8b7b7ad07a4 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 2 Apr 2021 12:55:16 -0600
Subject: [PATCH] KissConfig refactor quickPickItem

---
 projects/kiss-vscode/config/KissConfig.kiss | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/projects/kiss-vscode/config/KissConfig.kiss b/projects/kiss-vscode/config/KissConfig.kiss
index d48a3350..5c76800c 100644
--- a/projects/kiss-vscode/config/KissConfig.kiss
+++ b/projects/kiss-vscode/config/KissConfig.kiss
@@ -73,17 +73,18 @@
         (awaitLet [kissStr (inputBox)]
             (infoMessage (Std.string (evalString kissStr)))))
 
+(defun quickPickItem [label]
+    (object
+        label label
+        description null
+        detail null
+        picked null
+        alwaysShow null))
+
 (defun :Void runCommand [&opt command]
     (if command
             {(set lastCommand command) ((dictGet commands command) (selectedText))}
-        (let [commandList
-                    (for description (commands.keys)
-                        (object
-                            label description
-                            description null
-                            detail null
-                            picked null
-                            alwaysShow null))]
+        (let [commandList (map (commands.keys) quickPickItem)]
             (awaitLet [chosenCommand (quickPick commandList)]
                 (when chosenCommand
                     (set lastCommand chosenCommand.label)