Tap on bubble to enable command input

This commit is contained in:
virvar 2016-04-08 18:26:58 +03:00
parent 49a5b82a8c
commit 5e38d5589a
1 changed files with 23 additions and 22 deletions

View File

@ -92,8 +92,11 @@
(defn message-content-command-request [content outgoing text-color background-color]
(let [{:keys [command content]} (commands/parse-command-request-msg-content content)]
[view {:style {:marginTop 10}}
[view {:style (merge {:borderRadius 6
[touchable-highlight {:onPress (fn []
(set-chat-command command))}
[view {}
[view {:style (merge {:marginTop 15
:borderRadius 6
:paddingVertical 12
:paddingHorizontal 16}
(if outgoing
@ -105,12 +108,10 @@
{:color "#4A5258"}
{:color text-color}))}
content]]
[touchable-highlight {:style {:position "absolute"
:top -15
:left 20}
:onPress (fn []
(set-chat-command command))}
[view {:style {:width 30
[view {:style {:position "absolute"
:top 0
:left 20
:width 30
:height 30
:borderRadius 50
:backgroundColor (:color command)}}