status-im
/
status-react
mirror of https://github.com/status-im/status-react.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/status_im/chat/styles/datemark.cljs
View File

@ -1,17 +1,11 @@
(ns status-im.chat.styles.datemark)
(def datemark-wrapper
{:flex 1
:flex-direction :column
:align-items :center
:justify-content :center})
{:flex 1
:align-items :center})
(def datemark
{:flex 1
:flex-direction :column
:align-items :center
:justify-content :center
:background-color "#bbc4cb33"
{:background-color "#bbc4cb33"
:padding-left 12
:padding-right 12
:margin-top 8
@ -21,4 +15,5 @@
(def datemark-text
{:color "#838c93"
:top 4
:font-size 12})

3
src/status_im/chat/styles/message.cljs
View File

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

3
src/status_im/chat/styles/suggestions.cljs
View File

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

34
src/status_im/chat/views/message.cljs
View File

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

4
src/status_im/chat/views/request_message.cljs
View File

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

37
src/status_im/chat/views/suggestions.cljs
View File

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

2
src/status_im/translations/en.cljs
View File

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