2016-06-30 19:00:44 +03:00
|
|
|
(ns status-im.transactions.subs
|
|
|
|
(:require-macros [reagent.ratom :refer [reaction]])
|
|
|
|
(:require [re-frame.core :refer [register-sub subscribe]]
|
2016-09-26 16:41:22 +03:00
|
|
|
[clojure.string :as s]
|
|
|
|
[status-im.utils.hex :as i]))
|
2016-06-30 19:00:44 +03:00
|
|
|
|
|
|
|
(register-sub :transactions
|
|
|
|
(fn [db]
|
|
|
|
(reaction (vals (:transactions @db)))))
|
|
|
|
|
|
|
|
(register-sub :contacts-by-address
|
|
|
|
(fn [db]
|
|
|
|
(reaction (into {} (map (fn [[_ {:keys [address] :as contact}]]
|
|
|
|
[address contact])
|
|
|
|
|
|
|
|
(:contacts @db)
|
|
|
|
)))))
|
|
|
|
|
|
|
|
(register-sub :contact-by-address
|
|
|
|
(fn [_ [_ address]]
|
|
|
|
(let [contacts (subscribe [:contacts-by-address])
|
|
|
|
address' (when address
|
2016-09-26 16:41:22 +03:00
|
|
|
(i/normalize-hex address))]
|
2016-06-30 19:00:44 +03:00
|
|
|
(reaction (@contacts address')))))
|
|
|
|
|
|
|
|
(register-sub :wrong-password?
|
|
|
|
(fn [db] (reaction (:wrong-password? @db))))
|