fix #144 add-new-contact
This commit is contained in:
parent
8483d444af
commit
8a39ac2718
|
@ -122,6 +122,12 @@
|
|||
(assoc :new-contact-identity "")))
|
||||
|
||||
(register-handler :add-new-contact
|
||||
(u/side-effect!
|
||||
(fn [_ [_ {:keys [whisper-identity] :as contact}]]
|
||||
(when-not (contacts/get-contact whisper-identity)
|
||||
(dispatch [::new-contact contact])))))
|
||||
|
||||
(register-handler ::new-contact
|
||||
(-> add-new-contact
|
||||
((after save-contact))
|
||||
((after watch-contact))))
|
||||
|
|
|
@ -9,6 +9,9 @@
|
|||
(r/sorted :name :asc)
|
||||
r/collection->map))
|
||||
|
||||
(defn get-contact [id]
|
||||
(r/get-one-by-field :account :contact :whisper-identity id))
|
||||
|
||||
(defn create-contact [{:keys [whisper-identity] :as contact}]
|
||||
(let [contact-from-db (r/get-one-by-field :account :contact
|
||||
:whisper-identity whisper-identity)]
|
||||
|
|
Loading…
Reference in New Issue