... | ... |
@@ -69,9 +69,8 @@ |
69 | 69 |
::prompt-keypress |
70 | 70 |
(re-frame/path :cmdline) |
71 | 71 |
(fn [cmd [_ event]] |
72 |
- (let [ |
|
73 |
- direction (case (.-key event) |
|
74 |
- "ArrowUp" :backward |
|
72 |
+ (let [direction (case (.-key event) |
|
73 |
+ "ArrowUp" :backward |
|
75 | 74 |
"ArrowDown" :forward |
76 | 75 |
nil)] |
77 | 76 |
(if direction |