diff --git a/src/status_im/chat/views/request_message.cljs b/src/status_im/chat/views/request_message.cljs index e8ed5d5efb..d467483b1c 100644 --- a/src/status_im/chat/views/request_message.cljs +++ b/src/status_im/chat/views/request_message.cljs @@ -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