parent
1d3a91c0ee
commit
13d689bb4a
|
@ -114,7 +114,6 @@
|
||||||
|
|
||||||
(defn set-new-contact-from-qr
|
(defn set-new-contact-from-qr
|
||||||
[{:keys [new-contact] :as db} [_ _ qr-contact]]
|
[{:keys [new-contact] :as db} [_ _ qr-contact]]
|
||||||
(println "WWUUUUUUTTT" qr-contact)
|
|
||||||
(assoc db :new-contact (merge new-contact qr-contact)))
|
(assoc db :new-contact (merge new-contact qr-contact)))
|
||||||
|
|
||||||
(register-handler :set-new-contact-from-qr set-new-contact-from-qr)
|
(register-handler :set-new-contact-from-qr set-new-contact-from-qr)
|
||||||
|
|
|
@ -25,7 +25,6 @@
|
||||||
(defn handle-qr-request
|
(defn handle-qr-request
|
||||||
[db [_ context data]]
|
[db [_ context data]]
|
||||||
(let [handler (get-in db [:qr-codes context])]
|
(let [handler (get-in db [:qr-codes context])]
|
||||||
(println handler context data)
|
|
||||||
(dispatch [handler context data])))
|
(dispatch [handler context data])))
|
||||||
|
|
||||||
(defn clear-qr-request [db [_ context]]
|
(defn clear-qr-request [db [_ context]]
|
||||||
|
|
|
@ -5,7 +5,6 @@
|
||||||
"Creates subscrition that cheks if collection (map or set) contains element"
|
"Creates subscrition that cheks if collection (map or set) contains element"
|
||||||
[collection]
|
[collection]
|
||||||
(fn [db [_ element]]
|
(fn [db [_ element]]
|
||||||
(println "WWWWWWWWWW" (type db))
|
|
||||||
(-> (collection @db)
|
(-> (collection @db)
|
||||||
(contains? element)
|
(contains? element)
|
||||||
(reaction))))
|
(reaction))))
|
||||||
|
|
Loading…
Reference in New Issue