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

Merge pull request #332 from status-im/feature/#283 

Tappable request message (#283)
This commit is contained in:
Roman Volosovskyi 2016-10-10 14:43:19 +03:00 committed by GitHub
parent 49e6738626 8026bdad0b
commit b76114a369
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/status_im/chat/views/request_message.cljs
View File

@ -70,19 +70,23 @@
(defn message-content-command-request
[{:keys [message-id content from incoming-group]}]
(let [commands-atom (subscribe [:get-responses])]
(let [commands-atom (subscribe [:get-responses])
answered? (subscribe [:is-request-answered? message-id])]
(fn [{:keys [message-id content from incoming-group]}]
(let [commands @commands-atom
{:keys [command content]} (parse-command-request commands content)]
[view st/comand-request-view
[view st/command-request-message-view
(when incoming-group
[text {:style st/command-request-from-text
:font :default}
from])
[text {:style st/style-message-text
:font :default}
content]]
[touchable-highlight
{:on-press (when-not @answered?
#(set-chat-command message-id command))}
[view st/command-request-message-view
(when incoming-group
[text {:style st/command-request-from-text
:font :default}
from])
[text {:style st/style-message-text
:font :default}
content]]]
[request-button message-id command]
(when (:request-text command)
[view st/command-request-text-view