mirror of
https://github.com/status-im/status-mobile.git
synced 2025-02-23 05:48:46 +00:00
20 lines
669 B
Plaintext
20 lines
669 B
Plaintext
|
(ns status-im.data-store.mailservers
|
||
|
|
(:require [re-frame.core :as re-frame]
|
||
|
|
[status-im.data-store.realm.core :as core]))
|
||
|
|
|
||
|
|
(re-frame/reg-cofx
|
||
|
|
:data-store/get-all-mailservers
|
||
|
|
(fn [cofx _]
|
||
|
|
(assoc cofx :data-store/mailservers (-> @core/account-realm
|
||
|
|
(core/get-all :mailserver)
|
||
|
|
(core/all-clj :mailserver)))))
|
||
|
|
|
||
|
|
(defn save-mailserver-tx
|
||
|
|
"Returns tx function for saving a mailserver"
|
||
|
|
[{:keys [id] :as mailserver}]
|
||
|
|
(fn [realm]
|
||
|
|
(core/create realm
|
||
|
|
:mailserver
|
||
|
|
mailserver
|
||
|
|
(core/exists? realm :mailserver :id id))))
|