repair command completions

command.fnl

@@ -168,8 +168,8 @@
 
       {:command nil}
       (set-completions
-       (collect [k _ (pairs  commands)]
-         (if (= (k:find str 1 true) 1) (values k k)))))))
+       (icollect [k _ (pairs  commands)]
+         (if (= (k:find str 1 true) 1) (completion { :text k})))))))
 
 (fn activate [{: state : entry : prompt &as self}]
   (tset state :active true)

musing.md

@@ -65,6 +65,7 @@ focus from entry to step through the completions then RET activates
 * [done] display unbound key error
 * [done] back binding
 * [done] save url history, use it in completions
+* [done] autocomplete command name
 
 * custom rendering for completions (e.g. buffer thumbnails)
 * less ugly default completions rendering
@@ -74,7 +75,6 @@ focus from entry to step through the completions then RET activates
 * bind event to echo-area click, ideally dependent on what's being shown
   in there
 * in general, can we bind commands to widget events?
-* autocomplete command name
 * command to create new buffer
 * keyboard navigation of completions