mirror of
https://github.com/status-im/status-mobile.git
synced 2025-02-06 22:04:37 +00:00
74 lines
1.6 KiB
Plaintext
74 lines
1.6 KiB
Plaintext
|
(ns status-im.data-store.chats
|
||
|
|
(:require [status-im.data-store.realm.chats :as data-store]
|
||
|
|
[re-frame.core :refer [dispatch]])
|
||
|
|
(:refer-clojure :exclude [exists?]))
|
||
|
|
|
||
|
|
(defn- normalize-contacts
|
||
|
|
[chats]
|
||
|
|
(map #(update % :contacts vals) chats))
|
||
|
|
|
||
|
|
(defn get-all
|
||
|
|
[]
|
||
|
|
(-> (data-store/get-all-active)
|
||
|
|
normalize-contacts))
|
||
|
|
|
||
|
|
(defn get-by-id
|
||
|
|
[id]
|
||
|
|
(data-store/get-by-id id))
|
||
|
|
|
||
|
|
(defn exists?
|
||
|
|
[chat-id]
|
||
|
|
(data-store/exists? chat-id))
|
||
|
|
|
||
|
|
(defn save
|
||
|
|
[{:keys [last-message-id chat-id] :as chat}]
|
||
|
|
(let [chat (assoc chat :last-message-id (or last-message-id ""))]
|
||
|
|
(data-store/save chat (data-store/exists? chat-id))))
|
||
|
|
|
||
|
|
(defn delete
|
||
|
|
[chat-id]
|
||
|
|
(data-store/delete chat-id))
|
||
|
|
|
||
|
|
(defn get-contacts
|
||
|
|
[chat-id]
|
||
|
|
(data-store/get-contacts chat-id))
|
||
|
|
|
||
|
|
(defn has-contact?
|
||
|
|
[chat-id identity]
|
||
|
|
(data-store/has-contact? chat-id identity))
|
||
|
|
|
||
|
|
(defn add-contacts
|
||
|
|
[chat-id identities]
|
||
|
|
(data-store/add-contacts chat-id identities)
|
||
|
|
; TODO: move this somewhere else
|
||
|
|
; TODO: temp. Update chat in db atom
|
||
|
|
(dispatch [:initialize-chats]))
|
||
|
|
|
||
|
|
(defn remove-contacts
|
||
|
|
[chat-id identities]
|
||
|
|
(data-store/remove-contacts chat-id identities))
|
||
|
|
|
||
|
|
(defn save-property
|
||
|
|
[chat-id property-name value]
|
||
|
|
(data-store/save-property chat-id property-name value))
|
||
|
|
|
||
|
|
(defn get-property
|
||
|
|
[chat-id property-name]
|
||
|
|
(data-store/get-property chat-id property-name))
|
||
|
|
|
||
|
|
(defn is-active?
|
||
|
|
[chat-id]
|
||
|
|
(get-property chat-id :is-active))
|
||
|
|
|
||
|
|
(defn removed-at
|
||
|
|
[chat-id]
|
||
|
|
(get-property chat-id :removed-at))
|
||
|
|
|
||
|
|
(defn get-active-group-chats
|
||
|
|
[]
|
||
|
|
(data-store/get-active-group-chats))
|
||
|
|
|
||
|
|
(defn set-active
|
||
|
|
[chat-id active?]
|
||
|
|
(save-property chat-id :is-active active?))
|