parent
c15fca6bd3
commit
9653028650
|
@ -70,11 +70,15 @@
|
||||||
|
|
||||||
(defn message-content-command-request
|
(defn message-content-command-request
|
||||||
[{:keys [message-id content from incoming-group]}]
|
[{: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]}]
|
(fn [{:keys [message-id content from incoming-group]}]
|
||||||
(let [commands @commands-atom
|
(let [commands @commands-atom
|
||||||
{:keys [command content]} (parse-command-request commands content)]
|
{:keys [command content]} (parse-command-request commands content)]
|
||||||
[view st/comand-request-view
|
[view st/comand-request-view
|
||||||
|
[touchable-highlight
|
||||||
|
{:on-press (when-not @answered?
|
||||||
|
#(set-chat-command message-id command))}
|
||||||
[view st/command-request-message-view
|
[view st/command-request-message-view
|
||||||
(when incoming-group
|
(when incoming-group
|
||||||
[text {:style st/command-request-from-text
|
[text {:style st/command-request-from-text
|
||||||
|
@ -82,7 +86,7 @@
|
||||||
from])
|
from])
|
||||||
[text {:style st/style-message-text
|
[text {:style st/style-message-text
|
||||||
:font :default}
|
:font :default}
|
||||||
content]]
|
content]]]
|
||||||
[request-button message-id command]
|
[request-button message-id command]
|
||||||
(when (:request-text command)
|
(when (:request-text command)
|
||||||
[view st/command-request-text-view
|
[view st/command-request-text-view
|
||||||
|
|
Loading…
Reference in New Issue