status-im
/
status-mobile
mirror of https://github.com/status-im/status-mobile.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix exclamation mark for response messages 

Former-commit-id: 2894baa0e1
This commit is contained in:
Roman Volosovskyi 2016-06-27 12:33:46 +03:00
parent 6f9881af55
commit b1e8a6c30f
2 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/status_im/chat/views/message.cljs
View File

@ -56,26 +56,22 @@
[view st/track-mark]
[text {:style st/track-duration-text} "03:39"]]])
(defn message-content-command [content preview]
(let [commands-atom (subscribe [:get-commands-and-responses])]
(fn [content preview]
(let [commands @commands-atom
{:keys [command content]}
(parse-command-msg-content commands content)]
(defview message-content-command [content preview]
[commands [:get-commands-and-responses]]
(let [{:keys [command content]} (parse-command-msg-content commands content)
{:keys [name icon type]} command]
[view st/content-command-view
[view st/command-container
[view (st/command-view command)
[text {:style st/command-name}
(str "!" (:name command))]]]
;; todo doesn't reflect design
(when-let [icon (:icon command)]
(str (if (= :command type) "!" "") name)]]]
(when icon
[view st/command-image-view
[image {:source {:uri icon}
:style st/command-image}]])
(if preview
preview
[text {:style st/command-text}
content])]))))
[text {:style st/command-text} content])]))
(defn set-chat-command [msg-id command]
(dispatch [:set-response-chat-command msg-id (keyword (:name command))]))

9
src/status_im/commands/handlers/loading.cljs
View File

@ -61,11 +61,16 @@
(get-hash-by-file file))]
(assoc db ::valid-hash valid?)))
(defn mark-as [as coll]
(->> coll
(map (fn [[k v]] [k (assoc v :type as)]))
(into {})))
(defn add-commands
[db [id _ {:keys [commands responses]}]]
(-> db
(update-in [:chats id :commands] merge commands)
(update-in [:chats id :responses] merge responses)))
(update-in [:chats id :commands] merge (mark-as :command commands))
(update-in [:chats id :responses] merge (mark-as :response responses))))
(defn save-commands-js!
[_ [id file]]