Tap on bubble to enable command input
This commit is contained in:
parent
49a5b82a8c
commit
5e38d5589a
|
@ -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)}}
|
||||
|
|
Loading…
Reference in New Issue