86 lines
3.2 KiB
Clojure
86 lines
3.2 KiB
Clojure
(ns status-im2.subs.activity-center
|
|
(:require [re-frame.core :as re-frame]
|
|
[status-im.utils.datetime :as datetime]
|
|
[status-im.multiaccounts.core :as multiaccounts]
|
|
[status-im.constants :as constants]
|
|
[status-im.activity-center.notification-types :as types]
|
|
[clojure.string :as string]))
|
|
|
|
(re-frame/reg-sub
|
|
:activity-center/notifications
|
|
:<- [:activity-center]
|
|
(fn [activity-center]
|
|
(:notifications activity-center)))
|
|
|
|
(re-frame/reg-sub
|
|
:activity-center/filter-status
|
|
:<- [:activity-center]
|
|
(fn [activity-center]
|
|
(get-in activity-center [:filter :status])))
|
|
|
|
(re-frame/reg-sub
|
|
:activity-center/filter-type
|
|
:<- [:activity-center]
|
|
(fn [activity-center]
|
|
(get-in activity-center [:filter :type] types/no-type)))
|
|
|
|
(re-frame/reg-sub
|
|
:activity-center/filtered-notifications
|
|
:<- [:activity-center/filter-type]
|
|
:<- [:activity-center/filter-status]
|
|
:<- [:activity-center/notifications]
|
|
(fn [[filter-type filter-status notifications]]
|
|
(get-in notifications [filter-type filter-status :data])))
|
|
|
|
(re-frame/reg-sub
|
|
:activity-center/filter-status-unread-enabled?
|
|
:<- [:activity-center/filter-status]
|
|
(fn [filter-status]
|
|
(= :unread filter-status)))
|
|
|
|
(defn- group-notifications-by-date
|
|
[notifications]
|
|
(->> notifications
|
|
(group-by #(datetime/timestamp->date-key (:timestamp %)))
|
|
(sort-by key >)
|
|
(map (fn [[date-key notifications]]
|
|
(let [first-notification (first notifications)]
|
|
{:title (string/capitalize (datetime/day-relative (:timestamp first-notification)))
|
|
:key date-key
|
|
:data (sort-by :timestamp > notifications)})))))
|
|
|
|
(re-frame/reg-sub
|
|
:activity.center/notifications-grouped-by-date
|
|
:<- [:activity.center/notifications]
|
|
:<- [:contacts/contacts]
|
|
(fn [[{:keys [notifications]} contacts]]
|
|
(let [supported-notifications
|
|
(filter (fn [{:keys [type last-message message]}]
|
|
(or (and (= types/one-to-one-chat type)
|
|
(not (nil? last-message)))
|
|
(and (= types/contact-request type)
|
|
(not= constants/contact-request-message-state-none
|
|
(-> contacts
|
|
(multiaccounts/contact-by-identity (:from message))
|
|
:contact-request-state)))
|
|
(= types/contact-request-retracted type)
|
|
(= types/private-group-chat type)
|
|
(= types/reply type)
|
|
(= types/mention type)))
|
|
notifications)]
|
|
(group-notifications-by-date
|
|
(map #(assoc %
|
|
:timestamp (or (:timestamp %) (:timestamp (or (:message %) (:last-message %))))
|
|
:contact (multiaccounts/contact-by-identity contacts (get-in % [:message :from])))
|
|
supported-notifications)))))
|
|
|
|
(re-frame/reg-sub
|
|
:activity.center/notifications-contact-requests
|
|
:<- [:activity.center/notifications-grouped-by-date]
|
|
(fn [notifications]
|
|
(reduce
|
|
(fn [acc {:keys [data]}]
|
|
(concat acc (filter #(= 1 (get-in % [:message :contact-request-state])) data)))
|
|
[]
|
|
notifications)))
|