another attempt to improve animation

Former-commit-id: 5ff4ff7ead

src/status_im/chat/handlers/animation.cljs

@@ -29,10 +29,10 @@
   (fn [{:keys [current-chat-id] :as db} _]
     (let [suggestions? (seq (get-in db [:command-suggestions current-chat-id]))
           current (get-in db [:animations :command-suggestions-height])
-          height (if suggestions? middle-height 30)
+          height (if suggestions? middle-height input-height)
           changed? (if (and suggestions?
                             (not (nil? current))
-                            (not= 30 current))
+                            (not= input-height current))
                      identity inc)]
       (-> db
           (update :animations assoc :command-suggestions-height height)
@@ -44,7 +44,7 @@
         type (get-in db path)]
     (if (= :response type)
       minimum-suggestion-height
-      30)))
+      input-height)))
 
 (register-handler :animate-show-response
   [(after #(dispatch [:command-edit-mode]))]
@@ -97,7 +97,7 @@
   (let [suggestions (get-in db [:command-suggestions current-chat-id])]
     (if (seq suggestions)
       minimum-command-suggestions-height
-      0.1)))
+      input-height)))
 
 (register-handler :fix-commands-suggestions-height
   (fix-height :command-suggestions-height

src/status_im/chat/views/suggestions.cljs

@@ -115,14 +115,12 @@
        on-update
        :reagent-render
        (fn [h & elements]
-         @changed
+         @to-response-height @changed
          (into [animated-view {:style (st/container h)}] elements))})))
 
 (defn suggestion-container []
-  (let [h (anim/create-value 0.1)
-        command? (subscribe [:command?])]
-    (when-not @command?
-      [container h
-       [header h]
-       [suggestions-view]
-       [view {:height c/input-height}]])))
+  (let [h (anim/create-value c/input-height)]
+    [container h
+     [header h]
+     [suggestions-view]
+     [view {:height c/input-height}]]))