Browse code

Update suggestion update code to new database format

Joseph Weston authored on 12/12/2021 23:01:58
Showing 1 changed files
... ...
@@ -38,7 +38,8 @@
38 38
  (fn-traced [db [_ current]]
39 39
   (-> db
40 40
       (assoc-in [:cmdline :current] current)
41
-      (assoc-in [:cmdline :suggestions] (autocomplete-suggestions db current)))))
41
+      (assoc-in [:cmdline :suggestions] {:options (autocomplete-suggestions db current)
42
+                                         :selected nil}))))
42 43
 
43 44
 (defn get-using [f coll]
44 45
   (->> coll (filter f) first))