Support for React Native 0.36.0

Former-commit-id: c05956ec2e
This commit is contained in:
Alexander Pantyuhov 2016-10-31 14:45:20 +03:00
parent b2bc7ac3b7
commit b03e36db03
7 changed files with 38 additions and 58 deletions

View File

@ -2,16 +2,10 @@
(def datemark-wrapper (def datemark-wrapper
{:flex 1 {:flex 1
:flex-direction :column :align-items :center})
:align-items :center
:justify-content :center})
(def datemark (def datemark
{:flex 1 {:background-color "#bbc4cb33"
:flex-direction :column
:align-items :center
:justify-content :center
:background-color "#bbc4cb33"
:padding-left 12 :padding-left 12
:padding-right 12 :padding-right 12
:margin-top 8 :margin-top 8
@ -21,4 +15,5 @@
(def datemark-text (def datemark-text
{:color "#838c93" {:color "#838c93"
:top 4
:font-size 12}) :font-size 12})

View File

@ -175,7 +175,6 @@
{:marginTop 4 {:marginTop 4
:height 14}) :height 14})
(def content-command-view (def content-command-view
{:flexDirection :column}) {:flexDirection :column})
@ -262,7 +261,7 @@
:color text2-color}) :color text2-color})
(defn message-container [height] (defn message-container [height]
{:height height}) {:top height})
(defn new-message-container [margin on-top?] (defn new-message-container [margin on-top?]
{:background-color color-white {:background-color color-white

View File

@ -10,7 +10,8 @@
separator-color separator-color
text1-color text1-color
text2-color text2-color
text3-color]])) text3-color]]
[taoensso.timbre :as log]))
(def suggestion-height 60) (def suggestion-height 60)

View File

@ -255,37 +255,31 @@
[group-message-delivery-status message] [group-message-delivery-status message]
[message-delivery-status message]))]) [message-delivery-status message]))])
(defn message-container-animation-logic [{:keys [to-value val callback]}] (defn message-container-animation-logic [{:keys [top-offset callback]}]
(fn [_] (fn [_]
(let [to-value @to-value]
(when (< 0 to-value)
(anim/start (anim/start
(anim/timing val {:toValue to-value (anim/timing top-offset {:toValue 0
:duration 250}) :duration 150})
(fn [arg] (fn [arg]
(when (.-finished arg) (when (.-finished arg)
(callback)))))))) (callback))))))
(defn message-container [message & children] (defn message-container [message & children]
(if (:new? message) (if (:new? message)
(let [layout-height (r/atom 0) (let [top-offset (anim/create-value 40)
anim-value (anim/create-value 1)
anim-callback #(dispatch [:set-message-shown message]) anim-callback #(dispatch [:set-message-shown message])
context {:to-value layout-height context {:top-offset top-offset
:val anim-value
:callback anim-callback} :callback anim-callback}
on-update (message-container-animation-logic context)] on-update (message-container-animation-logic context)]
(r/create-class (r/create-class
{:component-did-update {:component-did-update
on-update
:component-did-mount
on-update on-update
:reagent-render :reagent-render
(fn [message & children] (fn [message & children]
@layout-height [animated-view {:style (st/message-container top-offset)}
[animated-view {:style (st/message-container anim-value)} (into [view] children)])}))
(into [view {:onLayout (fn [event]
(let [height (.. event -nativeEvent -layout -height)]
(reset! layout-height height)))}]
children)])}))
(into [view] children))) (into [view] children)))
(defn chat-message [{:keys [outgoing message-id chat-id user-statuses from]}] (defn chat-message [{:keys [outgoing message-id chat-id user-statuses from]}]

View File

@ -88,9 +88,9 @@
[text {:style st/style-message-text [text {:style st/style-message-text
:font :default} :font :default}
content]]] content]]]
[request-button message-id command @status-initialized?]
(when (:request-text command) (when (:request-text command)
[view st/command-request-text-view [view st/command-request-text-view
[text {:style st/style-sub-text [text {:style st/style-sub-text
:font :default} :font :default}
(:request-text command)]])])))) (:request-text command)]])
[request-button message-id command @status-initialized?]]))))

View File

@ -19,7 +19,7 @@
[status-im.utils.platform :refer [ios?]] [status-im.utils.platform :refer [ios?]]
[status-im.chat.suggestions-responder :as resp] [status-im.chat.suggestions-responder :as resp]
[status-im.chat.constants :as c] [status-im.chat.constants :as c]
[taoensso.timbre :as log])) [status-im.i18n :refer [label]]))
(defn set-command-input [command] (defn set-command-input [command]
(dispatch [:set-chat-command command])) (dispatch [:set-chat-command command]))
@ -40,12 +40,6 @@
[text {:style st/request-message-info} [text {:style st/request-message-info}
"By console, today at 14:50"]]]]) "By console, today at 14:50"]]]])
(defn render-request-row
[{:keys [chat-id message-id] :as row} _ _]
(list-item
^{:key [chat-id message-id]}
[request-item row]))
(defn suggestion-list-item (defn suggestion-list-item
[[command {:keys [description] [[command {:keys [description]
name :name name :name
@ -63,9 +57,6 @@
[view (st/suggestion-background suggestion) [view (st/suggestion-background suggestion)
[text {:style st/suggestion-text} label]]]]]])) [text {:style st/suggestion-text} label]]]]]]))
(defn render-row [row _ _]
(list-item [suggestion-list-item row]))
(defn title [s] (defn title [s]
[view st/title-container [view st/title-container
[text {:style st/title-text} s]]) [text {:style st/title-text} s]])
@ -73,20 +64,18 @@
(defview suggestions-view [] (defview suggestions-view []
[suggestions [:get-suggestions] [suggestions [:get-suggestions]
requests [:get-requests]] requests [:get-requests]]
[view {:flex 1}
[scroll-view {:keyboardShouldPersistTaps true} [scroll-view {:keyboardShouldPersistTaps true}
;; todo translations
(when (seq requests) [title "Requests"])
(when (seq requests) (when (seq requests)
[view [title (label :t/suggestions-requests)])
[list-view {:dataSource (to-datasource requests) (when (seq requests)
:keyboardShouldPersistTaps true (for [{:keys [chat-id message-id] :as request} requests]
:renderRow render-request-row}]]) ^{:key [chat-id message-id]}
;; todo translations [request-item request]))
[title "Commands"] [title (label :t/suggestions-commands)]
[view (for [suggestion suggestions]
[list-view {:dataSource (to-datasource suggestions) ^{:key (first suggestion)}
:keyboardShouldPersistTaps true [suggestion-list-item suggestion])]])
:renderRow render-row}]]])
(defn header [h] (defn header [h]
(let [layout-height (subscribe [:max-layout-height :default]) (let [layout-height (subscribe [:max-layout-height :default])

View File

@ -28,6 +28,8 @@
:active-unknown "Unknown" :active-unknown "Unknown"
:available "Available" :available "Available"
:no-messages "No messages" :no-messages "No messages"
:suggestions-requests "Requests"
:suggestions-commands "Commands"
;sync ;sync
:sync-in-progress "Syncing..." :sync-in-progress "Syncing..."