parent
dd87315e9a
commit
bd6af42af4
|
@ -35,6 +35,7 @@
|
||||||
(let [data (json->clj result)
|
(let [data (json->clj result)
|
||||||
public-key (:pubkey data)
|
public-key (:pubkey data)
|
||||||
address (:address data)
|
address (:address data)
|
||||||
|
mnemonic (:mnemonic data)
|
||||||
account {:public-key public-key
|
account {:public-key public-key
|
||||||
:address address
|
:address address
|
||||||
:name address
|
:name address
|
||||||
|
@ -43,7 +44,8 @@
|
||||||
(when (not (str/blank? public-key))
|
(when (not (str/blank? public-key))
|
||||||
(do
|
(do
|
||||||
(dispatch-sync [:add-account account])
|
(dispatch-sync [:add-account account])
|
||||||
(dispatch [:login-account address password])))))
|
(dispatch-sync [:save-password password mnemonic])
|
||||||
|
(dispatch-sync [:login-account address password])))))
|
||||||
|
|
||||||
(register-handler
|
(register-handler
|
||||||
:create-account
|
:create-account
|
||||||
|
|
|
@ -163,9 +163,8 @@
|
||||||
(sign-up-service/init db)))
|
(sign-up-service/init db)))
|
||||||
|
|
||||||
(register-handler :save-password
|
(register-handler :save-password
|
||||||
(fn [db [_ password]]
|
(fn [db [_ password mnemonic]]
|
||||||
(sign-up-service/save-password password)
|
(sign-up-service/save-password password mnemonic)
|
||||||
(dispatch [:create-account password])
|
|
||||||
(assoc db :password-saved true)))
|
(assoc db :password-saved true)))
|
||||||
|
|
||||||
(register-handler :sign-up
|
(register-handler :sign-up
|
||||||
|
|
|
@ -94,7 +94,7 @@
|
||||||
(on-sign-up-response (label :t/incorrect-code)))))
|
(on-sign-up-response (label :t/incorrect-code)))))
|
||||||
|
|
||||||
;; -- Saving password ----------------------------------------
|
;; -- Saving password ----------------------------------------
|
||||||
(defn save-password [password]
|
(defn save-password [password mnemonic]
|
||||||
;; TODO validate and save password
|
;; TODO validate and save password
|
||||||
(dispatch [:received-message
|
(dispatch [:received-message
|
||||||
{:msg-id (random/id)
|
{:msg-id (random/id)
|
||||||
|
@ -120,17 +120,14 @@
|
||||||
:from "console"
|
:from "console"
|
||||||
:to "me"
|
:to "me"
|
||||||
:new? false}])
|
:new? false}])
|
||||||
;; TODO generate passphrase
|
(dispatch [:received-message
|
||||||
(let [passphrase (str "The brash businessman's braggadocio and public squabbing with "
|
{:msg-id (random/id)
|
||||||
"candidates in the US presidential election")]
|
:content mnemonic
|
||||||
(dispatch [:received-message
|
:content-type text-content-type
|
||||||
{:msg-id (random/id)
|
:outgoing false
|
||||||
:content passphrase
|
:from "console"
|
||||||
:content-type text-content-type
|
:to "me"
|
||||||
:outgoing false
|
:new? false}])
|
||||||
:from "console"
|
|
||||||
:to "me"
|
|
||||||
:new? false}]))
|
|
||||||
(dispatch [:received-message
|
(dispatch [:received-message
|
||||||
{:msg-id "8"
|
{:msg-id "8"
|
||||||
:content (label :t/written-down)
|
:content (label :t/written-down)
|
||||||
|
|
|
@ -20,7 +20,7 @@
|
||||||
|
|
||||||
(def console-events
|
(def console-events
|
||||||
{:save-password (fn [[parameter]]
|
{:save-password (fn [[parameter]]
|
||||||
(dispatch [:save-password parameter]))
|
(dispatch [:create-account parameter]))
|
||||||
:sign-up (fn [[parameter]]
|
:sign-up (fn [[parameter]]
|
||||||
(dispatch [:sign-up parameter]))
|
(dispatch [:sign-up parameter]))
|
||||||
:confirm-sign-up (fn [[parameter]]
|
:confirm-sign-up (fn [[parameter]]
|
||||||
|
|
Loading…
Reference in New Issue