mirror of
https://github.com/status-im/status-react.git
synced 2025-01-18 06:52:59 +00:00
133 lines
4.3 KiB
Clojure
133 lines
4.3 KiB
Clojure
(ns status-im.handlers
|
|
(:require
|
|
[re-frame.core :refer [after dispatch dispatch-sync debug]]
|
|
[status-im.db :refer [app-db]]
|
|
[status-im.data-store.core :as data-store]
|
|
[taoensso.timbre :as log]
|
|
[status-im.utils.crypt :refer [gen-random-bytes]]
|
|
[status-im.components.status :as status]
|
|
[status-im.utils.handlers :refer [register-handler] :as u]
|
|
status-im.chat.handlers
|
|
status-im.group-settings.handlers
|
|
status-im.navigation.handlers
|
|
status-im.contacts.handlers
|
|
status-im.discovery.handlers
|
|
status-im.new-group.handlers
|
|
status-im.participants.handlers
|
|
status-im.profile.handlers
|
|
status-im.commands.handlers.loading
|
|
status-im.commands.handlers.jail
|
|
status-im.qr-scanner.handlers
|
|
status-im.accounts.handlers
|
|
status-im.protocol.handlers
|
|
status-im.transactions.handlers
|
|
status-im.network.handlers
|
|
[status-im.utils.types :as t]
|
|
[status-im.constants :refer [console-chat-id]]))
|
|
|
|
;; -- Common --------------------------------------------------------------
|
|
|
|
(defn set-el [db [_ k v]]
|
|
(assoc db k v))
|
|
|
|
(register-handler :set set-el)
|
|
|
|
(defn set-in [db [_ path v]]
|
|
(assoc-in db path v))
|
|
|
|
(register-handler :set-in set-in)
|
|
|
|
(register-handler :set-animation
|
|
(fn [db [_ k v]]
|
|
(assoc-in db [:animations k] v)))
|
|
|
|
(register-handler :initialize-db
|
|
(fn [_ _]
|
|
(data-store/init)
|
|
(assoc app-db :current-account-id nil)))
|
|
|
|
(register-handler :initialize-account-db
|
|
(fn [db _]
|
|
(assoc db
|
|
:chats {}
|
|
:current-chat-id console-chat-id)))
|
|
|
|
(register-handler :initialize-account
|
|
(u/side-effect!
|
|
(fn [_ [_ address]]
|
|
(dispatch [:initialize-account-db])
|
|
(dispatch [:initialize-protocol address])
|
|
(dispatch [:initialize-sync-listener])
|
|
(dispatch [:initialize-chats])
|
|
(dispatch [:load-contacts])
|
|
(dispatch [:init-chat])
|
|
(dispatch [:init-discoveries])
|
|
(dispatch [:send-account-update-if-needed])
|
|
(dispatch [:remove-old-discoveries!]))))
|
|
|
|
(register-handler :reset-app
|
|
(u/side-effect!
|
|
(fn [_ _]
|
|
(dispatch [:initialize-db])
|
|
(dispatch [:load-accounts])
|
|
(dispatch [:init-console-chat])
|
|
(dispatch [:init-wallet-chat])
|
|
(dispatch [:load-commands! console-chat-id]))))
|
|
|
|
(def ecc (js/require "eccjs"))
|
|
|
|
(register-handler :initialize-crypt
|
|
(u/side-effect!
|
|
(fn [_ _]
|
|
(log/debug "initializing crypt")
|
|
(gen-random-bytes 1024 (fn [{:keys [error buffer]}]
|
|
(if error
|
|
(do
|
|
(log/error "Failed to generate random bytes to initialize sjcl crypto")
|
|
(dispatch [:notify-user {:type :error
|
|
:error error}]))
|
|
(do
|
|
(->> (.toString buffer "hex")
|
|
(.toBits (.. ecc -sjcl -codec -hex))
|
|
(.addEntropy (.. ecc -sjcl -random)))
|
|
(dispatch [:crypt-initialized]))))))))
|
|
|
|
(defn node-started [db result]
|
|
(log/debug "Started Node: "))
|
|
|
|
(register-handler :initialize-geth
|
|
(u/side-effect!
|
|
(fn [db _]
|
|
(log/debug "Starting node")
|
|
(status/start-node (fn [result] (node-started db result))))))
|
|
|
|
(register-handler :signal-event
|
|
(u/side-effect!
|
|
(fn [_ [_ event-str]]
|
|
(log/debug :event-str event-str)
|
|
(let [{:keys [type event]} (t/json->clj event-str)]
|
|
(case type
|
|
"transaction.queued" (dispatch [:transaction-queued event])
|
|
"transaction.failed" (dispatch [:transaction-failed event])
|
|
"node.started" (log/debug "Event *node.started* received")
|
|
"module.initialized" (dispatch [:status-module-initialized!])
|
|
(log/debug "Event " type " not handled"))))))
|
|
|
|
(register-handler :status-module-initialized!
|
|
(after (u/side-effect!
|
|
(fn [db]
|
|
(status/module-initialized!))))
|
|
(fn [db]
|
|
(assoc db :status-module-initialized? true)))
|
|
|
|
(register-handler :crypt-initialized
|
|
(u/side-effect!
|
|
(fn [_ _]
|
|
(log/debug "crypt initialized"))))
|
|
|
|
;; -- User data --------------------------------------------------------------
|
|
(register-handler :load-user-phone-number
|
|
(fn [db [_]]
|
|
;; todo fetch phone number from db
|
|
(assoc db :user-phone-number "123")))
|