mirror of
https://github.com/status-im/status-mobile.git
synced 2025-01-28 17:36:38 +00:00
25 lines
1001 B
Clojure
25 lines
1001 B
Clojure
(ns status-im.data-store.accounts
|
|
(:require [cljs.core.async :as async]
|
|
[re-frame.core :as re-frame]
|
|
[status-im.data-store.realm.core :as core]
|
|
[status-im.data-store.realm.accounts :as data-store]))
|
|
|
|
;; TODO janherich: define as cofx once debug handlers are refactored
|
|
(defn get-by-address [address]
|
|
(data-store/get-by-address address))
|
|
|
|
(re-frame/reg-cofx
|
|
:data-store/get-all-accounts
|
|
(fn [coeffects _]
|
|
(assoc coeffects :all-accounts (data-store/get-all-as-list))))
|
|
|
|
(re-frame/reg-fx
|
|
:data-store/save-account
|
|
(fn [{:keys [after-update-event] :as account}]
|
|
(let [account-to-save (dissoc account :after-update-event)]
|
|
(async/go (async/>! core/realm-queue #(if after-update-event
|
|
(do (data-store/save account-to-save true)
|
|
(re-frame/dispatch after-update-event))
|
|
(data-store/save account-to-save true)))))))
|
|
|