Merge pull request #260 from status-im/bug/#252

Chats list: new messages counter for group chat (fixes #252)

Former-commit-id: 87bb818866

src/status_im/chat/handlers.cljs

@@ -58,9 +58,9 @@
             (if all-loaded?
               db
               (let [messages-path [:chats current-chat-id :messages]
-                    messages (get-in db messages-path)
+                    messages      (get-in db messages-path)
-                    new-messages (messages/get-messages current-chat-id (count messages))
+                    new-messages  (messages/get-messages current-chat-id (count messages))
-                    all-loaded? (> default-number-of-messages (count new-messages))]
+                    all-loaded?   (> default-number-of-messages (count new-messages))]
                 (-> db
                     (assoc :loading-allowed false)
                     (update-in messages-path concat new-messages)
@@ -172,7 +172,7 @@
 
 (defn init-console-chat
   [{:keys [chats] :as db} existing-account?]
-  (let [chat-id "console"
+  (let [chat-id  "console"
         new-chat sign-up-service/console-chat]
     (if (chats chat-id)
       db
@@ -249,7 +249,7 @@
                    (map (fn [{:keys [chat-id] :as chat}]
                           [chat-id chat]))
                    (into {}))
-        ids (set (keys chats))]
+        ids   (set (keys chats))]
 
     (-> db
         (assoc :chats chats)
@@ -268,9 +268,9 @@
 
 (defmethod nav/preload-data! :chat
   [{:keys [current-chat-id] :as db} [_ _ id]]
-  (let [chat-id (or id current-chat-id)
+  (let [chat-id  (or id current-chat-id)
         messages (get-in db [:chats chat-id :messages])
-        db' (assoc db :current-chat-id chat-id)]
+        db'      (assoc db :current-chat-id chat-id)]
     (dispatch [:load-requests! chat-id])
     (dispatch [:load-commands! chat-id])
     (if (seq messages)
@@ -405,31 +405,35 @@
   [(after
      (fn [{:keys [current-chat-id] :as db}]
        (let [suggestions (get-in db [:has-suggestions? current-chat-id])
-             mode (get-in db [:edit-mode current-chat-id])]
+             mode        (get-in db [:edit-mode current-chat-id])]
          (when (and (= :command mode) suggestions)
            (dispatch [:fix-response-height nil nil true])))))
    (after
      (fn [{:keys [current-chat-id] :as db}]
        (let [suggestions (get-in db [:command-suggestions current-chat-id])
-             mode (get-in db [:edit-mode current-chat-id])]
+             mode        (get-in db [:edit-mode current-chat-id])]
          (when (and (not= :command mode) (seq suggestions))
            (dispatch [:fix-commands-suggestions-height nil nil true])))))]
   (fn [db [_ h]]
     (assoc db :layout-height h)))
 
+(defn send-seen!
+  [{:keys [web3 current-public-key chats]}
+   [_ {:keys [from chat-id message-id]}]]
+  (when-not (console? chat-id)
+    (let [{:keys [group-chat]} (chats chat-id)]
+      (protocol/send-seen! {:web3    web3
+                            :message {:from       current-public-key
+                                      :to         from
+                                      :group-id   (when group-chat chat-id)
+                                      :message-id message-id}}))))
 (register-handler :send-seen!
-  (after (fn [_ [_ options]]
+  [(after (fn [_ [_ {:keys [message-id]}]]
-           (dispatch [:message-seen options])))
+            (messages/update-message! {:message-id     message-id
-  (u/side-effect!
+                                       :message-status :seen})))
-    (fn [{:keys [web3 current-public-key chats]}
+   (after (fn [_ [_ {:keys [chat-id]}]]
-         [_ {:keys [from chat-id message-id]}]]
+            (dispatch [:remove-unviewed-messages chat-id])))]
-      (when-not (console? chat-id)
+  (u/side-effect! send-seen!))
-        (let [{:keys [group-chat]} (chats chat-id)]
-          (protocol/send-seen! {:web3    web3
-                                :message {:from       current-public-key
-                                          :to         from
-                                          :group-id   (when group-chat chat-id)
-                                          :message-id message-id}}))))))
 
 (register-handler :set-web-view-url
   (fn [{:keys [current-chat-id] :as db} [_ url]]

src/status_im/chats_list/screen.cljs

@@ -41,8 +41,6 @@
 
 (defview chats-list []
   [chats [:get :chats]]
-  ;; todo what is this?!
-  #_(dispatch [:set :chats-scrolled? false])
   [view st/chats-container
    [chats-list-toolbar]
    [list-view {:dataSource (to-datasource chats)

src/status_im/protocol/handlers.cljs

@@ -234,11 +234,7 @@
   (update-message-status :sent))
 
 (register-handler :message-seen
-  [(after (save-message-status! :seen))
+  [(after (save-message-status! :seen))]
-   (after (fn [_ [_ {:keys              [from]
-                     {:keys [group-id]} :payload}]]
-            (when-not group-id
-              (dispatch [:remove-unviewed-messages from]))))]
   (update-message-status :seen))
 
 (register-handler :pending-message-upsert