fix #144 add-new-contact

Former-commit-id: 8a39ac2718
This commit is contained in:
Roman Volosovskyi 2016-08-26 12:16:20 +03:00
parent 1321a85659
commit dacc9a5446
2 changed files with 12 additions and 3 deletions

View File

@ -122,6 +122,12 @@
(assoc :new-contact-identity ""))) (assoc :new-contact-identity "")))
(register-handler :add-new-contact (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 (-> add-new-contact
((after save-contact)) ((after save-contact))
((after watch-contact)))) ((after watch-contact))))

View File

@ -9,6 +9,9 @@
(r/sorted :name :asc) (r/sorted :name :asc)
r/collection->map)) 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}] (defn create-contact [{:keys [whisper-identity] :as contact}]
(let [contact-from-db (r/get-one-by-field :account :contact (let [contact-from-db (r/get-one-by-field :account :contact
:whisper-identity whisper-identity)] :whisper-identity whisper-identity)]