parent
c15fca6bd3
commit
9653028650
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue