Fix #23 Grey area between staging and text input

Former-commit-id: 6c40a2dac4

src/syng_im/components/chat/chat_message_new.cljs

@@ -7,6 +7,7 @@
                                      text
                                      text-input
                                      touchable-highlight]]
+   [syng-im.components.styles :refer [color-white]]
    [syng-im.components.chat.plain-message-input :refer [plain-message-input-view]]
    [syng-im.components.chat.input.simple-command :refer [simple-command-input-view]]
    [syng-im.components.chat.input.phone :refer [phone-input-view]]
@@ -23,7 +24,7 @@
   [simple-command-staged-view stage-command])
 
 (defn staged-commands-view [staged-commands]
-  [view {:style {:marginBottom 12}}
+  [view {}
    (for [command staged-commands]
      ^{:key command} [staged-command-view command])])
 
@@ -45,7 +46,8 @@
     (fn []
       (let [command @command-atom
             staged-commands @staged-commands-atom]
-        [view
+        [view {:style {:backgroundColor color-white
+                       :elevation       4}}
          (when (and staged-commands (< 0 (count staged-commands)))
            [staged-commands-view staged-commands])
          (if command

src/syng_im/components/chat/plain_message_input.cljs

@@ -39,8 +39,7 @@
          [suggestions-view]
          [view {:style {:flexDirection     "row"
                         :height            56
-                        :backgroundColor   color-white
-                        :elevation         4}}
+                        :backgroundColor   color-white}}
           [image {:source res/icon-list
                   :style  {:marginTop    22
                            :marginRight  6

src/syng_im/components/chat/suggestions.cljs

@@ -10,7 +10,8 @@
                                               touchable-highlight
                                               list-view
                                               list-item]]
-            [syng-im.components.styles :refer [font]]
+            [syng-im.components.styles :refer [font
+                                               color-white]]
             [syng-im.utils.listview :refer [to-datasource]]
             [syng-im.utils.utils :refer [log toast http-post]]
             [syng-im.utils.logging :as log]))
@@ -25,7 +26,7 @@
                   :marginVertical   1
                   :marginHorizontal 0
                   :height           40
-                  :backgroundColor "white"}}
+                  :backgroundColor  color-white}}
     [view {:style {:flexDirection   "column"
                    :position        "absolute"
                    :top             10
@@ -36,7 +37,7 @@
                     :marginHorizontal 10
                     :fontSize         14
                     :fontFamily       font
-                    :color            "white"}}
+                    :color            color-white}}
       (:text suggestion)]]
     [text {:style {:flex       1
                    :position   "absolute"
@@ -60,7 +61,7 @@
                          :marginVertical   1
                          :marginHorizontal 0
                          :height           (min 105 (* 42 (count suggestions)))
-                         :backgroundColor  "#eef2f5"
+                         :backgroundColor  color-white
                          :borderRadius     5}}
            [list-view {:dataSource (to-datasource suggestions)
                        :renderRow  render-row