command animation

This commit is contained in:
Roman Volosovskyi 2016-06-21 10:56:11 +03:00
parent ecd7ae26b8
commit 8c1d2eec1a
1 changed files with 4 additions and 2 deletions

View File

@ -253,9 +253,11 @@
(commands/unstage-command db staged-command))) (commands/unstage-command db staged-command)))
(register-handler :set-chat-command (register-handler :set-chat-command
(after #(dispatch [:animate-show-response]))
(fn [db [_ command-key]] (fn [db [_ command-key]]
;; todo what is going on there?! (-> db
(commands/set-chat-command db command-key))) (commands/set-chat-command command-key)
(assoc-in [:animations :command?] true))))
(register-handler :init-console-chat (register-handler :init-console-chat
(fn [db [_]] (fn [db [_]]