mirror of
https://github.com/status-im/status-react.git
synced 2025-02-11 18:36:34 +00:00
28 lines
863 B
Clojure
28 lines
863 B
Clojure
(ns status-im.transactions.subs
|
|
(:require-macros [reagent.ratom :refer [reaction]])
|
|
(:require [re-frame.core :refer [register-sub subscribe]]
|
|
[clojure.string :as s]
|
|
[status-im.utils.hex :as i]))
|
|
|
|
(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
|
|
(i/normalize-hex address))]
|
|
(reaction (@contacts address')))))
|
|
|
|
(register-sub :wrong-password?
|
|
(fn [db] (reaction (:wrong-password? @db))))
|