From 5c0027d0a7b971ca3aabac00f00bdcd4636c5e51 Mon Sep 17 00:00:00 2001
From: Nat Quayle Nelson <natquaylenelson@gmail.com>
Date: Fri, 2 Apr 2021 14:55:49 -0600
Subject: [PATCH] Revert "KissConfig refactor quickPickItem"

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

diff --git a/projects/kiss-vscode/config/KissConfig.kiss b/projects/kiss-vscode/config/KissConfig.kiss
index 5c76800c..d48a3350 100644
--- a/projects/kiss-vscode/config/KissConfig.kiss
+++ b/projects/kiss-vscode/config/KissConfig.kiss
@@ -73,18 +73,17 @@
         (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 (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)]
                 (when chosenCommand
                     (set lastCommand chosenCommand.label)