fix staged response name

This commit is contained in:
Roman Volosovskyi 2016-07-02 15:03:31 +03:00
parent 32a7821da9
commit 5749f76be5
1 changed files with 5 additions and 2 deletions

View File

@ -11,12 +11,15 @@
(dispatch [:unstage-command staged-command]))
(defn simple-command-staged-view [staged-command]
(let [command (:command staged-command)]
(let [{:keys [type name] :as command} (:command staged-command)]
[view st/staged-command-container
[view st/staged-command-background
[view st/staged-command-info-container
[view (st/staged-command-text-container command)
[text {:style st/staged-command-text} (str "!" (:name command))]]
[text {:style st/staged-command-text}
(if (= :command type)
(str "!" name)
name)]]
[touchable-highlight {:style st/staged-command-cancel
:onPress #(cancel-command-input staged-command)}
[image {:source res/icon-close-gray