Response suggestion resize on type

Former-commit-id: 2d62d21b89
This commit is contained in:
virvar 2016-06-03 11:16:38 +03:00
parent c8eb62bb94
commit cbda298af1
2 changed files with 47 additions and 48 deletions

View File

@ -78,29 +78,52 @@
(assoc-in db [:animations :commands-input-is-switching?] true)
db))))
(defn update-response-suggestions-height! [db]
(register-handler :finish-animate-response-resize
(fn [db _]
(let [fixed (get-in db [:animations :response-height-fixed])]
(-> db
(assoc-in [:animations :response-height] fixed)
(assoc-in [:animations :response-resize?] false)))))
(defn animate-response-resize! [{{height-anim-value :response-height-anim-value
from :response-height
to :response-height-fixed} :animations}]
(let [delta 5]
(anim/set-value height-anim-value from)
(anim/add-listener height-anim-value
(fn [val]
(when (<= (- to delta) (anim/value val) (+ to delta))
(anim/remove-all-listeners height-anim-value)
(dispatch [:finish-animate-response-resize]))))
(anim/start (anim/spring height-anim-value {:toValue to}))))
(register-handler :animate-response-resize
(after animate-response-resize!)
(fn [db _]
(assoc-in db [:animations :response-resize?] true)))
(defn get-response-height [db]
(when (commands/get-chat-command-to-msg-id db)
(let [command (commands/get-chat-command db)
text (commands/get-chat-command-content db)
suggestions (get-content-suggestions command text)
suggestions-height (min response-suggestions-styles/max-suggestions-height
(reduce + 0 (map #(if (:header %)
response-suggestions-styles/header-height
response-suggestions-styles/suggestion-height)
suggestions)))
height (+ suggestions-height request-info-height)
anim-value (get-in db [:animations :response-height-anim-value])]
(anim/start
(anim/spring anim-value {:toValue height
:speed 1
:bounciness 0.2})))))
suggestions-height (reduce + 0 (map #(if (:header %)
response-suggestions-styles/header-height
response-suggestions-styles/suggestion-height)
suggestions))]
(min response-height-normal (+ suggestions-height request-info-height)))))
(defn update-response-height [db]
(when (commands/get-chat-command-to-msg-id db)
(assoc-in db [:animations :response-height-fixed] (get-response-height db))))
(register-handler :set-chat-command-content
(after update-response-suggestions-height!)
(fn [{:keys [current-chat-id] :as db} [_ content]]
(dispatch [:animate-response-resize])
(-> db
(commands/set-chat-command-content content)
(assoc-in [:chats current-chat-id :input-text] nil))))
(assoc-in [:chats current-chat-id :input-text] nil)
(update-response-height))))
(defn update-input-text
[{:keys [current-chat-id] :as db} text]
@ -137,14 +160,16 @@
(anim/start (anim/spring messages-offset-anim-value {:toValue request-info-height}))))
(defn set-response-chat-command [db [_ to-msg-id command-key]]
(dispatch [:animate-response-resize])
(-> db
(commands/set-response-chat-command to-msg-id command-key)
(assoc-in [:animations :commands-input-is-switching?] true)))
(assoc-in [:animations :commands-input-is-switching?] true)
(assoc-in [:animations :response-height] 0)
(update-response-height)))
(register-handler :set-response-chat-command
(-> set-response-chat-command
((after animate-show-response!))
((after update-response-suggestions-height!))))
(after animate-show-response!)
set-response-chat-command)
(defn update-text
[db [_ text]]
@ -341,27 +366,7 @@
(let [fixed (get-in db [:animations :response-height-fixed])]
(assoc-in db [:animations :response-height] (- fixed dy)))))
(register-handler :finish-animate-fix-response-height!
(fn [db _]
(let [fixed (get-in db [:animations :response-height-fixed])]
(-> db
(assoc-in [:animations :response-height] fixed)
(assoc-in [:animations :response-resize?] false)))))
(defn animate-fix-response-height! [{{height-anim-value :response-height-anim-value
from :response-height
to :response-height-fixed} :animations}]
(let [delta 5]
(anim/set-value height-anim-value from)
(anim/add-listener height-anim-value
(fn [val]
(when (<= (- to delta) (anim/value val) (+ to delta))
(anim/remove-all-listeners height-anim-value)
(dispatch [:finish-animate-fix-response-height!]))))
(anim/start (anim/spring height-anim-value {:toValue to}))))
(register-handler :fix-response-height
(after animate-fix-response-height!)
(fn [db _]
(let [current (get-in db [:animations :response-height])
normal-height response-height-normal
@ -369,11 +374,10 @@
delta (/ normal-height 2)
new-fixed (cond
(<= current delta) request-info-height
(<= current (+ normal-height delta)) normal-height
(<= current (+ normal-height delta)) (get-response-height db)
:else max-height)]
(-> db
(assoc-in [:animations :response-height-fixed] new-fixed)
(assoc-in [:animations :response-resize?] true)))))
(dispatch [:animate-response-resize])
(assoc-in db [:animations :response-height-fixed] new-fixed))))
(defn create-response-pan-responder []
(drag/create-pan-responder
@ -383,11 +387,7 @@
(dispatch [:fix-response-height]))}))
(defn init-response-dragging [db]
(let [height response-suggestions-styles/max-suggestions-height]
(-> db
(assoc-in [:animations :response-height-fixed] height)
(assoc-in [:animations :response-height] height)
(assoc-in [:animations :response-pan-responder] (create-response-pan-responder)))))
(assoc-in db [:animations :response-pan-responder] (create-response-pan-responder)))
(defn init-chat
([db] (init-chat db nil))

View File

@ -13,7 +13,6 @@
text2-color
text3-color]]))
(def max-suggestions-height 250)
(def header-height 50)
(def suggestion-height 56)