Tappable request message (closes #283)

Former-commit-id: 8026bdad0b
This commit is contained in:
Roman Volosovskyi 2016-10-07 16:01:10 +03:00
parent c15fca6bd3
commit 9653028650
1 changed files with 13 additions and 9 deletions

View File

@ -70,11 +70,15 @@
(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
[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
@ -82,7 +86,7 @@
from])
[text {:style st/style-message-text
:font :default}
content]]
content]]]
[request-button message-id command]
(when (:request-text command)
[view st/command-request-text-view