...
|
...
|
@@ -117,9 +117,9 @@
|
117
|
117
|
cmdline (some-> db :cmdline :current)]
|
118
|
118
|
{:db
|
119
|
119
|
(-> db
|
120
|
|
- (update-in [:cmdline :current] (constantly nil))
|
121
|
|
- (update-in [:cmdline :selected-history] (constantly nil))
|
122
|
|
- (update-in [:cmdline :suggestions] (constantly nil))
|
|
120
|
+ (assoc-in [:cmdline :current] nil)
|
|
121
|
+ (assoc-in [:cmdline :selected-history] nil)
|
|
122
|
+ (assoc-in [:cmdline :suggestions] {:options nil :selected nil})
|
123
|
123
|
(execute cmdline))
|
124
|
124
|
|
125
|
125
|
; dispatch-later to ensure that the DOM has already been updated,
|