... | ... |
@@ -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)) |