From 5e38d5589a73678b7749b48b720b708616fe798a Mon Sep 17 00:00:00 2001
From: virvar <revalka@gmail.com>
Date: Fri, 8 Apr 2016 18:26:58 +0300
Subject: [PATCH] Tap on bubble to enable command input

---
 src/syng_im/components/chat/chat_message.cljs | 45 ++++++++++---------
 1 file changed, 23 insertions(+), 22 deletions(-)

diff --git a/src/syng_im/components/chat/chat_message.cljs b/src/syng_im/components/chat/chat_message.cljs
index 036ef89102..2014ece589 100644
--- a/src/syng_im/components/chat/chat_message.cljs
+++ b/src/syng_im/components/chat/chat_message.cljs
@@ -92,34 +92,35 @@
 
 (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
-                           :paddingVertical   12
-                           :paddingHorizontal 16}
-                          (if outgoing
-                            {:backgroundColor "#D3EEEF"}
-                            {:backgroundColor background-color}))}
-      [text {:style (merge {:fontSize   14
-                            :fontFamily "Avenir-Roman"}
+    [touchable-highlight {:onPress (fn []
+                                     (set-chat-command command))}
+     [view {}
+      [view {:style (merge {:marginTop         15
+                            :borderRadius      6
+                            :paddingVertical   12
+                            :paddingHorizontal 16}
                            (if outgoing
-                             {: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
+                             {:backgroundColor "#D3EEEF"}
+                             {:backgroundColor background-color}))}
+       [text {:style (merge {:fontSize   14
+                             :fontFamily "Avenir-Roman"}
+                            (if outgoing
+                              {:color "#4A5258"}
+                              {:color text-color}))}
+        content]]
+      [view {:style {:position        "absolute"
+                     :top             0
+                     :left            20
+                     :width           30
                      :height          30
                      :borderRadius    50
                      :backgroundColor (:color command)}}
        [image {:source res/att
-               :style  {:width  17
-                        :height 14
+               :style  {:width    17
+                        :height   14
                         :position "absolute"
-                        :top 8
-                        :left 6}}]]]]))
+                        :top      8
+                        :left     6}}]]]]))
 
 (defn message-content [{:keys [content-type content outgoing text-color background-color]}]
   (if (= content-type content-type-command-request)