Change messages subscription

This commit is contained in:
janherich 2018-01-04 00:34:19 +01:00
parent fc92dafca6
commit 8396442847
No known key found for this signature in database
GPG Key ID: C23B473AFBE94D13
2 changed files with 12 additions and 13 deletions

View File

@ -73,8 +73,8 @@
:group-chat group-chat
:current-public-key current-public-key)])
(defview messages-view [chat-id group-chat]
(letsubs [messages [:get-chat-messages chat-id]
(defview messages-view [group-chat]
(letsubs [messages [:get-current-chat-messages]
current-public-key [:get-current-public-key]]
[list/flat-list {:data messages
:render-fn #(message-row {:group-chat group-chat
@ -86,11 +86,11 @@
:keyboardShouldPersistTaps (if platform/android? :always :handled)}]))
(defview chat []
(letsubs [{:keys [chat-id group-chat input-text]} [:get-current-chat]
show-actions? [:get-current-chat-ui-prop :show-actions?]
show-bottom-info? [:get-current-chat-ui-prop :show-bottom-info?]
show-emoji? [:get-current-chat-ui-prop :show-emoji?]
layout-height [:get :layout-height]]
(letsubs [{:keys [group-chat input-text]} [:get-current-chat]
show-actions? [:get-current-chat-ui-prop :show-actions?]
show-bottom-info? [:get-current-chat-ui-prop :show-bottom-info?]
show-emoji? [:get-current-chat-ui-prop :show-emoji?]
layout-height [:get :layout-height]]
{:component-did-mount #(re-frame/dispatch [:check-and-open-dapp!])
:component-will-unmount #(re-frame/dispatch [:set-chat-ui-props {:show-emoji? false}])}
[react/view {:style style/chat-view
@ -99,7 +99,7 @@
(when (not= height layout-height)
(re-frame/dispatch [:set-layout-height height]))))}
[chat-toolbar]
[messages-view chat-id group-chat]
[messages-view group-chat]
[input/container {:text-empty? (string/blank? input-text)}]
(when show-actions?
[actions/actions-view])

View File

@ -133,11 +133,10 @@
:value (i18n/label :t/datetime-today)})))
(reg-sub
:get-chat-messages
(fn [[_ chat-id]]
(subscribe [:get-chat-message-datemark-groups chat-id]))
(fn [message-datemark-groups]
(messages-stream message-datemark-groups)))
:get-current-chat-messages
:<- [:get-current-chat]
(fn [{:keys [messages]}]
(-> messages message-datemark-groups messages-stream)))
(reg-sub
:get-commands-for-chat