cleanup debug & simplify messages-offset

Former-commit-id: de5eb9bee0

src/status_im/chat/constants.cljs

@@ -4,4 +4,6 @@
 (def request-info-height 61)
 (def response-height-normal 211)
 (def minimum-suggestion-height (+ input-height request-info-height))
-(def minimum-command-suggestions-height (+ input-height 22))
+(def suggestions-header-height 22)
+(def minimum-command-suggestions-height
+  (+ input-height suggestions-header-height))

src/status_im/chat/handlers.cljs

@@ -366,8 +366,7 @@
 (register-handler :init-chat
   (-> load-messages!
       ((enrich init-chat))
-      ((after load-commands!))
+      ((after load-commands!))))
-      debug))
 
 (defn initialize-chats
   [{:keys [loaded-chats] :as db} _]

src/status_im/chat/handlers/animation.cljs

@@ -19,9 +19,7 @@
 (animation-handler :animate-cancel-command
   (after #(dispatch [:text-edit-mode]))
   (fn [db _]
-    (assoc db
+    (assoc db :to-response-height input-height)))
-      :to-response-height input-height
-      :messages-offset? false)))
 
 (def response-height (+ input-height response-height-normal))
 
@@ -32,24 +30,19 @@
   (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 0.1)]
+          height (if suggestions? middle-height 0.1)
+          changed? (if (and suggestions? (not= 0.1 current))
+                     identity inc)]
       (-> db
-          (update :animations assoc
+          (update :animations assoc :command-suggestions-height height)
-                  :messages-offset? suggestions?
+          (update-in [:animations :commands-height-changed] changed?)))))
-                  :messages-offset-max 22
-                  :command-suggestions-height height)
-          (update-in [:animations :commands-height-changed]
-                     (if (and suggestions? (not= 0.1 current))
-                       identity inc))))))
 
 (register-handler :animate-show-response
   [(after #(dispatch [:command-edit-mode]))]
   (fn [{:keys [current-chat-id] :as db}]
     (let [suggestions? (seq (get-in db [:suggestions current-chat-id]))
           height (if suggestions? middle-height minimum-suggestion-height)]
-      (update db :animations assoc :messages-offset? true
+      (assoc-in db [:animations :to-response-height] height))))
-              :messages-offset-max request-info-height
-              :to-response-height height))))
 
 (defn fix-height
   [height-key height-signal-key suggestions-key minimum]

src/status_im/chat/screen.cljs

@@ -229,18 +229,15 @@
                 :dataSource                (to-datasource-inverted messages)}]))
 
 (defn messages-container-animation-logic
-  [{:keys [offset? val max]}]
+  [{:keys [offset val]}]
   (fn [_]
-    (let [to-value (if @offset? @max 0)]
+    (anim/start (anim/spring val {:toValue @offset}))))
-      (anim/start (anim/spring val {:toValue to-value})))))
 
 (defn messages-container [messages]
-  (let [messages-offset? (subscribe [:animations :messages-offset?])
+  (let [offset (subscribe [:messages-offset])
-        maximum-offset (subscribe [:animations :messages-offset-max])
         messages-offset (anim/create-value 0)
-        context          {:offset? messages-offset?
+        context {:offset offset
-                          :val     messages-offset
+                 :val    messages-offset}
-                          :max     maximum-offset}
         on-update (messages-container-animation-logic context)]
     (r/create-class
       {:component-did-mount
@@ -249,7 +246,7 @@
        on-update
        :reagent-render
        (fn [messages]
-         @messages-offset?
+         @offset
          [animated-view {:style (st/messages-container messages-offset)}
           messages])})))
 

src/status_im/chat/subs.cljs

@@ -3,6 +3,7 @@
   (:require [re-frame.core :refer [register-sub dispatch subscribe path]]
             [status-im.models.commands :as commands]
             [status-im.constants :refer [response-suggesstion-resize-duration]]
+            [status-im.chat.constants :as c]
             [status-im.handlers.content-suggestions :refer [get-content-suggestions]]
             [status-im.chat.views.plain-message :as plain-message]
             [status-im.chat.views.command :as command]))
@@ -116,3 +117,12 @@
     (->> (get-in @db [:edit-mode (:current-chat-id @db)])
          (= :command)
          (reaction))))
+
+(register-sub :messages-offset
+  (fn []
+    (let [command? (subscribe [:command?])
+          suggestions (subscribe [:get-suggestions])]
+      ;; todo fix magic values
+      (reaction (cond @command? c/request-info-height
+                      (seq @suggestions) c/suggestions-header-height
+                      :else 0)))))

src/status_im/handlers.cljs

@@ -40,16 +40,12 @@
 (defn set-el [db [_ k v]]
   (assoc db k v))
 
-(register-handler :set
+(register-handler :set set-el)
-  debug
-  set-el)
 
 (defn set-in [db [_ path v]]
   (assoc-in db path v))
 
-(register-handler :set-in
+(register-handler :set-in set-in)
-  debug
-  set-in)
 
 (register-handler :set-animation
   (fn [db [_ k v]]

src/status_im/utils/handlers.cljs

@@ -11,4 +11,4 @@
 (defn register-handler
   ([name handler] (register-handler name nil handler))
   ([name middleware handler]
-   (re-core/register-handler name [#_debug middleware] handler)))
+   (re-core/register-handler name [debug middleware] handler)))