KissConfig refactor quickPickItem

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)