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

fix loading of chat's messages

This commit is contained in:
Roman Volosovskyi 2016-05-21 16:32:04 +03:00
parent 277905124d
commit 8bda739201
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/status_im/chat/handlers.cljs
View File

@ -285,13 +285,15 @@
(defmethod nav/preload-data! :chat (defmethod nav/preload-data! :chat
[{:keys [current-chat-id] :as db} [_ _ id]] [{:keys [current-chat-id] :as db} [_ _ id]]
(let [messages (get-in db [:chats current-chat-id :messages])] (let [chat-id (or id current-chat-id)
messages (get-in db [:chats chat-id :messages])
db' (assoc db :current-chat-id chat-id)]
(println "wuuut..." chat-id messages)
(if (seq messages) (if (seq messages)
(-> db db'
(assoc :current-chat-id (or id current-chat-id)) (-> db'
load-messages! load-messages!
init-chat) init-chat))))
db)))
(defn prepare-chat (defn prepare-chat
[{:keys [contacts] :as db} [_ contcat-id]] [{:keys [contacts] :as db} [_ contcat-id]]

10
src/status_im/group_settings/subs.cljs
View File

@ -3,12 +3,10 @@
(:require [re-frame.core :refer [register-sub]])) (:require [re-frame.core :refer [register-sub]]))
(register-sub :selected-participant (register-sub :selected-participant
(fn [db [_]] (fn [db _]
(let [participants (:selected-participants @db)] (reaction
(reaction (let [identity (first (:selected-participants @db))]
(when (seq participants) (get-in @db [:contacts identity])))))
(let [identity (first participants)]
(get-in @db [:contacts identity])))))))
(register-sub :group-settings (register-sub :group-settings
(fn [db [_ k]] (fn [db [_ k]]