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

Show response input on icon click instead of message click

This commit is contained in:
virvar 2016-06-07 11:43:39 +03:00
parent b13cb24116
commit c68d43dcae
2 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/status_im/chat/styles/message.cljs
View File

@ -137,12 +137,15 @@
(def command-request-from-text (def command-request-from-text
(merge style-sub-text {:marginBottom 2})) (merge style-sub-text {:marginBottom 2}))
(defn command-request-image-view (def command-request-image-touchable
[command] {:position :absolute
{:position :absolute :top 12
:top 12 :right 0
:right 0 :width 32
:width 32 :height 32})
(defn command-request-image-view [command]
{:width 32
:height 32 :height 32
:borderRadius 50 :borderRadius 50
:backgroundColor (:color command)}) :backgroundColor (:color command)})

29
src/status_im/chat/views/message.cljs
View File

@ -82,22 +82,23 @@
(fn [{:keys [msg-id content from incoming-group]}] (fn [{:keys [msg-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)]
[touchable-highlight {:onPress #(set-chat-command msg-id command) [view st/comand-request-view
:accessibility-label (label command)} [view st/command-request-message-view
[view st/comand-request-view (when incoming-group
[view st/command-request-message-view [text {:style st/command-request-from-text}
(when incoming-group from])
[text {:style st/command-request-from-text} [text {:style st/style-message-text}
from]) content]]
[text {:style st/style-message-text} [touchable-highlight {:style st/command-request-image-touchable
content]] :onPress #(set-chat-command msg-id command)
:accessibility-label (label command)}
[view (st/command-request-image-view command) [view (st/command-request-image-view command)
[image {:source (:request-icon command) [image {:source (:request-icon command)
:style st/command-request-image}]] :style st/command-request-image}]]]
(when (:request-text command) (when (:request-text command)
[view st/command-request-text-view [view st/command-request-text-view
[text {:style st/style-sub-text} [text {:style st/style-sub-text}
(:request-text command)]])]])))) (:request-text command)]])]))))
(defn message-view (defn message-view
[message content] [message content]