fix signup process

This commit is contained in:
Adrian Tiberius 2016-06-30 19:05:28 +03:00
parent c878fba6f1
commit 763aac2141
6 changed files with 25 additions and 23 deletions

View File

@ -10,7 +10,7 @@
[prismatic/schema "1.0.4"] [prismatic/schema "1.0.4"]
^{:voom {:repo "git@github.com:status-im/status-lib.git" ^{:voom {:repo "git@github.com:status-im/status-lib.git"
:branch "master"}} :branch "master"}}
[status-im/protocol "0.1.1-20160630_104454-gd663db0"] [status-im/protocol "0.1.1-20160630_153846-gbf92f5f"]
[natal-shell "0.1.6"] [natal-shell "0.1.6"]
[com.andrewmcveigh/cljs-time "0.4.0"]] [com.andrewmcveigh/cljs-time "0.4.0"]]
:plugins [[lein-cljsbuild "1.1.1"] :plugins [[lein-cljsbuild "1.1.1"]

View File

@ -18,13 +18,14 @@
(defn account-created [result] (defn account-created [result]
(let [data (json->clj result) (let [data (json->clj result)
public-key (:pubkey data) public-key (:pubkey data)
address (:address data)] address (:address data)
account {:public-key public-key
:address address}]
(log/debug "Created account: " result) (log/debug "Created account: " result)
(when (not (str/blank? public-key)) (when (not (str/blank? public-key))
(do (do
(dispatch [:initialize-protocol public-key]) (dispatch [:initialize-protocol account])
(dispatch [:add-account {:address address (dispatch [:add-account account])))))
:public-key public-key}])))))
(register-handler :create-account (register-handler :create-account
(-> (fn [db [_ password]] (-> (fn [db [_ password]]

View File

@ -1,17 +1,20 @@
(ns status-im.handlers.server (ns status-im.handlers.server
(:require [re-frame.core :refer [subscribe dispatch dispatch-sync]] (:require [re-frame.core :refer [subscribe dispatch dispatch-sync]]
[status-im.utils.utils :refer [log on-error http-post]] [status-im.utils.utils :refer [on-error http-post]]
[status-im.utils.logging :as log])) [status-im.utils.logging :as log]))
(defn sign-up (defn sign-up
[db phone-number handler] [db phone-number handler]
(let [{:keys [public-key address] :as account} (get-in db [:user-identity])]
;(user-data/save-phone-number phone-number) ;(user-data/save-phone-number phone-number)
(log/debug "signing up with public-key" public-key "and phone " phone-number)
(http-post "sign-up" {:phone-number phone-number (http-post "sign-up" {:phone-number phone-number
:whisper-identity (get-in db [:user-identity :public])} :whisper-identity public-key
:address address}
(fn [body] (fn [body]
(log body) (log/debug body)
(handler))) (handler)))
db) db))
(defn sign-up-confirm (defn sign-up-confirm
[confirmation-code handler] [confirmation-code handler]

View File

@ -12,13 +12,11 @@
(assoc-in db db/protocol-initialized-path initialized?)) (assoc-in db db/protocol-initialized-path initialized?))
(defn update-identity [db identity] (defn update-identity [db identity]
(let [password (:identity-password db) (let [identity-string (to-edn-string identity)]
encrypted (password-encrypt password (to-edn-string identity))] (s/put kv/kv-store :identity identity-string)
(s/put kv/kv-store :identity encrypted)
(assoc db :user-identity identity))) (assoc db :user-identity identity)))
(defn stored-identity [db] (defn stored-identity [db]
(let [encrypted (s/get kv/kv-store :identity) (let [identity (s/get kv/kv-store :identity)]
password (:identity-password db)] (when identity
(when encrypted (read-string identity))))
(read-string (password-decrypt password encrypted)))))

View File

@ -67,7 +67,7 @@
phone-number [:get :phone-number] phone-number [:get :phone-number]
email [:get :email] email [:get :email]
status [:get :status] status [:get :status]
identity [:get-in [:user-identity :public]]] identity [:get-in [:user-identity :public-key]]]
[scroll-view {:style st/profile} [scroll-view {:style st/profile}
[touchable-highlight {:style st/back-btn-touchable [touchable-highlight {:style st/back-btn-touchable
:on-press #(dispatch [:navigate-back])} :on-press #(dispatch [:navigate-back])}

View File

@ -17,8 +17,8 @@
(register-handler :initialize-protocol (register-handler :initialize-protocol
(u/side-effect! (u/side-effect!
(fn [db [_ public-key]] (fn [db [_ account]]
(init-protocol public-key (make-handler db))))) (init-protocol account (make-handler db)))))
(register-handler :protocol-initialized (register-handler :protocol-initialized
(fn [db [_ identity]] (fn [db [_ identity]]