fix staged response name
This commit is contained in:
parent
32a7821da9
commit
5749f76be5
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue