Merge pull request #236 from status-im/feature/remove-status-lib
Cleanup after protocol's refactoring
Former-commit-id: 8ca1d645a3
This commit is contained in:
commit
10c205f9f5
|
@ -3,13 +3,11 @@
|
||||||
:url "http://example.com/FIXME"
|
:url "http://example.com/FIXME"
|
||||||
:license {:name "Eclipse Public License"
|
:license {:name "Eclipse Public License"
|
||||||
:url "http://www.eclipse.org/legal/epl-v10.html"}
|
:url "http://www.eclipse.org/legal/epl-v10.html"}
|
||||||
:dependencies [[org.clojure/clojure "1.9.0-alpha11"]
|
:dependencies [[org.clojure/clojure "1.9.0-alpha12"]
|
||||||
[org.clojure/clojurescript "1.9.227"]
|
[org.clojure/clojurescript "1.9.229"]
|
||||||
[reagent "0.5.1" :exclusions [cljsjs/react]]
|
[reagent "0.5.1" :exclusions [cljsjs/react]]
|
||||||
[re-frame "0.7.0"]
|
[re-frame "0.7.0"]
|
||||||
[prismatic/schema "1.0.4"]
|
[prismatic/schema "1.0.4"]
|
||||||
^{:voom {:repo "git@github.com:status-im/status-lib.git" :branch "group-chat-statuses"}}
|
|
||||||
[status-im/protocol "0.2.3-20160914_155558-gfed628a"]
|
|
||||||
[natal-shell "0.3.0"]
|
[natal-shell "0.3.0"]
|
||||||
[com.andrewmcveigh/cljs-time "0.4.0"]
|
[com.andrewmcveigh/cljs-time "0.4.0"]
|
||||||
[tailrecursion/cljs-priority-map "1.2.0"]
|
[tailrecursion/cljs-priority-map "1.2.0"]
|
||||||
|
@ -19,8 +17,7 @@
|
||||||
[cljsjs/chance "0.7.3-0"]
|
[cljsjs/chance "0.7.3-0"]
|
||||||
[cljsjs/eccjs "0.3.1-0"]]
|
[cljsjs/eccjs "0.3.1-0"]]
|
||||||
:plugins [[lein-cljsbuild "1.1.1"]
|
:plugins [[lein-cljsbuild "1.1.1"]
|
||||||
[lein-figwheel "0.5.0-2"]
|
[lein-figwheel "0.5.0-2"]]
|
||||||
[lein-voom "0.1.0-20160311_203101-g259fbfc"]]
|
|
||||||
:clean-targets ["target/" "index.ios.js" "index.android.js"]
|
:clean-targets ["target/" "index.ios.js" "index.android.js"]
|
||||||
:aliases {"prod-build" ^{:doc "Recompile code with prod profile."}
|
:aliases {"prod-build" ^{:doc "Recompile code with prod profile."}
|
||||||
["do" "clean"
|
["do" "clean"
|
||||||
|
|
|
@ -54,7 +54,7 @@ open -a /Applications/Genymotion.app/Contents/MacOS/player.app --args --vm-name
|
||||||
fi
|
fi
|
||||||
|
|
||||||
# Install deps, prepare for genymotion and figwheel
|
# Install deps, prepare for genymotion and figwheel
|
||||||
lein voom build-deps && re-natal deps && re-natal use-android-device "${device_type}" && re-natal use-figwheel
|
lein deps && re-natal deps && re-natal use-android-device "${device_type}" && re-natal use-figwheel
|
||||||
|
|
||||||
# open figwheel in new tab
|
# open figwheel in new tab
|
||||||
tab "lein figwheel ${cljs_build}"
|
tab "lein figwheel ${cljs_build}"
|
||||||
|
|
|
@ -1,16 +1,13 @@
|
||||||
(ns status-im.accounts.handlers
|
(ns status-im.accounts.handlers
|
||||||
(:require [status-im.models.accounts :as accounts-model]
|
(:require [status-im.models.accounts :as accounts-model]
|
||||||
[re-frame.core :refer [register-handler after dispatch dispatch-sync debug]]
|
[re-frame.core :refer [register-handler after dispatch dispatch-sync debug]]
|
||||||
[status-im.utils.logging :as log]
|
[taoensso.timbre :as log]
|
||||||
[status-im.protocol.core :as protocol]
|
[status-im.protocol.core :as protocol]
|
||||||
[status-im.components.status :as status]
|
[status-im.components.status :as status]
|
||||||
[status-im.utils.types :refer [json->clj]]
|
[status-im.utils.types :refer [json->clj]]
|
||||||
[status-im.persistence.simple-kv-store :as kv]
|
|
||||||
[status-im.protocol.state.storage :as storage]
|
|
||||||
[status-im.utils.identicon :refer [identicon]]
|
[status-im.utils.identicon :refer [identicon]]
|
||||||
[status-im.db :refer [default-view]]
|
[status-im.db :refer [default-view]]
|
||||||
[status-im.utils.random :as random]
|
[status-im.utils.random :as random]
|
||||||
[status-im.persistence.realm.core :as realm]
|
|
||||||
[status-im.i18n :refer [label]]
|
[status-im.i18n :refer [label]]
|
||||||
[status-im.constants :refer [content-type-command-request]]
|
[status-im.constants :refer [content-type-command-request]]
|
||||||
status-im.accounts.login.handlers
|
status-im.accounts.login.handlers
|
||||||
|
@ -29,9 +26,6 @@
|
||||||
(update db :accounts assoc address account))
|
(update db :accounts assoc address account))
|
||||||
((after save-account))))
|
((after save-account))))
|
||||||
|
|
||||||
(defn save-password [password]
|
|
||||||
(storage/put kv/kv-store :password password))
|
|
||||||
|
|
||||||
(defn account-created [result password]
|
(defn account-created [result password]
|
||||||
(let [data (json->clj result)
|
(let [data (json->clj result)
|
||||||
public-key (:pubkey data)
|
public-key (:pubkey data)
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
(ns status-im.accounts.login.handlers
|
(ns status-im.accounts.login.handlers
|
||||||
(:require [re-frame.core :refer [after dispatch]]
|
(:require [re-frame.core :refer [after dispatch]]
|
||||||
[status-im.utils.handlers :refer [register-handler] :as u]
|
[status-im.utils.handlers :refer [register-handler] :as u]
|
||||||
[status-im.utils.logging :as log]
|
[taoensso.timbre :as log]
|
||||||
[status-im.utils.types :refer [json->clj]]
|
[status-im.utils.types :refer [json->clj]]
|
||||||
[status-im.db :refer [default-view]]
|
[status-im.db :refer [default-view]]
|
||||||
[status-im.persistence.realm.core :as realm]
|
[status-im.persistence.realm.core :as realm]
|
||||||
|
|
|
@ -3,13 +3,9 @@
|
||||||
[status-im.components.status :as status]
|
[status-im.components.status :as status]
|
||||||
[status-im.utils.types :refer [json->clj]]
|
[status-im.utils.types :refer [json->clj]]
|
||||||
[status-im.utils.identicon :refer [identicon]]
|
[status-im.utils.identicon :refer [identicon]]
|
||||||
[status-im.utils.logging :as log]
|
[taoensso.timbre :as log]
|
||||||
[clojure.string :as str]))
|
[clojure.string :as str]))
|
||||||
|
|
||||||
(defn on-account-changed
|
|
||||||
[error address new-account?]
|
|
||||||
(dispatch [:navigate-to-clean :accounts]))
|
|
||||||
|
|
||||||
(defn account-recovered [result password]
|
(defn account-recovered [result password]
|
||||||
(let [_ (log/debug result)
|
(let [_ (log/debug result)
|
||||||
data (json->clj result)
|
data (json->clj result)
|
||||||
|
|
|
@ -24,7 +24,7 @@
|
||||||
[status-im.accounts.recover.validations :as v]
|
[status-im.accounts.recover.validations :as v]
|
||||||
[cljs.spec :as s]
|
[cljs.spec :as s]
|
||||||
[clojure.string :as str]
|
[clojure.string :as str]
|
||||||
[status-im.utils.logging :as log]))
|
[taoensso.timbre :as log]))
|
||||||
|
|
||||||
(defn toolbar-title []
|
(defn toolbar-title []
|
||||||
[view toolbar-title-container
|
[view toolbar-title-container
|
||||||
|
|
|
@ -25,10 +25,8 @@
|
||||||
white-form-text-input]]
|
white-form-text-input]]
|
||||||
[status-im.utils.listview :as lw]
|
[status-im.utils.listview :as lw]
|
||||||
[status-im.accounts.views.account :refer [account-view]]
|
[status-im.accounts.views.account :refer [account-view]]
|
||||||
[status-im.chat.sign-up :as sign-up-service]
|
|
||||||
[status-im.i18n :refer [label]]
|
[status-im.i18n :refer [label]]
|
||||||
[status-im.accounts.styles :as st]
|
[status-im.accounts.styles :as st]))
|
||||||
[status-im.utils.logging :as log]))
|
|
||||||
|
|
||||||
(defn toolbar-title []
|
(defn toolbar-title []
|
||||||
(let [style (merge toolbar-title-text {:color color-white})]
|
(let [style (merge toolbar-title-text {:color color-white})]
|
||||||
|
|
|
@ -27,9 +27,8 @@
|
||||||
[status-im.profile.screen :refer [profile my-profile]]
|
[status-im.profile.screen :refer [profile my-profile]]
|
||||||
[status-im.profile.photo-capture.screen :refer [profile-photo-capture]]
|
[status-im.profile.photo-capture.screen :refer [profile-photo-capture]]
|
||||||
[status-im.utils.utils :refer [toast]]
|
[status-im.utils.utils :refer [toast]]
|
||||||
[status-im.utils.encryption]
|
|
||||||
status-im.persistence.realm.core
|
status-im.persistence.realm.core
|
||||||
[status-im.utils.logging :as log]
|
[taoensso.timbre :as log]
|
||||||
[status-im.components.status :as status]))
|
[status-im.components.status :as status]))
|
||||||
|
|
||||||
(defn init-back-button-handler! []
|
(defn init-back-button-handler! []
|
||||||
|
@ -47,7 +46,7 @@
|
||||||
(keyword (.toLowerCase o)))
|
(keyword (.toLowerCase o)))
|
||||||
|
|
||||||
(defn app-root []
|
(defn app-root []
|
||||||
(let [signed-up (subscribe [:get :signed-up])
|
(let [signed-up (subscribe [:signed-up?])
|
||||||
view-id (subscribe [:get :view-id])
|
view-id (subscribe [:get :view-id])
|
||||||
account-id (subscribe [:get :current-account-id])
|
account-id (subscribe [:get :current-account-id])
|
||||||
keyboard-height (subscribe [:get :keyboard-height])]
|
keyboard-height (subscribe [:get :keyboard-height])]
|
||||||
|
|
|
@ -5,7 +5,6 @@
|
||||||
[clojure.string :as str]
|
[clojure.string :as str]
|
||||||
[status-im.components.styles :refer [default-chat-color]]
|
[status-im.components.styles :refer [default-chat-color]]
|
||||||
[status-im.chat.suggestions :as suggestions]
|
[status-im.chat.suggestions :as suggestions]
|
||||||
[status-im.protocol.api :as api]
|
|
||||||
[status-im.protocol.core :as protocol]
|
[status-im.protocol.core :as protocol]
|
||||||
[status-im.models.chats :as chats]
|
[status-im.models.chats :as chats]
|
||||||
[status-im.models.messages :as messages]
|
[status-im.models.messages :as messages]
|
||||||
|
@ -20,7 +19,6 @@
|
||||||
[status-im.utils.handlers :refer [register-handler] :as u]
|
[status-im.utils.handlers :refer [register-handler] :as u]
|
||||||
[status-im.persistence.realm.core :as r]
|
[status-im.persistence.realm.core :as r]
|
||||||
[status-im.handlers.server :as server]
|
[status-im.handlers.server :as server]
|
||||||
[status-im.handlers.content-suggestions :refer [get-content-suggestions]]
|
|
||||||
[status-im.utils.phone-number :refer [format-phone-number
|
[status-im.utils.phone-number :refer [format-phone-number
|
||||||
valid-mobile-number?]]
|
valid-mobile-number?]]
|
||||||
[status-im.components.status :as status]
|
[status-im.components.status :as status]
|
||||||
|
@ -34,8 +32,7 @@
|
||||||
status-im.chat.handlers.receive-message
|
status-im.chat.handlers.receive-message
|
||||||
[cljs.core.async :as a]
|
[cljs.core.async :as a]
|
||||||
status-im.chat.handlers.webview-bridge
|
status-im.chat.handlers.webview-bridge
|
||||||
status-im.chat.handlers.wallet-chat
|
status-im.chat.handlers.wallet-chat))
|
||||||
[status-im.utils.logging :as log]))
|
|
||||||
|
|
||||||
(register-handler :set-chat-ui-props
|
(register-handler :set-chat-ui-props
|
||||||
(fn [db [_ ui-element value]]
|
(fn [db [_ ui-element value]]
|
||||||
|
@ -219,8 +216,9 @@
|
||||||
(server/sign-up-confirm confirmation-code sign-up-service/on-send-code-response))))
|
(server/sign-up-confirm confirmation-code sign-up-service/on-send-code-response))))
|
||||||
|
|
||||||
(register-handler :set-signed-up
|
(register-handler :set-signed-up
|
||||||
(fn [db [_ signed-up]]
|
(u/side-effect!
|
||||||
(sign-up-service/set-signed-up db signed-up)))
|
(fn [_ [_ signed-up]]
|
||||||
|
(dispatch [:account-update {:signed-up? signed-up}]))))
|
||||||
|
|
||||||
(defn load-messages!
|
(defn load-messages!
|
||||||
([db] (load-messages! db nil))
|
([db] (load-messages! db nil))
|
||||||
|
|
|
@ -1,7 +1,6 @@
|
||||||
(ns status-im.chat.handlers.animation
|
(ns status-im.chat.handlers.animation
|
||||||
(:require [re-frame.core :refer [after dispatch debug path]]
|
(:require [re-frame.core :refer [after dispatch debug path]]
|
||||||
[status-im.utils.handlers :refer [register-handler]]
|
[status-im.utils.handlers :refer [register-handler]]
|
||||||
[status-im.handlers.content-suggestions :refer [get-content-suggestions]]
|
|
||||||
[status-im.chat.constants :refer [input-height request-info-height
|
[status-im.chat.constants :refer [input-height request-info-height
|
||||||
suggestions-header-height
|
suggestions-header-height
|
||||||
minimum-command-suggestions-height
|
minimum-command-suggestions-height
|
||||||
|
|
|
@ -6,8 +6,7 @@
|
||||||
[status-im.commands.utils :refer [generate-hiccup]]
|
[status-im.commands.utils :refer [generate-hiccup]]
|
||||||
[status-im.constants :refer [content-type-command-request]]
|
[status-im.constants :refer [content-type-command-request]]
|
||||||
[cljs.reader :refer [read-string]]
|
[cljs.reader :refer [read-string]]
|
||||||
[status-im.models.chats :as c]
|
[status-im.models.chats :as c]))
|
||||||
[status-im.utils.logging :as log]))
|
|
||||||
|
|
||||||
(defn check-preview [{:keys [content] :as message}]
|
(defn check-preview [{:keys [content] :as message}]
|
||||||
(if-let [preview (:preview content)]
|
(if-let [preview (:preview content)]
|
||||||
|
|
|
@ -1,8 +1,7 @@
|
||||||
(ns status-im.chat.handlers.unviewed-messages
|
(ns status-im.chat.handlers.unviewed-messages
|
||||||
(:require [re-frame.core :refer [after enrich path dispatch]]
|
(:require [re-frame.core :refer [after enrich path dispatch]]
|
||||||
[status-im.utils.handlers :refer [register-handler]]
|
[status-im.utils.handlers :refer [register-handler]]
|
||||||
[status-im.persistence.realm.core :as realm]
|
[status-im.persistence.realm.core :as realm]))
|
||||||
[status-im.utils.logging :as log]))
|
|
||||||
|
|
||||||
(defn delivered-messages []
|
(defn delivered-messages []
|
||||||
(-> (realm/get-by-fields :account :message :and {:outgoing false
|
(-> (realm/get-by-fields :account :message :and {:outgoing false
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
[status-im.utils.handlers :refer [register-handler]]
|
[status-im.utils.handlers :refer [register-handler]]
|
||||||
[status-im.utils.handlers :as u]
|
[status-im.utils.handlers :as u]
|
||||||
[status-im.utils.types :as t]
|
[status-im.utils.types :as t]
|
||||||
[status-im.utils.logging :as log]))
|
[taoensso.timbre :as log]))
|
||||||
|
|
||||||
(register-handler :set-webview-bridge
|
(register-handler :set-webview-bridge
|
||||||
(fn [db [_ bridge]]
|
(fn [db [_ bridge]]
|
||||||
|
|
|
@ -1,7 +1,6 @@
|
||||||
(ns status-im.chat.screen
|
(ns status-im.chat.screen
|
||||||
(:require-macros [status-im.utils.views :refer [defview]])
|
(:require-macros [status-im.utils.views :refer [defview]])
|
||||||
(:require [re-frame.core :refer [subscribe dispatch]]
|
(:require [re-frame.core :refer [subscribe dispatch]]
|
||||||
[clojure.string :as s]
|
|
||||||
[status-im.components.react :refer [view
|
[status-im.components.react :refer [view
|
||||||
animated-view
|
animated-view
|
||||||
text
|
text
|
||||||
|
@ -74,19 +73,6 @@
|
||||||
(assoc :last-message (= (js/parseInt idx) (dec messages-count))))]
|
(assoc :last-message (= (js/parseInt idx) (dec messages-count))))]
|
||||||
(list-item [chat-message message]))))
|
(list-item [chat-message message]))))
|
||||||
|
|
||||||
(defn on-action-selected [position]
|
|
||||||
(case position
|
|
||||||
0 (dispatch [:navigate-to :add-participants])
|
|
||||||
1 (dispatch [:navigate-to :remove-participants])
|
|
||||||
2 (dispatch [:leave-group-chat])))
|
|
||||||
|
|
||||||
(defn overlay [{:keys [on-click-outside]} items]
|
|
||||||
[view st/actions-overlay
|
|
||||||
[touchable-highlight {:on-press on-click-outside
|
|
||||||
:style st/overlay-highlight}
|
|
||||||
[view nil]]
|
|
||||||
items])
|
|
||||||
|
|
||||||
(defn online-text [contact chat-id]
|
(defn online-text [contact chat-id]
|
||||||
(if contact
|
(if contact
|
||||||
(let [last-online (get contact :last-online)
|
(let [last-online (get contact :last-online)
|
||||||
|
|
|
@ -1,9 +1,5 @@
|
||||||
(ns status-im.chat.sign-up
|
(ns status-im.chat.sign-up
|
||||||
;status-im.handlers.sign-up
|
|
||||||
(:require [re-frame.core :refer [subscribe dispatch dispatch-sync]]
|
(:require [re-frame.core :refer [subscribe dispatch dispatch-sync]]
|
||||||
[status-im.persistence.simple-kv-store :as kv]
|
|
||||||
[status-im.protocol.state.storage :as s]
|
|
||||||
[status-im.models.chats :as c]
|
|
||||||
[status-im.components.styles :refer [default-chat-color]]
|
[status-im.components.styles :refer [default-chat-color]]
|
||||||
[status-im.utils.utils :refer [on-error http-post toast]]
|
[status-im.utils.utils :refer [on-error http-post toast]]
|
||||||
[status-im.utils.random :as random]
|
[status-im.utils.random :as random]
|
||||||
|
@ -24,10 +20,6 @@
|
||||||
:content-type text-content-type
|
:content-type text-content-type
|
||||||
:outgoing true})
|
:outgoing true})
|
||||||
|
|
||||||
(defn set-signed-up [db signed-up]
|
|
||||||
(s/put kv/kv-store :signed-up signed-up)
|
|
||||||
(assoc db :signed-up signed-up))
|
|
||||||
|
|
||||||
; todo fn name is not too smart, but...
|
; todo fn name is not too smart, but...
|
||||||
(defn command-content
|
(defn command-content
|
||||||
[command content]
|
[command content]
|
||||||
|
|
|
@ -9,8 +9,7 @@
|
||||||
separator-color
|
separator-color
|
||||||
text1-color
|
text1-color
|
||||||
text2-color
|
text2-color
|
||||||
toolbar-background1]]
|
toolbar-background1]]))
|
||||||
[status-im.utils.logging :as log]))
|
|
||||||
|
|
||||||
(def chat-view
|
(def chat-view
|
||||||
{:flex 1
|
{:flex 1
|
||||||
|
|
|
@ -6,7 +6,6 @@
|
||||||
[status-im.models.chats :as chats]
|
[status-im.models.chats :as chats]
|
||||||
[status-im.constants :refer [response-suggesstion-resize-duration]]
|
[status-im.constants :refer [response-suggesstion-resize-duration]]
|
||||||
[status-im.chat.constants :as c]
|
[status-im.chat.constants :as c]
|
||||||
[status-im.handlers.content-suggestions :refer [get-content-suggestions]]
|
|
||||||
[status-im.chat.views.plain-message :as plain-message]
|
[status-im.chat.views.plain-message :as plain-message]
|
||||||
[status-im.chat.views.command :as command]))
|
[status-im.chat.views.command :as command]))
|
||||||
|
|
||||||
|
|
|
@ -12,8 +12,7 @@
|
||||||
[status-im.components.chat-icon.screen :refer [chat-icon-view-menu-item]]
|
[status-im.components.chat-icon.screen :refer [chat-icon-view-menu-item]]
|
||||||
[status-im.chat.styles.screen :as st]
|
[status-im.chat.styles.screen :as st]
|
||||||
[status-im.i18n :refer [label label-pluralize]]
|
[status-im.i18n :refer [label label-pluralize]]
|
||||||
[status-im.utils.platform :refer [platform-specific]]
|
[status-im.utils.platform :refer [platform-specific]]))
|
||||||
[status-im.utils.logging :as log]))
|
|
||||||
|
|
||||||
(defview menu-item-icon-profile []
|
(defview menu-item-icon-profile []
|
||||||
[chat-id [:chat :chat-id]
|
[chat-id [:chat :chat-id]
|
||||||
|
|
|
@ -17,7 +17,6 @@
|
||||||
[status-im.utils.utils :refer [truncate-str]]
|
[status-im.utils.utils :refer [truncate-str]]
|
||||||
[status-im.utils.identicon :refer [identicon]]
|
[status-im.utils.identicon :refer [identicon]]
|
||||||
[status-im.utils.listview :as lw]
|
[status-im.utils.listview :as lw]
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[clojure.string :as str]))
|
[clojure.string :as str]))
|
||||||
|
|
||||||
(defn- container-animation-logic [{:keys [to-value val]}]
|
(defn- container-animation-logic [{:keys [to-value val]}]
|
||||||
|
|
|
@ -21,8 +21,6 @@
|
||||||
content-type-status
|
content-type-status
|
||||||
content-type-command
|
content-type-command
|
||||||
content-type-command-request]]
|
content-type-command-request]]
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[status-im.protocol.api :as api]
|
|
||||||
[status-im.utils.identicon :refer [identicon]]
|
[status-im.utils.identicon :refer [identicon]]
|
||||||
[status-im.chat.utils :as cu]))
|
[status-im.chat.utils :as cu]))
|
||||||
|
|
||||||
|
@ -263,14 +261,14 @@
|
||||||
(into [view] children)))
|
(into [view] children)))
|
||||||
|
|
||||||
(defn chat-message [{:keys [outgoing message-id chat-id user-statuses from]}]
|
(defn chat-message [{:keys [outgoing message-id chat-id user-statuses from]}]
|
||||||
(let [my-identity (api/my-identity)
|
(let [my-identity (subscribe [:get :current-public-key])
|
||||||
status (subscribe [:get-in [:message-user-statuses message-id my-identity]])]
|
status (subscribe [:get-in [:message-user-statuses message-id my-identity]])]
|
||||||
(r/create-class
|
(r/create-class
|
||||||
{:component-did-mount
|
{:component-did-mount
|
||||||
(fn []
|
(fn []
|
||||||
(when (and (not outgoing)
|
(when (and (not outgoing)
|
||||||
(not= :seen (keyword @status))
|
(not= :seen (keyword @status))
|
||||||
(not= :seen (keyword (get-in user-statuses [my-identity :status]))))
|
(not= :seen (keyword (get-in user-statuses [@my-identity :status]))))
|
||||||
(dispatch [:send-seen! {:chat-id chat-id
|
(dispatch [:send-seen! {:chat-id chat-id
|
||||||
:from from
|
:from from
|
||||||
:message-id message-id}])))
|
:message-id message-id}])))
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
touchable-without-feedback
|
touchable-without-feedback
|
||||||
text]]
|
text]]
|
||||||
[status-im.components.carousel.styles :as st]
|
[status-im.components.carousel.styles :as st]
|
||||||
[status-im.utils.logging :as log]
|
[taoensso.timbre :as log]
|
||||||
[status-im.components.react :as r]))
|
[status-im.components.react :as r]))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
(:require [status-im.components.react :as r]
|
(:require [status-im.components.react :as r]
|
||||||
[status-im.utils.types :as t]
|
[status-im.utils.types :as t]
|
||||||
[re-frame.core :refer [dispatch]]
|
[re-frame.core :refer [dispatch]]
|
||||||
[status-im.utils.logging :as log]))
|
[taoensso.timbre :as log]))
|
||||||
|
|
||||||
(def status-js (slurp "resources/status.js"))
|
(def status-js (slurp "resources/status.js"))
|
||||||
|
|
||||||
|
|
|
@ -12,7 +12,7 @@
|
||||||
[status-im.components.text-field.styles :as st]
|
[status-im.components.text-field.styles :as st]
|
||||||
[status-im.i18n :refer [label]]
|
[status-im.i18n :refer [label]]
|
||||||
[status-im.components.animation :as anim]
|
[status-im.components.animation :as anim]
|
||||||
[status-im.utils.logging :as log]))
|
[taoensso.timbre :as log]))
|
||||||
|
|
||||||
|
|
||||||
(def config {:label-top 16
|
(def config {:label-top 16
|
||||||
|
|
|
@ -39,7 +39,6 @@
|
||||||
:chat-ui-props {:show-actions? false
|
:chat-ui-props {:show-actions? false
|
||||||
:show-bottom-info? false}
|
:show-bottom-info? false}
|
||||||
:selected-participants #{}
|
:selected-participants #{}
|
||||||
:signed-up false
|
|
||||||
:view-id default-view
|
:view-id default-view
|
||||||
:navigation-stack (list default-view)
|
:navigation-stack (list default-view)
|
||||||
:current-tag nil
|
:current-tag nil
|
||||||
|
@ -50,7 +49,6 @@
|
||||||
:tabs-bar-value (anim/create-value 0)}
|
:tabs-bar-value (anim/create-value 0)}
|
||||||
:loading-allowed true})
|
:loading-allowed true})
|
||||||
|
|
||||||
(def protocol-initialized-path [:protocol-initialized])
|
|
||||||
(defn chat-staged-commands-path [chat-id]
|
(defn chat-staged-commands-path [chat-id]
|
||||||
[:chats chat-id :staged-commands])
|
[:chats chat-id :staged-commands])
|
||||||
(defn chat-command-path [chat-id]
|
(defn chat-command-path [chat-id]
|
||||||
|
|
|
@ -2,7 +2,6 @@
|
||||||
(:require [re-frame.core :refer [after dispatch enrich]]
|
(:require [re-frame.core :refer [after dispatch enrich]]
|
||||||
[status-im.utils.utils :refer [first-index]]
|
[status-im.utils.utils :refer [first-index]]
|
||||||
[status-im.utils.handlers :refer [register-handler]]
|
[status-im.utils.handlers :refer [register-handler]]
|
||||||
[status-im.protocol.api :as api]
|
|
||||||
[status-im.protocol.core :as protocol]
|
[status-im.protocol.core :as protocol]
|
||||||
[status-im.navigation.handlers :as nav]
|
[status-im.navigation.handlers :as nav]
|
||||||
[status-im.discovery.model :as discoveries]
|
[status-im.discovery.model :as discoveries]
|
||||||
|
|
|
@ -1,8 +1,6 @@
|
||||||
(ns status-im.discovery.model
|
(ns status-im.discovery.model
|
||||||
;status-im.models.discoveries
|
(:require [taoensso.timbre :as log]
|
||||||
(:require [status-im.utils.logging :as log]
|
[status-im.persistence.realm.core :as r]))
|
||||||
[status-im.persistence.realm.core :as r]
|
|
||||||
[status-im.constants :as c]))
|
|
||||||
|
|
||||||
(defn get-tag [tag]
|
(defn get-tag [tag]
|
||||||
(log/debug "Getting tag: " tag)
|
(log/debug "Getting tag: " tag)
|
||||||
|
|
|
@ -4,9 +4,7 @@
|
||||||
[schema.core :as s :include-macros true]
|
[schema.core :as s :include-macros true]
|
||||||
[status-im.db :refer [app-db schema]]
|
[status-im.db :refer [app-db schema]]
|
||||||
[status-im.persistence.realm.core :as realm]
|
[status-im.persistence.realm.core :as realm]
|
||||||
[status-im.persistence.simple-kv-store :as kv]
|
[taoensso.timbre :as log]
|
||||||
[status-im.protocol.state.storage :as storage]
|
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[status-im.utils.crypt :refer [gen-random-bytes]]
|
[status-im.utils.crypt :refer [gen-random-bytes]]
|
||||||
[status-im.components.status :as status]
|
[status-im.components.status :as status]
|
||||||
[status-im.utils.handlers :refer [register-handler] :as u]
|
[status-im.utils.handlers :refer [register-handler] :as u]
|
||||||
|
@ -23,24 +21,9 @@
|
||||||
status-im.qr-scanner.handlers
|
status-im.qr-scanner.handlers
|
||||||
status-im.accounts.handlers
|
status-im.accounts.handlers
|
||||||
status-im.protocol.handlers
|
status-im.protocol.handlers
|
||||||
[status-im.utils.datetime :as time]
|
|
||||||
status-im.transactions.handlers
|
status-im.transactions.handlers
|
||||||
[status-im.utils.types :as t]))
|
[status-im.utils.types :as t]))
|
||||||
|
|
||||||
;; -- Middleware ------------------------------------------------------------
|
|
||||||
;;
|
|
||||||
;; See https://github.com/Day8/re-frame/wiki/Using-Handler-Middleware
|
|
||||||
;;
|
|
||||||
(defn check-and-throw
|
|
||||||
"throw an exception if db doesn't match the schema."
|
|
||||||
[a-schema db]
|
|
||||||
(if-let [problems (s/check a-schema db)]
|
|
||||||
(throw (js/Error. (str "schema check failed: " problems)))))
|
|
||||||
|
|
||||||
(def validate-schema-mw
|
|
||||||
(after (partial check-and-throw schema)))
|
|
||||||
|
|
||||||
|
|
||||||
;; -- Common --------------------------------------------------------------
|
;; -- Common --------------------------------------------------------------
|
||||||
|
|
||||||
(defn set-el [db [_ k v]]
|
(defn set-el [db [_ k v]]
|
||||||
|
@ -66,9 +49,7 @@
|
||||||
(fn [db _]
|
(fn [db _]
|
||||||
(assoc db
|
(assoc db
|
||||||
:chats {}
|
:chats {}
|
||||||
:current-chat-id "console"
|
:current-chat-id "console")))
|
||||||
:signed-up (storage/get kv/kv-store :signed-up)
|
|
||||||
:password (storage/get kv/kv-store :password))))
|
|
||||||
|
|
||||||
(register-handler :initialize-account
|
(register-handler :initialize-account
|
||||||
(u/side-effect!
|
(u/side-effect!
|
||||||
|
|
|
@ -1,25 +0,0 @@
|
||||||
(ns status-im.handlers.content-suggestions
|
|
||||||
(:require [re-frame.core :refer [subscribe dispatch dispatch-sync]]
|
|
||||||
[status-im.db :as db]
|
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[clojure.string :as s]))
|
|
||||||
|
|
||||||
;; TODO stub data?
|
|
||||||
(def suggestions
|
|
||||||
{:phone [{:header "Phone number formats"}
|
|
||||||
{:value "89171111111"
|
|
||||||
:description "Number format 1"}
|
|
||||||
{:value "+79171111111"
|
|
||||||
:description "Number format 2"}
|
|
||||||
{:value "9171111111"
|
|
||||||
:description "Number format 3"}]})
|
|
||||||
|
|
||||||
(defn get-content-suggestions [command text]
|
|
||||||
(or (when command
|
|
||||||
(when-let [command-suggestions ((keyword (:name command)) suggestions)]
|
|
||||||
(filterv (fn [s]
|
|
||||||
(or (:header s)
|
|
||||||
(and (.startsWith (:value s) (or text ""))
|
|
||||||
(not= (:value s) text))))
|
|
||||||
command-suggestions)))
|
|
||||||
[]))
|
|
|
@ -1,7 +1,7 @@
|
||||||
(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 [on-error http-post]]
|
[status-im.utils.utils :refer [on-error http-post]]
|
||||||
[status-im.utils.logging :as log]))
|
[taoensso.timbre :as log]))
|
||||||
|
|
||||||
(defn sign-up
|
(defn sign-up
|
||||||
[db phone-number handler]
|
[db phone-number handler]
|
||||||
|
|
|
@ -23,15 +23,14 @@
|
||||||
[status-im.profile.screen :refer [profile my-profile]]
|
[status-im.profile.screen :refer [profile my-profile]]
|
||||||
[status-im.profile.photo-capture.screen :refer [profile-photo-capture]]
|
[status-im.profile.photo-capture.screen :refer [profile-photo-capture]]
|
||||||
[status-im.utils.utils :refer [toast]]
|
[status-im.utils.utils :refer [toast]]
|
||||||
[status-im.utils.encryption]
|
|
||||||
status-im.persistence.realm.core
|
status-im.persistence.realm.core
|
||||||
[status-im.utils.logging :as log]))
|
[taoensso.timbre :as log]))
|
||||||
|
|
||||||
(defn orientation->keyword [o]
|
(defn orientation->keyword [o]
|
||||||
(keyword (.toLowerCase o)))
|
(keyword (.toLowerCase o)))
|
||||||
|
|
||||||
(defn app-root []
|
(defn app-root []
|
||||||
(let [signed-up (subscribe [:get :signed-up])
|
(let [signed-up (subscribe [:signed-up?])
|
||||||
_ (log/debug "signed up: " @signed-up)
|
_ (log/debug "signed up: " @signed-up)
|
||||||
view-id (subscribe [:get :view-id])
|
view-id (subscribe [:get :view-id])
|
||||||
account-id (subscribe [:get :current-account-id])
|
account-id (subscribe [:get :current-account-id])
|
||||||
|
|
|
@ -4,7 +4,6 @@
|
||||||
[status-im.persistence.realm.core :as r]
|
[status-im.persistence.realm.core :as r]
|
||||||
[status-im.utils.random :as random :refer [timestamp]]
|
[status-im.utils.random :as random :refer [timestamp]]
|
||||||
[clojure.string :refer [join blank?]]
|
[clojure.string :refer [join blank?]]
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[status-im.constants :refer [content-type-status]]
|
[status-im.constants :refer [content-type-status]]
|
||||||
[status-im.models.messages :refer [save-message]]
|
[status-im.models.messages :refer [save-message]]
|
||||||
[status-im.persistence.realm-queries :refer [include-query]]))
|
[status-im.persistence.realm-queries :refer [include-query]]))
|
||||||
|
|
|
@ -2,8 +2,7 @@
|
||||||
(:require [status-im.persistence.realm.core :as r]
|
(:require [status-im.persistence.realm.core :as r]
|
||||||
[status-im.utils.identicon :refer [identicon]]
|
[status-im.utils.identicon :refer [identicon]]
|
||||||
[status-im.persistence.realm-queries :refer [include-query
|
[status-im.persistence.realm-queries :refer [include-query
|
||||||
exclude-query]]
|
exclude-query]]))
|
||||||
[status-im.utils.logging :as log]))
|
|
||||||
|
|
||||||
(defn get-contacts []
|
(defn get-contacts []
|
||||||
(-> (r/get-all :account :contact)
|
(-> (r/get-all :account :contact)
|
||||||
|
|
|
@ -3,7 +3,6 @@
|
||||||
[re-frame.core :refer [dispatch]]
|
[re-frame.core :refer [dispatch]]
|
||||||
[cljs.reader :refer [read-string]]
|
[cljs.reader :refer [read-string]]
|
||||||
[status-im.utils.random :refer [timestamp]]
|
[status-im.utils.random :refer [timestamp]]
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[clojure.string :refer [join split]]
|
[clojure.string :refer [join split]]
|
||||||
[clojure.walk :refer [stringify-keys keywordize-keys]]
|
[clojure.walk :refer [stringify-keys keywordize-keys]]
|
||||||
[status-im.constants :as c]
|
[status-im.constants :as c]
|
||||||
|
|
|
@ -8,7 +8,6 @@
|
||||||
[status-im.constants :as c]
|
[status-im.constants :as c]
|
||||||
[status-im.utils.types :refer [clj->json json->clj]]
|
[status-im.utils.types :refer [clj->json json->clj]]
|
||||||
[status-im.commands.utils :refer [generate-hiccup]]
|
[status-im.commands.utils :refer [generate-hiccup]]
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[cljs.reader :as reader]
|
[cljs.reader :as reader]
|
||||||
[clojure.string :as str]))
|
[clojure.string :as str]))
|
||||||
|
|
||||||
|
|
|
@ -1,20 +0,0 @@
|
||||||
(ns status-im.models.protocol
|
|
||||||
(:require [cljs.reader :refer [read-string]]
|
|
||||||
[status-im.protocol.state.storage :as s]
|
|
||||||
[status-im.utils.types :refer [to-edn-string]]
|
|
||||||
[re-frame.db :refer [app-db]]
|
|
||||||
[status-im.db :as db]
|
|
||||||
[status-im.persistence.simple-kv-store :as kv]))
|
|
||||||
|
|
||||||
(defn set-initialized [db initialized?]
|
|
||||||
(assoc-in db db/protocol-initialized-path initialized?))
|
|
||||||
|
|
||||||
(defn update-identity [db {:keys [address] :as identity}]
|
|
||||||
(let [identity-string (to-edn-string identity)]
|
|
||||||
(s/put kv/kv-store :identity identity-string)
|
|
||||||
(assoc-in db [:accounts address] identity)))
|
|
||||||
|
|
||||||
(defn stored-identity [db]
|
|
||||||
(let [identity (s/get kv/kv-store :identity)]
|
|
||||||
(when identity
|
|
||||||
(read-string identity))))
|
|
|
@ -4,7 +4,7 @@
|
||||||
[status-im.utils.types :refer [to-string]]
|
[status-im.utils.types :refer [to-string]]
|
||||||
[status-im.utils.utils :as u]
|
[status-im.utils.utils :as u]
|
||||||
[status-im.utils.fs :as fs]
|
[status-im.utils.fs :as fs]
|
||||||
[status-im.utils.logging :as log]
|
[taoensso.timbre :as log]
|
||||||
[status-im.persistence.realm.schemas :refer [base account]]
|
[status-im.persistence.realm.schemas :refer [base account]]
|
||||||
[clojure.string :as str])
|
[clojure.string :as str])
|
||||||
(:refer-clojure :exclude [exists?]))
|
(:refer-clojure :exclude [exists?]))
|
||||||
|
|
|
@ -14,7 +14,9 @@
|
||||||
:email {:type "string" :optional true}
|
:email {:type "string" :optional true}
|
||||||
:status {:type "string" :optional true}
|
:status {:type "string" :optional true}
|
||||||
:photo-path "string"
|
:photo-path "string"
|
||||||
:last-updated {:type "int" :default 0}}}
|
:last-updated {:type "int" :default 0}
|
||||||
|
:signed-up? {:type :bool
|
||||||
|
:default false}}}
|
||||||
{:name :kv-store
|
{:name :kv-store
|
||||||
:primaryKey :key
|
:primaryKey :key
|
||||||
:properties {:key "string"
|
:properties {:key "string"
|
||||||
|
|
|
@ -1,29 +0,0 @@
|
||||||
(ns status-im.persistence.simple-kv-store
|
|
||||||
(:require [status-im.protocol.state.storage :as st]
|
|
||||||
[status-im.persistence.realm.core :as r]
|
|
||||||
[status-im.utils.types :refer [to-edn-string]]))
|
|
||||||
|
|
||||||
(defrecord SimpleKvStore [schema]
|
|
||||||
st/Storage
|
|
||||||
(put [_ key value]
|
|
||||||
(r/write schema
|
|
||||||
(fn []
|
|
||||||
(r/create schema :kv-store
|
|
||||||
{:key key
|
|
||||||
:value (to-edn-string value)} true))))
|
|
||||||
(get [_ key]
|
|
||||||
(some-> (r/get-by-field schema :kv-store :key key)
|
|
||||||
(r/single-cljs)
|
|
||||||
(r/decode-value)))
|
|
||||||
(contains-key? [_ key]
|
|
||||||
(r/exists? schema :kv-store {:key key}))
|
|
||||||
(delete [_ key]
|
|
||||||
(r/write schema
|
|
||||||
(fn []
|
|
||||||
(->> (r/get-by-field schema :kv-store :key key)
|
|
||||||
(r/single)
|
|
||||||
(r/delete schema))))))
|
|
||||||
|
|
||||||
(def kv-store (->SimpleKvStore :account))
|
|
||||||
|
|
||||||
(def base-kv-store (->SimpleKvStore :base))
|
|
|
@ -1,21 +1,16 @@
|
||||||
; todo everything inside this namespace must be revievew in common with future
|
|
||||||
; changes in protocol lib
|
|
||||||
(ns status-im.protocol.handlers
|
(ns status-im.protocol.handlers
|
||||||
(:require [status-im.utils.handlers :as u]
|
(:require [status-im.utils.handlers :as u]
|
||||||
[status-im.utils.logging :as log]
|
|
||||||
[re-frame.core :refer [dispatch after]]
|
[re-frame.core :refer [dispatch after]]
|
||||||
[status-im.utils.handlers :refer [register-handler]]
|
[status-im.utils.handlers :refer [register-handler]]
|
||||||
[status-im.models.contacts :as contacts]
|
[status-im.models.contacts :as contacts]
|
||||||
[status-im.models.messages :as messages]
|
[status-im.models.messages :as messages]
|
||||||
[status-im.models.pending-messages :as pending-messages]
|
[status-im.models.pending-messages :as pending-messages]
|
||||||
[status-im.models.chats :as chats]
|
[status-im.models.chats :as chats]
|
||||||
[status-im.models.protocol :refer [update-identity
|
|
||||||
set-initialized]]
|
|
||||||
[status-im.protocol.core :as protocol]
|
[status-im.protocol.core :as protocol]
|
||||||
[status-im.constants :refer [text-content-type]]
|
[status-im.constants :refer [text-content-type]]
|
||||||
[status-im.i18n :refer [label]]
|
[status-im.i18n :refer [label]]
|
||||||
[status-im.utils.random :as random]
|
[status-im.utils.random :as random]
|
||||||
[taoensso.timbre :refer-macros [debug]]))
|
[taoensso.timbre :as log :refer-macros [debug]]))
|
||||||
|
|
||||||
(register-handler :initialize-protocol
|
(register-handler :initialize-protocol
|
||||||
(fn [db [_ current-account-id]]
|
(fn [db [_ current-account-id]]
|
||||||
|
@ -73,12 +68,6 @@
|
||||||
(dispatch [:message-sent message']))
|
(dispatch [:message-sent message']))
|
||||||
(debug "Unknown message type" type)))))
|
(debug "Unknown message type" type)))))
|
||||||
|
|
||||||
(register-handler :protocol-initialized
|
|
||||||
(fn [db [_ identity]]
|
|
||||||
(-> db
|
|
||||||
(update-identity identity)
|
|
||||||
(set-initialized true))))
|
|
||||||
|
|
||||||
(defn system-message [message-id content]
|
(defn system-message [message-id content]
|
||||||
{:from "system"
|
{:from "system"
|
||||||
:message-id message-id
|
:message-id message-id
|
||||||
|
|
|
@ -1,7 +0,0 @@
|
||||||
(ns status-im.protocol.protocol-handler
|
|
||||||
(:require [status-im.utils.logging :as log]
|
|
||||||
[status-im.constants :refer [ethereum-rpc-url]]
|
|
||||||
[re-frame.core :refer [dispatch]]
|
|
||||||
[status-im.models.protocol :refer [stored-identity]]
|
|
||||||
[status-im.persistence.simple-kv-store :as kv]
|
|
||||||
[status-im.models.chats :refer [active-group-chats]]))
|
|
|
@ -5,7 +5,7 @@
|
||||||
[status-im.protocol.web3.utils :as u]
|
[status-im.protocol.web3.utils :as u]
|
||||||
[status-im.protocol.encryption :as e]
|
[status-im.protocol.encryption :as e]
|
||||||
[cljs.spec :as s]
|
[cljs.spec :as s]
|
||||||
[taoensso.timbre :refer-macros [debug] :as timbre]
|
[taoensso.timbre :refer-macros [debug] :as log]
|
||||||
[status-im.protocol.validation :refer-macros [valid?]]
|
[status-im.protocol.validation :refer-macros [valid?]]
|
||||||
[clojure.set :as set]))
|
[clojure.set :as set]))
|
||||||
|
|
||||||
|
@ -107,7 +107,7 @@
|
||||||
(defn delivery-callback
|
(defn delivery-callback
|
||||||
[web3 {:keys [id requires-ack? to]}]
|
[web3 {:keys [id requires-ack? to]}]
|
||||||
(fn [error _]
|
(fn [error _]
|
||||||
(when error (timbre/error :shh-post-error error))
|
(when error (log/error :shh-post-error error))
|
||||||
(when-not error
|
(when-not error
|
||||||
(debug :delivery-callback)
|
(debug :delivery-callback)
|
||||||
(message-was-sent! web3 id to)
|
(message-was-sent! web3 id to)
|
||||||
|
@ -173,7 +173,7 @@
|
||||||
callback (delivery-callback web3 data)]
|
callback (delivery-callback web3 data)]
|
||||||
(t/post-message! web3 message' callback))
|
(t/post-message! web3 message' callback))
|
||||||
(catch :default err
|
(catch :default err
|
||||||
(timbre/error :post-message-error err))
|
(log/error :post-message-error err))
|
||||||
(finally
|
(finally
|
||||||
(attempt-was-made! web3 id to)))))))
|
(attempt-was-made! web3 id to)))))))
|
||||||
(when-not @stop?
|
(when-not @stop?
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
(ns status-im.subs
|
(ns status-im.subs
|
||||||
(:require-macros [reagent.ratom :refer [reaction]])
|
(:require-macros [reagent.ratom :refer [reaction]])
|
||||||
(:require [re-frame.core :refer [register-sub]]
|
(:require [re-frame.core :refer [register-sub subscribe]]
|
||||||
status-im.chat.subs
|
status-im.chat.subs
|
||||||
status-im.group-settings.subs
|
status-im.group-settings.subs
|
||||||
status-im.discovery.subs
|
status-im.discovery.subs
|
||||||
|
@ -25,3 +25,10 @@
|
||||||
(register-sub :animations
|
(register-sub :animations
|
||||||
(fn [db [_ k]]
|
(fn [db [_ k]]
|
||||||
(reaction (get-in @db [:animations k]))))
|
(reaction (get-in @db [:animations k]))))
|
||||||
|
|
||||||
|
(register-sub :signed-up?
|
||||||
|
(fn []
|
||||||
|
(let [account-id (subscribe [:get :current-account-id])
|
||||||
|
accounts (subscribe [:get :accounts])]
|
||||||
|
(reaction (when (and @accounts @account-id)
|
||||||
|
(get-in @accounts [@account-id :signed-up?]))))))
|
||||||
|
|
|
@ -0,0 +1,8 @@
|
||||||
|
(ns status-im.utils.random
|
||||||
|
(:require [cljsjs.chance]))
|
||||||
|
|
||||||
|
(defn timestamp []
|
||||||
|
(.getTime (js/Date.)))
|
||||||
|
|
||||||
|
(defn id []
|
||||||
|
(str (timestamp) "-" (.guid js/chance)))
|
Loading…
Reference in New Issue