show mnemonic on account creation

Former-commit-id: 3f096545d7
This commit is contained in:
Adrian Tiberius 2016-08-24 15:48:21 +03:00
parent dd87315e9a
commit bd6af42af4
4 changed files with 15 additions and 17 deletions

View File

@ -35,6 +35,7 @@
(let [data (json->clj result)
public-key (:pubkey data)
address (:address data)
mnemonic (:mnemonic data)
account {:public-key public-key
:address address
:name address
@ -43,7 +44,8 @@
(when (not (str/blank? public-key))
(do
(dispatch-sync [:add-account account])
(dispatch [:login-account address password])))))
(dispatch-sync [:save-password password mnemonic])
(dispatch-sync [:login-account address password])))))
(register-handler
:create-account

View File

@ -163,9 +163,8 @@
(sign-up-service/init db)))
(register-handler :save-password
(fn [db [_ password]]
(sign-up-service/save-password password)
(dispatch [:create-account password])
(fn [db [_ password mnemonic]]
(sign-up-service/save-password password mnemonic)
(assoc db :password-saved true)))
(register-handler :sign-up

View File

@ -94,7 +94,7 @@
(on-sign-up-response (label :t/incorrect-code)))))
;; -- Saving password ----------------------------------------
(defn save-password [password]
(defn save-password [password mnemonic]
;; TODO validate and save password
(dispatch [:received-message
{:msg-id (random/id)
@ -120,17 +120,14 @@
:from "console"
:to "me"
:new? false}])
;; TODO generate passphrase
(let [passphrase (str "The brash businessman's braggadocio and public squabbing with "
"candidates in the US presidential election")]
(dispatch [:received-message
{:msg-id (random/id)
:content passphrase
:content-type text-content-type
:outgoing false
:from "console"
:to "me"
:new? false}]))
(dispatch [:received-message
{:msg-id (random/id)
:content mnemonic
:content-type text-content-type
:outgoing false
:from "console"
:to "me"
:new? false}])
(dispatch [:received-message
{:msg-id "8"
:content (label :t/written-down)

View File

@ -20,7 +20,7 @@
(def console-events
{:save-password (fn [[parameter]]
(dispatch [:save-password parameter]))
(dispatch [:create-account parameter]))
:sign-up (fn [[parameter]]
(dispatch [:sign-up parameter]))
:confirm-sign-up (fn [[parameter]]