add more tests

.zprintrc

@@ -22,37 +22,37 @@
   :multi-lhs-hang]
 
  :fn-map
- {"reg-sub"           :arg1-pair
-  "h/describe"        :arg1-body
-  "h/describe-skip"   :arg1-body
-  "h/describe-only"   :arg1-body
-  "h/test"            :arg1-body
-  "h/test-skip"       :arg1-body
-  "h/test-only"       :arg1-body
-  "test/async"        :arg1-body
-  "test/use-fixtures" :arg1-body
-  "global.describe"   :arg1-body
-  "global.test"       :arg1-body
-  "list-comp"         :binding
-  "defview"           :arg1-body
-  "letsubs"           :binding
-  "with-let"          "let"
-  "reg-event-fx"      :arg1-pair
-  "reg-fx"            :arg1-pair
-  "testing"           :arg1-body
-  "deftest-sub"       :arg1-body
-  "test-async"        :arg1-body
-  "wait-for"          :arg1-body
-  "with-deps-check"   :arg1-body
-  "schema/=>"         :arg1-body
-  "->"                [:noarg1-body
-                       {:list               {:constant-pair? false :force-nl? false}
-                        :next-inner-restore [[:list :constant-pair?]]}]
-  "set!"              "reset!"
-  "assoc-when"        "assoc"
-  "assoc-some"        "assoc"
-  "conj-when"         "conj"
-  "conj-some"         "conj"}
+ {"reg-sub"            :arg1-pair
+  "h/describe"         :arg1-body
+  "h/describe-skip"    :arg1-body
+  "h/describe-only"    :arg1-body
+  "h/test"             :arg1-body
+  "h/test-skip"        :arg1-body
+  "h/test-only"        :arg1-body
+  "test/async"         :arg1-body
+  "test/use-fixtures"  :arg1-body
+  "global.describe"    :arg1-body
+  "global.test"        :arg1-body
+  "list-comp"          :binding
+  "defview"            :arg1-body
+  "letsubs"            :binding
+  "with-let"           "let"
+  "reg-event-fx"       :arg1-pair
+  "reg-fx"             :arg1-pair
+  "testing"            :arg1-body
+  "deftest-sub"        :arg1-body
+  "h/integration-test" :arg1-body
+  "wait-for"           :arg1-body
+  "with-deps-check"    :arg1-body
+  "schema/=>"          :arg1-body
+  "->"                 [:noarg1-body
+                        {:list               {:constant-pair? false :force-nl? false}
+                         :next-inner-restore [[:list :constant-pair?]]}]
+  "set!"               "reset!"
+  "assoc-when"         "assoc"
+  "assoc-some"         "assoc"
+  "conj-when"          "conj"
+  "conj-some"          "conj"}
 
  :style-map
  {:no-comma {:map {:comma? false}}

Makefile

@@ -331,14 +331,13 @@ shadow-server:##@ Start shadow-cljs in server mode for watching
 
 _test-clojure: export TARGET := clojure
 _test-clojure: export WATCH ?= false
-_test-clojure: status-go-library
 _test-clojure:
 ifeq ($(WATCH), true)
-	yarn node-pre-gyp rebuild && \
+	yarn install && \
 	yarn shadow-cljs compile mocks && \
 	nodemon --exec "yarn shadow-cljs compile test && node --require ./test-resources/override.js $$SHADOW_OUTPUT_TO" -e cljs
 else
-	yarn node-pre-gyp rebuild && \
+	yarn install && \
 	yarn shadow-cljs compile mocks && \
 	yarn shadow-cljs compile test && \
 	node --require ./test-resources/override.js "$$SHADOW_OUTPUT_TO"
@@ -351,9 +350,8 @@ test: _test-clojure
 
 test-watch-for-repl: export SHADOW_OUTPUT_TO := target/test/test.js
 test-watch-for-repl: export SHADOW_NS_REGEXP := .*-test$$
-test-watch-for-repl: status-go-library
 test-watch-for-repl: ##@test Watch all Clojure tests and support REPL connections
-	yarn node-pre-gyp rebuild
+	yarn install
 	rm -f target/test/test.js
 	yarn shadow-cljs compile mocks && \
 	concurrently --kill-others --prefix-colors 'auto' --names 'build,repl' \

babel.config.js

@@ -1,9 +1,6 @@
 module.exports = {
-  presets: [
-    "@babel/preset-env"
-  //    'module:metro-react-native-babel-preset'
-  ],
-  /*plugins: ['react-native-reanimated/plugin', '@babel/plugin-transform-named-capturing-groups-regex'],
+  presets: ['module:metro-react-native-babel-preset'],
+  plugins: ['react-native-reanimated/plugin', '@babel/plugin-transform-named-capturing-groups-regex'],
   env: {
     test: {
       presets: [
@@ -18,5 +15,5 @@ module.exports = {
         ],
       ],
     },
-  },*/
+  },
 };

modules/react-native-status/nodejs/status.cpp

@@ -1888,36 +1888,6 @@ void _InitLogging(const FunctionCallbackInfo<Value>& args) {
     delete c;
 }
 
-void _RestoreAccountAndLogin(const FunctionCallbackInfo<Value>& args) {
-	Isolate* isolate = args.GetIsolate();
-        Local<Context> context = isolate->GetCurrentContext();
-
-	if (args.Length() != 1) {
-		// Throw an Error that is passed back to JavaScript
-		isolate->ThrowException(Exception::TypeError(
-			String::NewFromUtf8Literal(isolate, "Wrong number of arguments for RestoreAccountAndLogin")));
-		return;
-	}
-
-	// Check the argument types
-
-	if (!args[0]->IsString()) {
-		isolate->ThrowException(Exception::TypeError(
-			String::NewFromUtf8Literal(isolate, "Wrong argument type for 'RestoreAccountAndLogin'")));
-		return;
-	}
-
-	String::Utf8Value arg0Obj(isolate, args[0]->ToString(context).ToLocalChecked());
-	char *arg0 = *arg0Obj;
-
-	// Call exported Go function, which returns a C string
-	char *c = RestoreAccountAndLogin(arg0);
-
-	Local<String> ret = String::NewFromUtf8(isolate, c).ToLocalChecked();
-	args.GetReturnValue().Set(ret);
-	delete c;
-}
-
 
 void init(Local<Object> exports) {
 	NODE_SET_METHOD(exports, "multiAccountGenerateAndDeriveAddresses", _MultiAccountGenerateAndDeriveAddresses);
@@ -1975,7 +1945,6 @@ void init(Local<Object> exports) {
 	NODE_SET_METHOD(exports, "connectionChange", _ConnectionChange);
 	NODE_SET_METHOD(exports, "pollSignal", _PollSignal);
 	NODE_SET_METHOD(exports, "initLogging", _InitLogging);
-	NODE_SET_METHOD(exports, "restoreAccountAndLogin", _RestoreAccountAndLogin);
 }
 
 NODE_MODULE(NODE_GYP_MODULE_NAME, init)

nix/scripts/node_modules.sh

@@ -53,14 +53,6 @@ copyNodeModules() {
 
 # Find files that were modified and should cause a re-copying of node modules.
 # Some files are generated/modified by build processes and should be ignored.
-#
-# react-native/ReactCommon/react/renderer/components/rncore/*
-# generated at runtime by react-native
-# related code https://github.com/facebook/react-native/blob/v0.72.5/packages/react-native/ReactCommon/React-rncore.podspec#L19
-#
-# react-native-config/ios/ReactNativeConfig/GeneratedDotEnv.m
-# generated at runtime by react-native-config
-# related code https://github.com/lugg/react-native-config/blob/v1.5.0/react-native-config.podspec#L52
 findFilesNewerThan() {
   local sentinel="${1}"
   local dir="${2}"
@@ -69,8 +61,6 @@ findFilesNewerThan() {
       -not -ipath "*/*android/build/*" -prune \
       -not -ipath "*/xcuserdata/*" -prune \
       -not -ipath "*/scripts/.packager.env" \
-      -not -path "*/node_modules/react-native/ReactCommon/react/renderer/components/rncore/*" \
-      -not -path "*/node_modules/react-native-config/ios/ReactNativeConfig/GeneratedDotEnv.m" \
       -print
 }
 

package.json

@@ -78,7 +78,6 @@
     "@babel/helper-builder-react-jsx": "^7.20.0",
     "@babel/plugin-transform-block-scoping": "^7.20.0",
     "@babel/preset-env": "^7.20.0",
-    "@babel/preset-es2015": "^7.0.0-beta.53",
     "@babel/preset-react": "^7.18.6",
     "@babel/register": "7.0.0",
     "@jest/globals": "^25.1.0",

shadow-cljs.edn

@@ -46,7 +46,6 @@
    ;; To match the folder created by Nix build of JSBundle.
    :output-dir "result"
    :init-fn status-im.core/init
-   :build-hooks [(status-im.setup.build-hooks.worklets/transform-output)]
    ;; When false, the Shadow-CLJS watcher won't automatically refresh
    ;; the target files (a.k.a hot reload). When false, you can manually
    ;; reload by calling `shadow.cljs.devtools.api/watch-compile-all!`.

src/legacy/status_im/browser/core.cljs

@@ -3,6 +3,7 @@
     ["eth-phishing-detect" :as eth-phishing-detect]
     [clojure.string :as string]
     [legacy.status-im.bottom-sheet.events :as bottom-sheet]
+    [legacy.status-im.browser.eip3085 :as eip3085]
     [legacy.status-im.browser.eip3326 :as eip3326]
     [legacy.status-im.browser.permissions :as browser.permissions]
     [legacy.status-im.browser.webview-ref :as webview-ref]
@@ -442,6 +443,9 @@
         (= method "wallet_switchEthereumChain")
         (eip3326/handle-switch-ethereum-chain cofx dapp-name id message-id (first params))
 
+        (= method "wallet_addEthereumChain")
+        (eip3085/handle-add-ethereum-chain cofx dapp-name id message-id (first params))
+
         :else
         {:browser/call-rpc [payload
                             #(re-frame/dispatch [:browser.callback/call-rpc

src/legacy/status_im/browser/eip3085.cljs

@@ -2,6 +2,10 @@
 ;(`wallet_addEthereumChain`)
 (ns legacy.status-im.browser.eip3085
   (:require
+    [clojure.string :as string]
+    [legacy.status-im.network.core :as network]
+    [legacy.status-im.ui.screens.browser.eip3085.sheet :as sheet]
+    [legacy.status-im.utils.random :as random]
     [re-frame.core :as re-frame]
     [status-im.constants :as constants]
     [taoensso.timbre :as log]
@@ -36,3 +40,37 @@
                                         :message "User rejected the request."}}
    :dispatch               [:bottom-sheet/hide-old]})
 
+(rf/defn handle-add-ethereum-chain
+  {:events [:eip3085/handle-add-ethereum-chain]}
+  [{{:networks/keys [networks] :as db} :db :as cofx}
+   dapp-name id message-id
+   {:keys [chainId blockExplorerUrls chainName iconUrls nativeCurrency rpcUrls] :as params}]
+  (let [manage {:name       {:value chainName}
+                :symbol     {:value (:symbol nativeCurrency)}
+                :url        {:value (first rpcUrls)}
+                :network-id {:value chainId}
+                :chain      {:value :custom}}]
+    (if (network/valid-manage? manage)
+      (let [{:keys [name url chain network-id symbol]} manage
+            random-id                                  (string/replace (random/id) "-" "")
+            network                                    (network/new-network random-id
+                                                                            (:value name)
+                                                                            (:value symbol)
+                                                                            (:value url)
+                                                                            (:value chain)
+                                                                            (:value network-id))
+            new-networks                               (assoc networks random-id network)
+            params                                     (assoc params
+                                                              :new-networks new-networks
+                                                              :id           id
+                                                              :new-network  network)]
+        (if (network/chain-id-available? networks network)
+          {:dispatch [:bottom-sheet/show-sheet-old
+                      {:content (fn []
+                                  [sheet/permissions-panel dapp-name message-id params])}]}
+          (send-success-call-to-bridge cofx id message-id)))
+      {:browser/send-to-bridge {:type      constants/web3-send-async-callback
+                                :messageId message-id
+                                :error     {:code    -32602
+                                            :message "invalid network parameters"}}})))
+

src/legacy/status_im/contact/db.cljs

@@ -45,12 +45,12 @@
     (query-fn (comp participant-set :public-key) (vals all-contacts))))
 
 (defn get-all-contacts-in-group-chat
-  [members admins contacts {:keys [public-key preferred-name name display-name] :as current-account}]
+  [members admins contacts {:keys [public-key preferred-name name] :as current-account}]
   (let [current-contact (some->
                           current-account
-                          (select-keys [:name :preferred-name :public-key :images :compressed-key])
+                          (select-keys [:name :preferred-name :public-key :images])
                           (set/rename-keys {:name :alias :preferred-name :name})
-                          (assoc :primary-name (or display-name preferred-name name)))
+                          (assoc :primary-name (or preferred-name name)))
         all-contacts    (cond-> contacts
                           current-contact
                           (assoc public-key current-contact))]

src/legacy/status_im/data_store/activities_test.cljs

@@ -29,39 +29,37 @@
 
   (testing "transforms messages from RPC response"
     (is
-     (= {:last-message  {:quoted-message       nil
-                         :outgoing-status      nil
-                         :command-parameters   nil
-                         :link-previews        []
-                         :status-link-previews []
-                         :content              {:sticker     nil
-                                                :rtl?        nil
-                                                :ens-name    nil
-                                                :parsed-text nil
-                                                :response-to nil
-                                                :chat-id     nil
-                                                :image       nil
-                                                :line-count  nil
-                                                :links       nil
-                                                :text        nil}
-                         :outgoing             false}
+     (= {:last-message  {:quoted-message     nil
+                         :outgoing-status    nil
+                         :command-parameters nil
+                         :link-previews      []
+                         :content            {:sticker     nil
+                                              :rtl?        nil
+                                              :ens-name    nil
+                                              :parsed-text nil
+                                              :response-to nil
+                                              :chat-id     nil
+                                              :image       nil
+                                              :line-count  nil
+                                              :links       nil
+                                              :text        nil}
+                         :outgoing           false}
          :message       nil
-         :reply-message {:quoted-message       nil
-                         :outgoing-status      nil
-                         :command-parameters   nil
-                         :link-previews        []
-                         :status-link-previews []
-                         :content              {:sticker     nil
-                                                :rtl?        nil
-                                                :ens-name    nil
-                                                :parsed-text nil
-                                                :response-to nil
-                                                :chat-id     nil
-                                                :image       nil
-                                                :line-count  nil
-                                                :links       nil
-                                                :text        nil}
-                         :outgoing             false}}
+         :reply-message {:quoted-message     nil
+                         :outgoing-status    nil
+                         :command-parameters nil
+                         :link-previews      []
+                         :content            {:sticker     nil
+                                              :rtl?        nil
+                                              :ens-name    nil
+                                              :parsed-text nil
+                                              :response-to nil
+                                              :chat-id     nil
+                                              :image       nil
+                                              :line-count  nil
+                                              :links       nil
+                                              :text        nil}
+                         :outgoing           false}}
         (-> raw-notification
             store/<-rpc
             (select-keys [:last-message :message :reply-message])))))

src/legacy/status_im/data_store/communities.cljs

@@ -4,6 +4,13 @@
     [clojure.walk :as walk]
     [status-im.constants :as constants]))
 
+(defn rpc->channel-permissions
+  [rpc-channels-permissions]
+  (update-vals rpc-channels-permissions
+               (fn [{:keys [viewAndPostPermissions viewOnlyPermissions]}]
+                 {:view-only     (set/rename-keys viewOnlyPermissions {:satisfied :satisfied?})
+                  :view-and-post (set/rename-keys viewAndPostPermissions {:satisfied :satisfied?})})))
+
 (defn <-revealed-accounts-rpc
   [accounts]
   (mapv
@@ -27,9 +34,8 @@
                (assoc acc
                       (name k)
                       (-> v
-                          (assoc :token-gated? (:tokenGated v)
-                                 :can-post?    (:canPost v))
-                          (dissoc :canPost :tokenGated)
+                          (assoc :can-post? (:canPost v))
+                          (dissoc :canPost)
                           (update :members walk/stringify-keys))))
              {}
              chats))

src/legacy/status_im/data_store/communities_test.cljs

@@ -0,0 +1,23 @@
+(ns legacy.status-im.data-store.communities-test
+  (:require
+    [cljs.test :refer [deftest is]]
+    [legacy.status-im.data-store.communities :as sut]))
+
+(def permissions
+  {"community-id-chat-1"
+   {:viewOnlyPermissions    {:satisfied   false
+                             :permissions {:token-permission-id-01 {:criteria [false]}}}
+    :viewAndPostPermissions {:satisfied true :permissions {}}}
+   "community-id-chat-2"
+   {:viewOnlyPermissions    {:satisfied true :permissions {}}
+    :viewAndPostPermissions {:satisfied true :permissions {}}}})
+
+(deftest rpc->channel-permissions-test
+  (is (= {"community-id-chat-1"
+          {:view-only     {:satisfied?  false
+                           :permissions {:token-permission-id-01 {:criteria [false]}}}
+           :view-and-post {:satisfied? true :permissions {}}}
+          "community-id-chat-2"
+          {:view-only     {:satisfied? true :permissions {}}
+           :view-and-post {:satisfied? true :permissions {}}}}
+         (sut/rpc->channel-permissions permissions))))

src/legacy/status_im/data_store/messages.cljs

@@ -16,41 +16,13 @@
                       :community-id      :communityId
                       :clock-value       :clock})))
 
-(defn- <-status-link-previews-rpc
-  [preview]
-  (-> preview
-      (update :community
-              set/rename-keys
-              {:communityId        :community-id
-               :displayName        :display-name
-               :membersCount       :members-count
-               :activeMembersCount :active-members-count})
-      (update-in [:community :banner] set/rename-keys {:dataUri :data-uri})
-      (update-in [:community :icon] set/rename-keys {:dataUri :data-uri})))
-
-(defn ->status-link-previews-rpc
-  [preview]
-  (-> preview
-      (update :community
-              set/rename-keys
-              {:community-id         :communityId
-               :display-name         :displayName
-               :members-count        :membersCount
-               :active-members-count :activeMembersCount})
-      (update-in [:community :banner] set/rename-keys {:data-uri :dataUri})
-      (update-in [:community :icon] set/rename-keys {:data-uri :dataUri})))
-
 (defn- <-link-preview-rpc
   [preview]
-  (-> preview
-      (update :thumbnail set/rename-keys {:dataUri :data-uri})
-      (update :favicon set/rename-keys {:dataUri :data-uri})))
+  (update preview :thumbnail set/rename-keys {:dataUri :data-uri}))
 
 (defn ->link-preview-rpc
   [preview]
-  (-> preview
-      (update :thumbnail set/rename-keys {:data-uri :dataUri})
-      (update :favicon set/rename-keys {:data-uri :dataUri})))
+  (update preview :thumbnail set/rename-keys {:data-uri :dataUri}))
 
 (defn <-rpc
   [message]
@@ -81,10 +53,8 @@
         :new                      :new?
         :albumImagesCount         :album-images-count
         :displayName              :display-name
-        :linkPreviews             :link-previews
-        :statusLinkPreviews       :status-link-previews})
+        :linkPreviews             :link-previews})
       (update :link-previews #(map <-link-preview-rpc %))
-      (update :status-link-previews #(map <-status-link-previews-rpc %))
       (update :quoted-message
               set/rename-keys
               {:parsedText       :parsed-text

src/legacy/status_im/data_store/messages_test.cljs

@@ -37,19 +37,7 @@
                     :compressed-key             "c"
                     :timestamp                  3
                     :link-previews              [{:thumbnail {:url      "http://localhost"
-                                                              :data-uri "data:image/png"}
-                                                  :favicon   nil}]
-                    :status-link-previews       [{:url       "http://localhost"
-                                                  :community {:community-id "0x01"
-                                                              :display-name "Test Comm"
-                                                              :members-count 12
-                                                              :active-members-count 12
-                                                              :banner
-                                                              {:data-uri
-                                                               "data:image/png"}
-                                                              :icon
-                                                              {:data-uri
-                                                               "data:image/png"}}}]}
+                                                              :data-uri "data:image/png"}}]}
           message  {:id                       message-id
                     :whisperTimestamp         1
                     :parsedText               "parsed-text"
@@ -73,17 +61,5 @@
                     :timestamp                3
                     :outgoingStatus           "sending"
                     :linkPreviews             [{:thumbnail {:url     "http://localhost"
-                                                            :dataUri "data:image/png"}
-                                                :favicon   nil}]
-                    :statusLinkPreviews       [{:url       "http://localhost"
-                                                :community {:communityId "0x01"
-                                                            :displayName "Test Comm"
-                                                            :membersCount 12
-                                                            :activeMembersCount 12
-                                                            :banner
-                                                            {:dataUri
-                                                             "data:image/png"}
-                                                            :icon
-                                                            {:dataUri
-                                                             "data:image/png"}}}]}]
+                                                            :dataUri "data:image/png"}}]}]
       (is (= expected (m/<-rpc message))))))

src/legacy/status_im/events.cljs

@@ -37,6 +37,7 @@
     [react-native.core :as rn]
     [react-native.permissions :as permissions]
     [react-native.platform :as platform]
+    [status-im.common.biometric.events :as biometric]
     status-im.common.serialization
     status-im.common.standard-authentication.events
     [status-im.common.theme.core :as theme]
@@ -119,7 +120,7 @@
       :content             (i18n/label :t/biometric-auth-confirm-message)
       :confirm-button-text (i18n/label :t/biometric-auth-confirm-try-again)
       :cancel-button-text  (i18n/label :t/biometric-auth-confirm-logout)
-      :on-accept           #(rf/dispatch [:biometric/authenticate {:on-fail on-biometric-auth-fail}])
+      :on-accept           #(biometric/authenticate nil {:on-fail on-biometric-auth-fail})
       :on-cancel           #(re-frame/dispatch [:multiaccounts.logout.ui/logout-confirmed])})))
 
 (rf/defn on-return-from-background
@@ -141,7 +142,7 @@
               #(when-let [chat-id (:current-chat-id db)]
                  {:dispatch [:chat/mark-all-as-read chat-id]})
               #(when requires-bio-auth
-                 {:dispatch [:biometric/authenticate {:on-fail on-biometric-auth-fail}]}))))
+                 (biometric/authenticate % {:on-fail on-biometric-auth-fail})))))
 
 (rf/defn on-going-in-background
   [{:keys [db now]}]

src/legacy/status_im/multiaccounts/logout/core.cljs

@@ -13,14 +13,15 @@
    (native-module/logout)))
 
 (rf/defn initialize-app-db
-  [{{:keys         [keycard initials-avatar-font-file biometrics]
-     :network/keys [type]}
+  [{{:keys           [keycard initials-avatar-font-file]
+     :biometric/keys [supported-type]
+     :network/keys   [type]}
     :db}]
   {:db (assoc db/app-db
               :network/type              type
               :initials-avatar-font-file initials-avatar-font-file
               :keycard                   (dissoc keycard :secrets :pin :application-info)
-              :biometrics                biometrics
+              :biometric/supported-type  supported-type
               :syncing                   nil)})
 
 (rf/defn logout-method
@@ -28,7 +29,8 @@
   [{:keys [db] :as cofx} {:keys [auth-method logout?]}]
   (let [key-uid (get-in db [:profile/profile :key-uid])]
     (rf/merge cofx
-              {:effects.shell/reset-state              nil
+              {:set-root                               :progress
+               :effects.shell/reset-state              nil
                :hide-popover                           nil
                ::logout                                nil
                :profile.settings/webview-debug-changed false
@@ -44,7 +46,6 @@
   [_]
   ;; we need to disable notifications before starting the logout process
   {:effects/push-notifications-disable nil
-   :dispatch                           [:alert-banners/remove-all]
    :dispatch-later                     [{:ms       100
                                          :dispatch [::logout-method
                                                     {:auth-method keychain/auth-method-none

src/legacy/status_im/network/core.cljs

@@ -1,6 +1,11 @@
 (ns legacy.status-im.network.core
   (:require
-    [clojure.string :as string]))
+    [clojure.string :as string]
+    [re-frame.core :as re-frame]
+    [status-im.navigation.events :as navigation]
+    [utils.ethereum.chain :as chain]
+    [utils.i18n :as i18n]
+    [utils.re-frame :as rf]))
 
 (def url-regex
   #"https?://(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}(\.[a-z]{2,6})?\b([-a-zA-Z0-9@:%_\+.~#?&//=]*)")
@@ -9,6 +14,12 @@
   [url]
   (boolean (re-matches url-regex (str url))))
 
+(def default-manage
+  {:name   {:value ""}
+   :url    {:value ""}
+   :symbol {:value ""}
+   :chain  {:value :mainnet}})
+
 (defn validate-string
   [{:keys [value]}]
   {:value value
@@ -45,3 +56,123 @@
   [current-networks network]
   (let [chain-id (get-in network [:config :NetworkId])]
     (every? #(not= chain-id (get-in % [1 :config :NetworkId])) current-networks)))
+
+(defn get-network
+  [{:keys [db]} network-id]
+  (get-in db [:networks/networks network-id]))
+
+(rf/defn set-input
+  {:events [::input-changed]}
+  [{:keys [db]} input-key value]
+  {:db (-> db
+           (update-in [:networks/manage input-key] assoc :value value)
+           (update-in [:networks/manage] validate-manage))})
+
+;; No edit functionality actually implemented
+(rf/defn edit
+  {:events [::add-network-pressed]}
+  [{db :db}]
+  {:db       (assoc db :networks/manage (validate-manage default-manage))
+   :dispatch [:navigate-to :edit-network]})
+
+(rf/defn connect-success
+  {:events [::connect-success]}
+  [_ network-id]
+  {:ui/show-confirmation
+   {:title               (i18n/label :t/close-app-title)
+    :content             (i18n/label :t/logout-app-content)
+    :confirm-button-text (i18n/label :t/close-app-button)
+    :on-accept           #(re-frame/dispatch [::save-network-settings-pressed network-id])
+    :on-cancel           nil}})
+
+(rf/defn connect-failure
+  {:events [::connect-failure]}
+  [_ reason]
+  {:effects.utils/show-popup
+   {:title   (i18n/label :t/error)
+    :content (str reason)}})
+
+(rf/defn connect
+  {:events [::connect-network-pressed]}
+  [{:keys [db] :as cofx} network-id]
+  (if (get-in db [:networks/networks network-id :config])
+    (connect-success cofx network-id)
+    (connect-failure cofx "A network with the specified id doesn't exist")))
+
+(rf/defn delete
+  {:events [::delete-network-pressed]}
+  [{:keys [db]} network]
+  (let [current-network? (= (:networks/current-network db) network)]
+    (if (or current-network?
+            (not (get-in db [:networks/networks network])))
+      {:ui/show-error (i18n/label :t/delete-network-error)}
+      {:ui/show-confirmation {:title               (i18n/label :t/delete-network-title)
+                              :content             (i18n/label :t/delete-network-confirmation)
+                              :confirm-button-text (i18n/label :t/delete)
+                              :on-accept           #(re-frame/dispatch [::remove-network-confirmed
+                                                                        network])
+                              :on-cancel           nil}})))
+
+(rf/defn save-network-settings
+  {:events [::save-network-settings-pressed]}
+  [{:keys [db] :as cofx} network]
+  {:db            (assoc db :networks/current-network network)
+   :json-rpc/call [{:method     "settings_saveSetting"
+                    :params     [:networks/current-network network]
+                    :on-success #(re-frame/dispatch [:logout])}]})
+
+(rf/defn remove-network
+  {:events [::remove-network-confirmed]}
+  [{:keys [db] :as cofx} network]
+  (let [networks (dissoc (:networks/networks db) network)]
+    {:db            (assoc db :networks/networks networks)
+     :json-rpc/call [{:method     "settings_saveSetting"
+                      :params     [:networks/networks (vals networks)]
+                      :on-success #(re-frame/dispatch [:navigate-back])}]}))
+
+(defn new-network
+  [random-id network-name sym upstream-url chain-type chain-id]
+  (let [data-dir (str "/ethereum/" (name chain-type) "_rpc")
+        config   {:NetworkId      (or (when chain-id (int chain-id))
+                                      (chain/chain-keyword->chain-id chain-type))
+                  :DataDir        data-dir
+                  :UpstreamConfig {:Enabled true
+                                   :URL     upstream-url}}]
+    {:id     random-id
+     :name   network-name
+     :symbol sym
+     :config config}))
+
+(rf/defn save
+  {:events       [::save-network-pressed]
+   :interceptors [(re-frame/inject-cofx :random-id-generator)]}
+  [{{:networks/keys [manage networks] :as db} :db
+    random-id-generator                       :random-id-generator
+    :as                                       cofx}]
+  (if (valid-manage? manage)
+    ;; rename network-id from UI to chain-id
+    (let [{:keys [name url chain network-id symbol]} manage
+          random-id                                  (string/replace (random-id-generator) "-" "")
+          network                                    (new-network random-id
+                                                                  (:value name)
+                                                                  (:value symbol)
+                                                                  (:value url)
+                                                                  (:value chain)
+                                                                  (:value network-id))
+          custom-chain-type?                         (= :custom (:value chain))
+          new-networks                               (assoc networks random-id network)]
+      (if (or (not custom-chain-type?)
+              (chain-id-available? networks network))
+        {:db            (-> db
+                            (dissoc :networks/manage)
+                            (assoc :networks/networks new-networks))
+         :json-rpc/call [{:method     "settings_saveSetting"
+                          :params     [:networks/networks (vals new-networks)]
+                          :on-success #(re-frame/dispatch [:navigate-back])}]}
+        {:ui/show-error "chain-id already defined"}))
+    {:ui/show-error "invalid network parameters"}))
+
+(rf/defn open-network-details
+  {:events [::network-entry-pressed]}
+  [cofx network]
+  (navigation/navigate-to cofx :network-details {:networks/selected-network network}))

src/legacy/status_im/network/core_test.cljs

@@ -31,6 +31,38 @@
   (testing "an https url not on the default port"
     (is (network.core/valid-rpc-url? "https://valid.something.else:65323"))))
 
+(deftest new-network-test
+  (let [actual (network.core/new-network "randomid"
+                                         "network-name"
+                                         "network-symbol"
+                                         "upstream-url"
+                                         :mainnet
+                                         nil)]
+    (is (= {:id     "randomid"
+            :name   "network-name"
+            :symbol "network-symbol"
+            :config {:NetworkId      1
+                     :DataDir        "/ethereum/mainnet_rpc"
+                     :UpstreamConfig {:Enabled true
+                                      :URL     "upstream-url"}}}
+           actual))))
+
+(deftest new-network-id-test
+  (let [actual (network.core/new-network "randomid"
+                                         "network-name"
+                                         "network-symbol"
+                                         "upstream-url"
+                                         :mainnet
+                                         "5777")]
+    (is (= {:id     "randomid"
+            :name   "network-name"
+            :symbol "network-symbol"
+            :config {:NetworkId      5777
+                     :DataDir        "/ethereum/mainnet_rpc"
+                     :UpstreamConfig {:Enabled true
+                                      :URL     "upstream-url"}}}
+           actual))))
+
 (deftest valid-manage-test
   (testing "a valid manage"
     (is (network.core/valid-manage? {:url    {:value "http://valid.com"}
@@ -60,3 +92,101 @@
                                           :name   {:value "valid"}
                                           :symbol {:value ""}
                                           :chain  {:value "valid"}})))))
+
+(deftest set-input-test
+  (testing "it updates and validate a field"
+    (is
+     (= {:db {:networks/manage {:url        {:value "http://valid.com"
+                                             :error false}
+                                :name       {:value ""
+                                             :error true}
+                                :symbol     {:value "symbol"
+                                             :error false}
+                                :chain      {:value "mainnet"
+                                             :error false}
+                                :network-id {:value nil
+                                             :error false}}}}
+        (network.core/set-input {:db {:networks/manage {:url    {:value "something"
+                                                                 :error true}
+                                                        :name   {:value ""
+                                                                 :error false}
+                                                        :symbol {:value "symbol"
+                                                                 :error false}
+                                                        :chain  {:value "mainnet"
+                                                                 :error false}}}}
+                                :url
+                                "http://valid.com")))))
+
+(deftest not-save-invalid-url
+  (testing "it does not save a network with an invalid url"
+    (is
+     (:ui/show-error (network.core/save {:random-id-generator (constantly "random")
+                                         :db                  {:networks/manage {:url   {:value "wrong"}
+                                                                                 :chain {:value "1"}
+                                                                                 :name  {:value "empty"}}
+                                                               :profile/profile {}}})))))
+
+(deftest save-valid-network
+  (testing "save a valid network"
+    (let [fx (network.core/save
+              {:random-id-generator (constantly "random-id")
+               :db                  {:networks/manage   {:url    {:value "http://valid.com"}
+                                                         :chain  {:value :mainnet}
+                                                         :symbol {:value "symbol"}
+                                                         :name   {:value "valid"}}
+                                     :profile/profile   {}
+                                     :networks/networks {"random2"
+                                                         {:id     "random2"
+                                                          :name   "network-name"
+                                                          :symbol "symbol"
+                                                          :config {:NetworkId 1
+                                                                   :DataDir "/ethereum/mainnet_rpc"
+                                                                   :UpstreamConfig
+                                                                   {:Enabled true
+                                                                    :URL     "upstream-url"}}}}}})]
+      (is (= "settings_saveSetting" (:method (first (:json-rpc/call fx)))))
+      (is (nil? (:networks/manage (:db fx))))
+      (testing "and check that it has an id with `-` and the correct mainnet NetworkId"
+        (is (= 1 (get-in fx [:db :networks/networks "randomid" :config :NetworkId])))))))
+
+(deftest not-save-custom-chain-with-non-unique-id
+  (testing "it does not save a custom chain with network-id already defined"
+    (let [result (network.core/save
+                  {:random-id-generator (constantly "already-defined")
+                   :db                  {:networks/manage   {:url        {:value "http://valid.com"}
+                                                             :chain      {:value :custom}
+                                                             :name       {:value "valid"}
+                                                             :network-id {:value 1}}
+                                         :profile/profile   {}
+                                         :networks/networks {"random"
+                                                             {:id     "random"
+                                                              :name   "network-name"
+                                                              :config {:NetworkId 1
+                                                                       :DataDir "/ethereum/mainnet_rpc"
+                                                                       :UpstreamConfig
+                                                                       {:Enabled true
+                                                                        :URL     "upstream-url"}}}}}})]
+      (is (:ui/show-error result)))))
+
+(deftest save-valid-network-with-unique-chain-id-check
+  (testing "save a valid network with chain-id not already defined"
+    (let [fx (network.core/save
+              {:random-id-generator (constantly "random")
+               :db                  {:networks/manage   {:url        {:value "http://valid.com"}
+                                                         :chain      {:value :mainnet}
+                                                         :name       {:value "valid"}
+                                                         :symbol     {:value "symbol"}
+                                                         :network-id {:value 5}}
+                                     :profile/profile   {}
+                                     :networks/networks {"randomid"
+                                                         {:id     "randomid"
+                                                          :name   "network-name"
+                                                          :symbol "symbol"
+                                                          :config {:NetworkId 3
+                                                                   :DataDir "/ethereum/mainnet_rpc"
+                                                                   :UpstreamConfig
+                                                                   {:Enabled true
+                                                                    :URL     "upstream-url"}}}}}})]
+      (is (= "settings_saveSetting" (:method (first (:json-rpc/call fx)))))
+      (is (nil? (:networks/manage (:db fx))))
+      (is (get-in fx [:db :networks/networks "random"])))))

src/legacy/status_im/subs/networks.cljs

@@ -0,0 +1,39 @@
+(ns legacy.status-im.subs.networks
+  (:require
+    [re-frame.core :as re-frame]
+    [status-im.config :as config]
+    [utils.ethereum.chain :as chain]))
+
+(defn- filter-networks
+  [network-type]
+  (fn [network]
+    (let [chain-id (chain/network->chain-id network)
+          testnet? (chain/testnet? chain-id)
+          custom?  (:custom? network)]
+      (case network-type
+        :custom  custom?
+        :mainnet (and (not custom?) (not testnet?))
+        :testnet (and (not custom?) testnet?)))))
+
+(defn- label-networks
+  [default-networks]
+  (fn [network]
+    (let [custom? (not (default-networks (:id network)))]
+      (assoc network :custom? custom?))))
+
+(re-frame/reg-sub
+ :get-networks
+ :<- [:networks/networks]
+ (fn [networks]
+   (let [networks (map (label-networks (into #{} (map :id config/default-networks)))
+                       (sort-by :name (vals networks)))
+         types    [:mainnet :testnet :custom]]
+     (zipmap
+      types
+      (map #(filter (filter-networks %) networks) types)))))
+
+(re-frame/reg-sub
+ :manage-network-valid?
+ :<- [:networks/manage]
+ (fn [manage]
+   (not-any? :error (vals manage))))

src/legacy/status_im/subs/root.cljs

@@ -5,6 +5,7 @@
     legacy.status-im.subs.ens
     legacy.status-im.subs.keycard
     legacy.status-im.subs.mailservers
+    legacy.status-im.subs.networks
     legacy.status-im.subs.stickers
     [re-frame.core :as re-frame]))
 
@@ -22,7 +23,6 @@
 (reg-root-key-sub :peers-count :peers-count)
 (reg-root-key-sub :peers-summary :peers-summary)
 (reg-root-key-sub :web3-node-version :web3-node-version)
-(reg-root-key-sub :alert-banners :alert-banners)
 
 ;;keycard
 (reg-root-key-sub :keycard :keycard)
@@ -100,7 +100,6 @@
 ;;; Link previews
 (reg-root-key-sub :link-previews-whitelist :link-previews-whitelist)
 (reg-root-key-sub :chat/link-previews :chat/link-previews)
-(reg-root-key-sub :chat/status-link-previews :chat/status-link-previews)
 
 ;;commands
 (reg-root-key-sub :commands/select-account :commands/select-account)

src/legacy/status_im/ui/screens/advanced_settings/views.cljs

@@ -13,7 +13,8 @@
   (re-frame/dispatch event))
 
 (defn- normal-mode-settings-data
-  [{:keys [current-log-level
+  [{:keys [network-name
+           current-log-level
            light-client-enabled?
            transactions-management-enabled?
            current-fleet
@@ -24,6 +25,22 @@
   (keep
    identity
    [{:size :small
+     :title (i18n/label :t/network)
+     :accessibility-label :network-button
+     :container-margin-top 8
+     :on-press
+     #(re-frame/dispatch [:open-modal :network-settings])
+     :accessory :text
+     :accessory-text network-name
+     :chevron true}
+    {:size :small
+     :title (i18n/label :t/network-info)
+     :accessibility-label :network-button
+     :container-margin-top 8
+     :on-press
+     #(re-frame/dispatch [:open-modal :network-info])
+     :chevron true}
+    {:size :small
      :title (i18n/label :t/log-level)
      :accessibility-label :log-level-settings-button
      :on-press
@@ -134,13 +151,15 @@
                   is-goerli-enabled?               [:profile/is-goerli-enabled?]
                   light-client-enabled?            [:profile/light-client-enabled?]
                   webview-debug                    [:profile/webview-debug]
+                  network-name                     [:network-name]
                   transactions-management-enabled? [:wallet-legacy/transactions-management-enabled?]
                   current-log-level                [:log-level/current-log-level]
                   current-fleet                    [:fleets/current-fleet]
                   peer-syncing-enabled?            [:profile/peer-syncing-enabled?]]
     [list/flat-list
      {:data      (flat-list-data
-                  {:current-log-level                current-log-level
+                  {:network-name                     network-name
+                   :current-log-level                current-log-level
                    :transactions-management-enabled? transactions-management-enabled?
                    :light-client-enabled?            light-client-enabled?
                    :current-fleet                    current-fleet

src/legacy/status_im/ui/screens/communities/invite.cljs

@@ -85,7 +85,9 @@
              :accessibility-label :share-community-link
              :type                :secondary
              :on-press            #(debounce/throttle-and-dispatch
-                                    [::communities/share-community-confirmation-pressed @user-pk
+                                    [(if can-invite?
+                                       ::communities/invite-people-confirmation-pressed
+                                       ::communities/share-community-confirmation-pressed) @user-pk
                                      selected]
                                     3000)}
             (i18n/label (if can-invite? :t/invite :t/share))]}]]))))

src/legacy/status_im/ui/screens/network/edit_network/styles.cljs

@@ -0,0 +1,12 @@
+(ns legacy.status-im.ui.screens.network.edit-network.styles)
+
+(def edit-network-view
+  {:flex              1
+   :margin-horizontal 16
+   :margin-vertical   15})
+
+(def bottom-container
+  {:flex-direction   :row
+   :padding-vertical 4})
+
+(def container {:flex 1})

src/legacy/status_im/ui/screens/network/edit_network/views.cljs

@@ -0,0 +1,72 @@
+(ns legacy.status-im.ui.screens.network.edit-network.views
+  (:require
+    [legacy.status-im.network.core :as network]
+    [legacy.status-im.ui.components.core :as quo]
+    [legacy.status-im.ui.components.list.item :as list.item]
+    [legacy.status-im.ui.components.list.views :as list]
+    [legacy.status-im.ui.components.react :as react]
+    [legacy.status-im.ui.screens.network.edit-network.styles :as styles]
+    [re-frame.core :as re-frame]
+    [utils.i18n :as i18n])
+  (:require-macros [legacy.status-im.utils.views :as views]))
+
+(defn- render-network-type
+  [type _ _ manage-network]
+  (let [name (case type
+               :mainnet (i18n/label :t/mainnet-network)
+               :goerli  (i18n/label :t/goerli-network)
+               :custom  (i18n/label :t/custom))]
+    [list.item/list-item
+     {:title     name
+      :accessory :radio
+      :active    (= (get-in manage-network [:chain :value]) type)
+      :on-press  #(re-frame/dispatch [::network/input-changed :chain type])}]))
+
+(views/defview edit-network
+  []
+  (views/letsubs [manage-network [:networks/manage]
+                  is-valid?      [:manage-network-valid?]]
+    (let [custom? (= (get-in manage-network [:chain :value]) :custom)]
+      [react/keyboard-avoiding-view {:flex 1}
+       [react/scroll-view
+        [react/view styles/edit-network-view
+         [react/view {:padding-vertical 8}
+          [quo/text-input
+           {:label          (i18n/label :t/name)
+            :placeholder    (i18n/label :t/specify-name)
+            :default-value  (get-in manage-network [:name :value])
+            :on-change-text #(re-frame/dispatch [::network/input-changed :name %])
+            :auto-focus     true}]]
+         [react/view {:padding-vertical 8}
+          [quo/text-input
+           {:label          (i18n/label :t/symbol)
+            :placeholder    (i18n/label :t/specify-symbol)
+            :default-value  (get-in manage-network [:symbol :value])
+            :on-change-text #(re-frame/dispatch [::network/input-changed :symbol %])
+            :auto-focus     true}]]
+         [react/view {:padding-vertical 8}
+          [quo/text-input
+           {:label          (i18n/label :t/rpc-url)
+            :placeholder    (i18n/label :t/specify-rpc-url)
+            :default-value  (get-in manage-network [:url :value])
+            :on-change-text #(re-frame/dispatch [::network/input-changed :url %])}]]]
+        [quo/list-header (i18n/label :t/network-chain)]
+        [list/flat-list
+         {:data        [:mainnet :goerli :custom]
+          :key-fn      (fn [_ i] (str i))
+          :render-data manage-network
+          :render-fn   render-network-type}]
+        (when custom?
+          [react/view styles/edit-network-view
+           [quo/text-input
+            {:label          (i18n/label :t/network-id)
+             :placeholder    (i18n/label :t/specify-network-id)
+             :on-change-text #(re-frame/dispatch [::network/input-changed :network-id %])}]])]
+       [react/view styles/bottom-container
+        [react/view {:flex 1}]
+        [quo/button
+         {:after    :main-icons/next
+          :type     :secondary
+          :disabled (not is-valid?)
+          :on-press #(re-frame/dispatch [::network/save-network-pressed])}
+         (i18n/label :t/save)]]])))

src/legacy/status_im/ui/screens/network/network_details/views.cljs

@@ -0,0 +1,47 @@
+(ns legacy.status-im.ui.screens.network.network-details.views
+  (:require
+    [legacy.status-im.network.core :as network]
+    [legacy.status-im.ui.components.core :as quo]
+    [legacy.status-im.ui.components.react :as react]
+    [legacy.status-im.ui.screens.network.styles :as st]
+    [legacy.status-im.ui.screens.network.views :as network-settings]
+    [re-frame.core :as re-frame]
+    [utils.debounce :refer [throttle-and-dispatch]]
+    [utils.i18n :as i18n])
+  (:require-macros [legacy.status-im.utils.views :as views]))
+
+(views/defview network-details
+  []
+  (views/letsubs [{:keys [networks/selected-network]} [:get-screen-params]
+                  current-network                     [:networks/current-network]
+                  networks                            [:get-networks]]
+    (let [{:keys [id name config]} selected-network
+          connected?               (= id current-network)
+          custom?                  (seq (filter #(= (:id %) id) (:custom networks)))]
+      [:<>
+       [react/view {:flex 1}
+        [network-settings/network-badge
+         {:name       name
+          :connected? connected?}]
+        (when-not connected?
+          [react/touchable-highlight
+           {:on-press #(throttle-and-dispatch [::network/connect-network-pressed id] 1000)}
+           [react/view st/connect-button-container
+            [react/view
+             {:style               st/connect-button
+              :accessibility-label :network-connect-button}
+             [react/text {:style st/connect-button-label}
+              (i18n/label :t/connect)]]
+            [react/i18n-text
+             {:style st/connect-button-description
+              :key   :connecting-requires-login}]]])
+        [react/view (st/network-config-container)
+         [react/text
+          {:style               st/network-config-text
+           :accessibility-label :network-details-text}
+          config]]]
+       (when custom?
+         [react/view st/bottom-container
+          [react/view {:flex 1}
+           [quo/button {:on-press #(re-frame/dispatch [::network/delete-network-pressed id])}
+            (i18n/label :t/delete)]]])])))

src/legacy/status_im/ui/screens/network/styles.cljs

@@ -0,0 +1,90 @@
+(ns legacy.status-im.ui.screens.network.styles
+  (:require
+    [legacy.status-im.ui.components.colors :as colors]
+    [legacy.status-im.utils.styles :as styles]))
+
+(def wrapper
+  {:flex 1})
+
+(def badge-name-text
+  {:font-size 17})
+
+(styles/def badge-connected-text
+  {:color colors/gray
+   :ios   {:margin-top 5}})
+
+(def connect-button-container
+  {:margin-top        8
+   :margin-bottom     16
+   :margin-horizontal 16})
+
+(def connect-button
+  {:height           52
+   :align-items      :center
+   :justify-content  :center
+   :background-color colors/blue
+   :border-radius    8
+   :ios              {:opacity 0.9}})
+
+(def connect-button-label
+  {:color     colors/white-persist
+   :font-size 17})
+
+(def connect-button-description
+  {:color      colors/gray
+   :margin-top 8
+   :height     20})
+
+(styles/defn network-config-container
+  []
+  {:height            160
+   :margin-top        8
+   :padding-top       16
+   :padding-left      16
+   :margin-horizontal 16
+   :background-color  colors/gray-lighter
+   :ios               {:border-radius 9
+                       :opacity       0.9}
+   :android           {:border-radius 4}})
+
+(styles/def network-config-text
+  {:font-size 17
+   :ios       {:opacity 0.8}
+   :android   {:opacity 0.4}})
+
+(defn network-icon
+  [connected? size]
+  {:width            size
+   :height           size
+   :border-radius    (/ size 2)
+   :background-color (if connected? colors/blue colors/gray-lighter)
+   :align-items      :center
+   :justify-content  :center})
+
+(def network-badge
+  {:height         88
+   :padding-left   16
+   :flex-direction :row
+   :align-items    :center})
+
+(styles/def network-item
+  {:flex-direction     :row
+   :align-items        :center
+   :padding-horizontal 16
+   :ios                {:height 64}
+   :android            {:height 56}})
+
+(def network-item-name-text
+  {:font-size 17})
+
+(def network-item-connected-text
+  {:color      colors/gray
+   :font-size  14
+   :margin-top 6})
+
+(def bottom-container
+  {:flex-direction    :row
+   :margin-horizontal 12
+   :margin-vertical   15})
+
+(def container {:flex 1})

src/legacy/status_im/ui/screens/network/views.cljs

@@ -0,0 +1,71 @@
+(ns legacy.status-im.ui.screens.network.views
+  (:require
+    [legacy.status-im.network.core :as network]
+    [legacy.status-im.ui.components.colors :as colors]
+    [legacy.status-im.ui.components.icons.icons :as icons]
+    [legacy.status-im.ui.components.list.item :as list.item]
+    [legacy.status-im.ui.components.list.views :as list]
+    [legacy.status-im.ui.components.react :as react]
+    [legacy.status-im.ui.components.topbar :as topbar]
+    [legacy.status-im.ui.screens.network.styles :as styles]
+    [re-frame.core :as re-frame]
+    [utils.i18n :as i18n])
+  (:require-macros [legacy.status-im.utils.views :as views]))
+
+(defn- network-icon
+  [connected? size]
+  [react/view (styles/network-icon connected? size)
+   [icons/icon :main-icons/network {:color (if connected? colors/white-persist colors/gray)}]])
+
+(defn network-badge
+  [& [{:keys [name connected?]}]]
+  [react/view styles/network-badge
+   [network-icon connected? 56]
+   [react/view {:padding-left 16}
+    [react/text {:style styles/badge-name-text}
+     (or name (i18n/label :t/new-network))]
+    (when connected?
+      [react/i18n-text
+       {:style styles/badge-connected-text
+        :key   :connected}])]])
+
+(def mainnet?
+  #{"mainnet" "mainnet_rpc"})
+
+(defn render-network
+  [{:keys [id name] :as network} _ _ current-network]
+  (let [connected? (= id current-network)]
+    [list.item/list-item
+     {:on-press      #(re-frame/dispatch [::network/network-entry-pressed network])
+      :icon          :main-icons/network
+      :icon-bg-color (if connected? colors/blue colors/gray-lighter)
+      :icon-color    (if connected? colors/white-persist colors/gray)
+      :title         name
+      :subtitle      (when connected? (i18n/label :t/connected))
+      :chevron       true}]))
+
+(views/defview network-settings
+  []
+  (views/letsubs [current-network [:networks/current-network]
+                  networks        [:get-networks]]
+    [:<>
+     [topbar/topbar
+      {:title (i18n/label :t/network-settings)
+       :right-accessories
+       [{:icon     :main-icons/add
+         :on-press #(re-frame/dispatch [::network/add-network-pressed])}]}]
+     [react/view styles/wrapper
+      [list/section-list
+       {:sections           [{:title (i18n/label :t/main-networks)
+                              :key   :mainnet
+                              :data  (:mainnet networks)}
+                             {:title (i18n/label :t/test-networks)
+                              :key   :testnet
+                              :data  (:testnet networks)}
+                             {:title (i18n/label :t/custom-networks)
+                              :key   :custom
+                              :data  (:custom networks)}]
+        :key-fn             :id
+        :default-separator? true
+        :render-data        current-network
+        :render-fn          render-network}]]]))

src/legacy/status_im/ui/screens/network_info/views.cljs

@@ -0,0 +1,84 @@
+(ns legacy.status-im.ui.screens.network-info.views
+  (:require
+    [legacy.status-im.ethereum.decode :as decode]
+    [legacy.status-im.ui.components.react :as react]
+    [native-module.core :as native-module]
+    [re-frame.core :as re-frame]
+    [reagent.core :as reagent]
+    [status-im.common.json-rpc.events :as json-rpc]
+    [utils.datetime :as datetime]))
+
+(defn get-block
+  [block callback]
+  (json-rpc/call
+   {:method     "eth_getBlockByNumber"
+    :params     [block false]
+    :on-success callback
+    :on-error   #(js/alert (str "can't fetch latest block" %))}))
+
+(defn to-date
+  [timestamp]
+  (datetime/timestamp->long-date
+   (* 1000 timestamp)))
+
+(defn check-lag
+  []
+  (let [latest-block (reagent/atom nil)
+        last-loaded-block (reagent/atom nil)
+        on-press
+        (fn []
+          (get-block
+           "latest"
+           (fn [res]
+             (reset! latest-block res)
+             (get-block
+              (str "0x"
+                   (native-module/number-to-hex
+                    @(re-frame/subscribe [:ethereum/current-block])))
+              (fn [res]
+                (reset! last-loaded-block res))))))]
+    (fn []
+      [react/view
+       {:style {:flex              1
+                :margin-horizontal 16}}
+       (if-not @latest-block
+         [react/text
+          {:on-press on-press}
+          "PRESS TO REFRESH"]
+         [react/text
+          {:on-press on-press}
+          (let [latest-block-number
+                (decode/uint (:number @latest-block))
+
+                latest-block-timestamp
+                (decode/uint (:timestamp @latest-block))
+
+                last-loaded-block-number
+                (decode/uint (:number @last-loaded-block))
+
+                last-loaded-block-timestamp
+                (decode/uint (:timestamp @last-loaded-block))]
+            (str "Latest block number: "
+                 latest-block-number
+                 "\n"
+                 "Latest block time: "
+                 (to-date latest-block-timestamp)
+                 "\n"
+                 "Last loaded block: "
+                 last-loaded-block-number
+                 "\n"
+                 "Last loaded block time: "
+                 (to-date last-loaded-block-timestamp)
+                 "\n"
+                 "Seconds diff: "
+                 (- latest-block-timestamp
+                    last-loaded-block-timestamp)
+                 "\n"
+                 "Blocks diff: " (- latest-block-number
+                                    last-loaded-block-number)
+                 "\n"
+                 "PRESS TO REFRESH"))])])))
+
+(defn network-info
+  []
+  [check-lag])

src/legacy/status_im/ui/screens/screens.cljs

@@ -1,6 +1,7 @@
 (ns legacy.status-im.ui.screens.screens
   (:require
     [legacy.status-im.ui.components.colors :as colors]
+    [legacy.status-im.ui.components.icons.icons :as icons]
     [legacy.status-im.ui.screens.about-app.views :as about-app]
     [legacy.status-im.ui.screens.advanced-settings.views :as advanced-settings]
     [legacy.status-im.ui.screens.appearance.views :as appearance]
@@ -23,6 +24,10 @@
     [legacy.status-im.ui.screens.link-previews-settings.views :as link-previews-settings]
     [legacy.status-im.ui.screens.log-level-settings.views :as log-level-settings]
     [legacy.status-im.ui.screens.mobile-network-settings.view :as mobile-network-settings]
+    [legacy.status-im.ui.screens.network-info.views :as network-info]
+    [legacy.status-im.ui.screens.network.edit-network.views :as edit-network]
+    [legacy.status-im.ui.screens.network.network-details.views :as network-details]
+    [legacy.status-im.ui.screens.network.views :as network]
     [legacy.status-im.ui.screens.notifications-settings.views :as notifications-settings]
     [legacy.status-im.ui.screens.offline-messaging-settings.edit-mailserver.views :as edit-mailserver]
     [legacy.status-im.ui.screens.offline-messaging-settings.views :as offline-messaging-settings]
@@ -47,18 +52,10 @@
     [status-im.contexts.chat.group-details.view :as group-details]
     [utils.i18n :as i18n]))
 
-(defn topbar-options
-  [title]
-  {:elevation        0
-   :title            {:color (if (colors/dark?) colors/white colors/black)
-                      :text  (i18n/label title)}
-   :rightButtonColor (if (colors/dark?) colors/white colors/black)
-   :background       {:color (if (colors/dark?) colors/black colors/white)}
-   :backButton       {:color           (if (colors/dark?) colors/white colors/black)
-                      :id              :legacy-back-button
-                      :testID          :back-button
-                      :visible         true
-                      :popStackOnPress false}})
+(defn right-button-options
+  [id icon]
+  {:id   id
+   :icon (icons/icon-source icon)})
 
 (defn screens
   []
@@ -84,7 +81,7 @@
 
    {:name      :stickers
     :options   {:insets {:top? true}
-                :topBar (topbar-options :t/sticker-market)}
+                :topBar {:title {:text (i18n/label :t/sticker-market)}}}
     :component stickers/packs}
 
    {:name      :stickers-pack
@@ -97,7 +94,7 @@
     :component group-chat/new-group}
 
    {:name      :currency-settings
-    :options   {:topBar (topbar-options :t/main-currency)
+    :options   {:topBar {:title {:text (i18n/label :t/main-currency)}}
                 :insets {:top? true}}
     :component currency-settings/currency-settings}
 
@@ -107,27 +104,27 @@
     :options   {:topBar {:visible false}}
     :component profile.user/my-profile}
    {:name      :contacts-list
-    :options   {:topBar (topbar-options :t/contacts)
+    :options   {:topBar {:title {:text (i18n/label :t/contacts)}}
                 :insets {:top? true}}
     :component contacts-list/contacts-list}
    {:name      :ens-main
-    :options   {:topBar (topbar-options :t/ens-usernames)
+    :options   {:topBar {:title {:text (i18n/label :t/ens-usernames)}}
                 :insets {:top? true}}
     :component ens/main}
    {:name      :ens-search
-    :options   {:topBar (topbar-options :t/ens-your-username)
+    :options   {:topBar {:title {:text (i18n/label :t/ens-your-username)}}
                 :insets {:top? true}}
     :component ens/search}
    {:name      :ens-checkout
-    :options   {:topBar (topbar-options :t/ens-your-username)
+    :options   {:topBar {:title {:text (i18n/label :t/ens-your-username)}}
                 :insets {:top? true}}
     :component ens/checkout}
    {:name      :ens-confirmation
-    :options   {:topBar (topbar-options :t/ens-your-username)
+    :options   {:topBar {:title {:text (i18n/label :t/ens-your-username)}}
                 :insets {:top? true}}
     :component ens/confirmation}
    {:name      :ens-terms
-    :options   {:topBar (topbar-options :t/ens-terms-registration)
+    :options   {:topBar {:title {:text (i18n/label :t/ens-terms-registration)}}
                 :insets {:top? true}}
     :component ens/terms}
    {:name      :ens-name-details
@@ -135,7 +132,7 @@
     :options   {:insets {:top? true}}
     :component ens/name-details}
    {:name      :blocked-users-list
-    :options   {:topBar (topbar-options :t/blocked-users)
+    :options   {:topBar {:title {:text (i18n/label :t/blocked-users)}}
                 :insets {:top? true}}
     :component contacts-list/blocked-users-list}
    {:name      :wakuv2-settings
@@ -151,7 +148,7 @@
     :options   {:insets {:top? true}}
     :component bootnodes-settings/bootnodes-settings}
    {:name      :installations
-    :options   {:topBar (topbar-options (i18n/label :t/devices))
+    :options   {:topBar {:title {:text (i18n/label :t/devices)}}
                 :insets {:top? true}}
     :component pairing/installations}
    {:name      :edit-bootnode
@@ -167,91 +164,107 @@
     :options   {:insets {:top? true}}
     :component edit-mailserver/edit-mailserver}
    {:name      :dapps-permissions
-    :options   {:topBar (topbar-options :t/dapps-permissions)
+    :options   {:topBar {:title {:text (i18n/label :t/dapps-permissions)}}
                 :insets {:top? true}}
     :component dapps-permissions/dapps-permissions}
    {:name      :privacy-and-security
-    :options   {:topBar (topbar-options :t/privacy-and-security)
+    :options   {:topBar {:title {:text (i18n/label :t/privacy-and-security)}}
                 :insets {:top? true}}
     :component privacy-and-security/privacy-and-security}
    {:name      :messages-from-contacts-only
-    :options   {:topBar (topbar-options :t/accept-new-chats-from)
+    :options   {:topBar {:title {:text (i18n/label :t/accept-new-chats-from)}}
                 :insets {:top? true}}
     :component messages-from-contacts-only/messages-from-contacts-only-view}
    {:name      :appearance
-    :options   {:topBar (topbar-options :t/appearance)
+    :options   {:topBar {:title {:text (i18n/label :t/appearance)}}
                 :insets {:top? true}}
     :component appearance/appearance-view}
    {:name      :privacy-and-security-profile-pic-show-to
-    :options   {:topbar (topbar-options :t/show-profile-pictures-to)
+    :options   {:topbar {:title {:text (i18n/label :t/show-profile-pictures-to)}}
                 :insets {:top? true}}
     :component privacy-and-security/profile-pic-show-to}
    {:name      :privacy-and-security-profile-pic
-    :options   {:topBar (topbar-options :t/show-profile-pictures)
+    :options   {:topBar {:title {:text (i18n/label :t/show-profile-pictures)}}
                 :insets {:top? true}}
     :component privacy-and-security/profile-pic}
    {:name      :notifications
-    :options   {:topBar (topbar-options :t/notification-settings)
+    :options   {:topBar {:title {:text (i18n/label :t/notification-settings)}}
                 :insets {:top? true}}
     :component notifications-settings/notifications-settings}
    {:name      :sync-settings
-    :options   {:topBar (topbar-options :t/sync-settings)
+    :options   {:topBar {:title {:text (i18n/label :t/sync-settings)}}
                 :insets {:top? true}}
     :component sync-settings/sync-settings}
    {:name      :advanced-settings
-    :options   {:topBar (topbar-options :t/advanced)
+    :options   {:topBar {:title {:text (i18n/label :t/advanced)}}
                 :insets {:top? true}}
     :component advanced-settings/advanced-settings}
    {:name      :help-center
-    :options   {:topBar (topbar-options :t/need-help)
+    :options   {:topBar {:title {:text (i18n/label :t/need-help)}}
                 :insets {:top? true}}
     :component help-center/help-center}
    {:name      :glossary
-    :options   {:topBar (topbar-options :t/glossary)
+    :options   {:topBar {:title {:text (i18n/label :t/glossary)}}
                 :insets {:top? true}}
     :component glossary/glossary}
    {:name      :about-app
-    :options   {:topBar (topbar-options :t/about-app)
+    :options   {:topBar {:title {:text (i18n/label :t/about-app)}}
                 :insets {:top? true}}
     :component about-app/about-app}
    {:name      :privacy-policy
-    :options   {:topBar (topbar-options :t/privacy-policy)
+    :options   {:topBar {:title {:text (i18n/label :t/privacy-policy)}}
                 :insets {:top? true}}
     :component about-app/privacy-policy}
    {:name      :terms-of-service
-    :options   {:topBar (topbar-options :t/terms-of-service)
+    :options   {:topBar {:title {:text (i18n/label :t/terms-of-service)}}
                 :insets {:top? true}}
     :component about-app/tos}
    {:name      :principles
-    :options   {:topBar (topbar-options :t/principles)
+    :options   {:topBar {:title {:text (i18n/label :t/principles)}}
                 :insets {:top? true}}
     :component about-app/principles}
    {:name      :manage-dapps-permissions
     ;;TODO dynamic title
     :options   {:insets {:top? true}}
     :component dapps-permissions/manage}
+   {:name      :network-settings
+    ;;TODO accessories
+    :options   {:insets {:top? true}}
+    :component network/network-settings}
+   {:name      :network-details
+    :options   {:topBar {:title {:text (i18n/label :t/network-details)}}
+                :insets {:top? true}}
+    :component network-details/network-details}
+   {:name      :network-info
+    :options   {:topBar {:title {:text (i18n/label :t/network-info)}}
+                :insets {:top? true}}
+    :component network-info/network-info}
    {:name      :rpc-usage-info
-    :options   {:topBar (topbar-options :t/rpc-usage-info)
+    :options   {:topBar {:title {:text (i18n/label :t/rpc-usage-info)}}
                 :insets {:top? true}}
     :component rpc-usage-info/usage-info}
    {:name      :peers-stats
-    :options   {:topBar (topbar-options :t/peers-stats)
+    :options   {:topBar {:title {:text (i18n/label :t/peers-stats)}}
                 :insets {:top? true}}
     :component peers-stats/peers-stats}
+   {:name      :edit-network
+    :options   {:topBar {:title {:text (i18n/label :t/add-network)}}
+                :insets {:top? true}}
+    :component edit-network/edit-network}
    {:name      :log-level-settings
-    :options   {:topBar (topbar-options :t/log-level-settings)
+    :options   {:topBar {:title {:text (i18n/label :t/log-level-settings)}}
                 :insets {:top? true}}
     :component log-level-settings/log-level-settings}
    {:name      :fleet-settings
-    :options   {:topBar (topbar-options :t/fleet-settings)
+    :options   {:topBar {:title {:text (i18n/label :t/fleet-settings)}}
                 :insets {:top? true}}
     :component fleet-settings/fleet-settings}
    {:name      :mobile-network-settings
-    :options   {:topBar (topbar-options :t/mobile-network-settings)
+    :options   {:topBar {:title {:text (i18n/label :t/mobile-network-settings)}}
                 :insets {:top? true}}
     :component mobile-network-settings/mobile-network-settings}
    {:name      :backup-settings
-    :options   {:topBar (topbar-options :t/backup-settings)
+    :options   {:topBar {:title {:text (i18n/label :t/backup-settings)}}
                 :insets {:top? true}}
     :component backup-settings/backup-settings}
    {:name      :backup-seed
@@ -259,14 +272,14 @@
     :options   {:insets {:top? true}}
     :component profile.seed/backup-seed}
    {:name      :reset-password
-    :options   {:topBar (topbar-options :t/reset-password)
+    :options   {:topBar {:title {:text (i18n/label :t/reset-password)}}
                 :insets {:top? true}}
     :component reset-password/reset-password}
    {:name      :delete-profile
     :insets    {:bottom? true}
     :component delete-profile/delete-profile}
    {:name      :default-sync-period-settings
-    :options   {:topBar (topbar-options :t/default-sync-period)
+    :options   {:topBar {:title {:text (i18n/label :t/default-sync-period)}}
                 :insets {:top? true}}
     :component default-sync-period-settings/default-sync-period-settings}
 
@@ -275,7 +288,7 @@
    ;[Chat] Link preview settings
 
    {:name      :link-previews-settings
-    :options   {:topBar (topbar-options :t/chat-link-previews)
+    :options   {:topBar {:title {:text (i18n/label :t/chat-link-previews)}}
                 :insets {:top? true}}
     :component link-previews-settings/link-previews-settings}
 
@@ -315,7 +328,7 @@
    ;;TODO WHY MODAL?
    ;[Profile] Notifications settings
    {:name      :notifications-settings
-    :options   {:topBar             (topbar-options :t/notification-settings)
+    :options   {:topBar             {:title {:text (i18n/label :t/notification-settings)}}
                 :popGesture         false
                 :hardwareBackButton {:dismissModalOnPress false
                                      :popStackOnPress     false}

src/mocks/js_dependencies.cljs

@@ -2,7 +2,7 @@
   (:require-macros [legacy.status-im.utils.slurp :refer [slurp]])
   (:require
     [legacy.status-im.fleet.default-fleet :refer (default-fleets)])
-  (:require [tests.test-utils :as utils.test]))
+  (:require [legacy.status-im.utils.test :as utils.test]))
 
 ;; to generate a js Proxy at js/__STATUS_MOBILE_JS_IDENTITY_PROXY__ that accept any (.xxx) call and
 ;; return itself

src/quo/components/colors/color_picker/component_spec.cljs

@@ -1,6 +1,7 @@
 (ns quo.components.colors.color-picker.component-spec
   (:require
     [quo.components.colors.color-picker.view :as color-picker]
+    [reagent.core :as reagent]
     [test-helpers.component :as h]))
 
 (h/describe "color-picker"
@@ -11,7 +12,7 @@
       (-> (h/expect event)
           (.toHaveBeenCalled))))
   (h/test "color picker color changed"
-    (let [selected (atom nil)]
+    (let [selected (reagent/atom nil)]
       (h/render [color-picker/view {:on-change #(reset! selected %)}])
       (h/fire-event :press (get (h/get-all-by-label-text :color-picker-item) 0))
       (-> (h/expect @selected)

src/quo/components/community/channel_actions.cljs

@@ -20,8 +20,8 @@
     [text/text {:size :paragraph-1 :weight :medium :number-of-lines 2} label]]])
 
 (defn channel-actions
-  [{:keys [container-style actions]}]
-  [rn/view {:style (assoc container-style :flex-direction :row)}
+  [{:keys [style actions]}]
+  [rn/view {:style (merge {:flex-direction :row :flex 1} style)}
    (map-indexed
     (fn [index action]
       ^{:key index}

src/quo/components/community/style.cljs

@@ -142,6 +142,7 @@
   [color]
   {:padding          12
    :height           102
+   :flex             1
    :border-radius    16
    :background-color (colors/custom-color color 50 10)
    :justify-content  :space-between})

src/quo/components/drawers/drawer_top/view.cljs

@@ -76,8 +76,7 @@
    (str description " · " (i18n/label :t/on-device))])
 
 (defn- context-tag-subtitle
-  [{:keys [context-tag-type community-logo community-name account-name emoji customization-color
-           full-name profile-picture]}]
+  [{:keys [context-tag-type community-logo community-name account-name emoji customization-color]}]
   (let [tag-type (or context-tag-type :account)]
     [rn/view
      {:accessibility-label :context-tag-wrapper
@@ -89,9 +88,7 @@
        :community-name      community-name
        :community-logo      community-logo
        :size                24
-       :customization-color customization-color
-       :profile-picture     profile-picture
-       :full-name           full-name}]]))
+       :customization-color customization-color}]]))
 
 (defn- description-subtitle
   [{:keys [theme blur? description]}]
@@ -103,7 +100,7 @@
 
 (defn- subtitle
   [{:keys [type theme blur? keycard? networks description community-name community-logo
-           context-tag-type account-name emoji customization-color full-name profile-picture]}]
+           context-tag-type account-name emoji customization-color]}]
   (cond
     (= :keypair type)
     [keypair-subtitle
@@ -131,9 +128,7 @@
       :community-name      community-name
       :account-name        account-name
       :emoji               emoji
-      :customization-color customization-color
-      :profile-picture     profile-picture
-      :full-name           full-name}]
+      :customization-color customization-color}]
 
     (and (not= :label type) description)
     [description-subtitle
@@ -192,7 +187,7 @@
            on-button-press
            on-button-long-press
            button-disabled? account-avatar-emoji account-avatar-type customization-color icon-avatar
-           profile-picture keycard? networks label full-name]}]
+           profile-picture keycard? networks label]}]
   [rn/view {:style style/container}
    (when (left-image-supported-types type)
      [rn/view {:style style/left-container}
@@ -223,9 +218,7 @@
       :context-tag-type    context-tag-type
       :customization-color customization-color
       :account-name        account-name
-      :emoji               emoji
-      :full-name           full-name
-      :profile-picture     profile-picture}]]
+      :emoji               emoji}]]
    [right-icon
     {:theme                theme
      :type                 type

src/quo/components/gradient/gradient_cover/style.cljs

@@ -2,10 +2,5 @@
 
 (defn root-container
   [opacity height]
-  {:height   (or height 252)
-   :opacity  opacity
-   :position :absolute
-   :top      0
-   :left     0
-   :right    0
-   :z-index  -1})
+  {:height  (or height 252)
+   :opacity opacity})

src/quo/components/header.cljs

@@ -6,7 +6,8 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
-    [react-native.reanimated :as reanimated]))
+    [react-native.reanimated :as reanimated]
+    [reagent.core :as reagent]))
 
 (def header-height 56)
 
@@ -56,7 +57,7 @@
    :justify-content :center
    :align-items     :flex-end})
 
-(defn get-title-style
+(defn title-style
   [{:keys [left right]} title-align]
   (merge
    absolute-fill
@@ -132,77 +133,76 @@
              :size            :large}
             title])])
 
-(defn header
-  [{:keys [left-accessories left-component border-bottom left-width right-width
-           right-accessories right-component insets get-layout
-           title subtitle title-component style title-align
-           background]
-    :or   {title-align   :center
-           border-bottom false}}]
-  (let [theme               (quo.theme/use-theme-value)
-        [layout set-layout] (rn/use-state {:left  {:width  (or left-width 8)
-                                                   :height header-height}
-                                           :right {:width  (or right-width 8)
-                                                   :height header-height}
-                                           :title {:width  0
-                                                   :height header-height}})
-        handle-layout       (rn/use-callback
-                             (fn [el get-layout]
-                               (fn [evt]
-                                 (let [width  (oget evt "nativeEvent" "layout" "width")
-                                       height (oget evt "nativeEvent" "layout" "height")]
-                                   (when get-layout
-                                     (get-layout el
-                                                 {:width  width
-                                                  :height height}))
-                                   (set-layout
-                                    (assoc layout
-                                           el
-                                           {:width  width
-                                            :height height})))))
-                             [layout])
-        status-bar-height   (get insets :top 0)
-        height              (+ header-height status-bar-height)
-        title-style         (rn/use-memo (fn [] (get-title-style layout title-align))
-                                         [layout title-align])]
-    [reanimated/view
-     {:style (header-wrapper-style {:height        height
-                                    :background    background
-                                    :border-bottom border-bottom
-                                    :theme         theme})}
-     [rn/view
-      {:pointer-events :box-none
-       :height         status-bar-height}]
-     [rn/view
-      {:style          (merge {:height header-height}
-                              style)
-       :pointer-events :box-none}
-      [rn/view
-       {:style          absolute-fill
-        :pointer-events :box-none}
-       [rn/view
-        {:style          content
-         :pointer-events :box-none}
-        [rn/view
-         {:style          left-style
-          :on-layout      (handle-layout :left get-layout)
-          :pointer-events :box-none}
-         [header-actions
-          {:accessories left-accessories
-           :component   left-component}]]
-        [rn/view
-         {:style          title-style
-          :on-layout      (handle-layout :title get-layout)
-          :pointer-events :box-none}
-         [header-title
-          {:title       title
-           :subtitle    subtitle
-           :title-align title-align
-           :component   title-component}]]
-        [rn/view
-         {:style          right-style
-          :on-layout      (handle-layout :right get-layout)
-          :pointer-events :box-none}
-         [header-actions
-          {:accessories right-accessories
-           :component   right-component}]]]]]]))
+(defn- header-internal
+  [{:keys [left-width right-width]}]
+  (let [layout        (reagent/atom {:left  {:width  (or left-width 8)
+                                             :height header-height}
+                                     :right {:width  (or right-width 8)
+                                             :height header-height}
+                                     :title {:width  0
+                                             :height header-height}})
+        handle-layout (fn [el get-layout]
+                        (fn [evt]
+                          (let [width  (oget evt "nativeEvent" "layout" "width")
+                                height (oget evt "nativeEvent" "layout" "height")]
+                            (when get-layout
+                              (get-layout el
+                                          {:width  width
+                                           :height height}))
+                            (swap! layout assoc
+                              el
+                              {:width  width
+                               :height height}))))]
+    (fn
+      [{:keys [left-accessories left-component border-bottom
+               right-accessories right-component insets get-layout
+               title subtitle title-component style title-align
+               background theme]
+        :or   {title-align   :center
+               border-bottom false}}]
+      (let [status-bar-height (get insets :top 0)
+            height            (+ header-height status-bar-height)]
+        [reanimated/view
+         {:style (header-wrapper-style {:height        height
+                                        :background    background
+                                        :border-bottom border-bottom
+                                        :theme         theme})}
+         [rn/view
+          {:pointer-events :box-none
+           :height         status-bar-height}]
+         [rn/view
+          {:style          (merge {:height header-height}
+                                  style)
+           :pointer-events :box-none}
+          [rn/view
+           {:style          absolute-fill
+            :pointer-events :box-none}
+           [rn/view
+            {:style          content
+             :pointer-events :box-none}
+            [rn/view
+             {:style          left-style
+              :on-layout      (handle-layout :left get-layout)
+              :pointer-events :box-none}
+             [header-actions
+              {:accessories left-accessories
+               :component   left-component}]]
+
+            [rn/view
+             {:style          (title-style @layout title-align)
+              :on-layout      (handle-layout :title get-layout)
+              :pointer-events :box-none}
+             [header-title
+              {:title       title
+               :subtitle    subtitle
+               :title-align title-align
+               :component   title-component}]]
+            [rn/view
+             {:style          right-style
+              :on-layout      (handle-layout :right get-layout)
+              :pointer-events :box-none}
+             [header-actions
+              {:accessories right-accessories
+               :component   right-component}]]]]]]))))
+
+(def header (quo.theme/with-theme header-internal))

src/quo/components/info/information_box/style.cljs

@@ -3,7 +3,7 @@
     [quo.foundations.colors :as colors]))
 
 (def ^:private themes
-  {:light {:default      {:bg     colors/neutral-5
+  {:light {:default      {:bg     colors/white
                           :border colors/neutral-20
                           :icon   colors/neutral-50
                           :text   colors/neutral-100}

src/quo/components/inputs/input/view.cljs

@@ -55,17 +55,16 @@
 
 (def ^:private custom-props
   "Custom properties that must be removed from properties map passed to InputText."
-  [:type :blur? :error? :right-icon :left-icon :disabled? :small? :button
+  [:type :blur? :theme :error? :right-icon :left-icon :disabled? :small? :button
    :label :char-limit :on-char-limit-reach :icon-name :multiline? :on-focus :on-blur
    :container-style])
 
 (defn- base-input
-  [{:keys [blur? error? right-icon left-icon disabled? small? button
+  [{:keys [blur? theme error? right-icon left-icon disabled? small? button
            label char-limit multiline? clearable? on-focus on-blur container-style
            on-change-text on-char-limit-reach weight default-value]
     :as   props}]
-  (let [theme                  (quo.theme/use-theme-value)
-        [status set-status]    (rn/use-state :default)
+  (let [[status set-status]    (rn/use-state :default)
         internal-on-focus      (rn/use-callback #(set-status :focus))
         internal-on-blur       (rn/use-callback #(set-status :default))
         [multiple-lines?

src/quo/components/inputs/locked_input/style.cljs

@@ -10,7 +10,7 @@
    :background-color   (colors/theme-colors colors/neutral-10
                                             colors/neutral-80-opa-80
                                             theme)
-   :min-height         40
+   :height             40
    :padding-horizontal 12
    :padding-vertical   9
    :margin-top         4})

src/quo/components/inputs/locked_input/view.cljs

@@ -22,12 +22,11 @@
 (defn- locked-input-internal
   [{:keys [label icon container-style theme]} value]
   [rn/view {:style container-style}
-   (when label
-     [text/text
-      {:size   :paragraph-2
-       :weight :medium
-       :style  {:color (colors/theme-colors colors/neutral-50 colors/neutral-40 theme)}}
-      label])
+   [text/text
+    {:size   :paragraph-2
+     :weight :medium
+     :style  {:color (colors/theme-colors colors/neutral-50 colors/neutral-40 theme)}}
+    label]
    [info-box
     {:theme      theme
      :icon       icon

src/quo/components/links/internal_link_card/community/style.cljs

@@ -60,8 +60,8 @@
    :padding-horizontal 12
    :padding-top        10
    :padding-bottom     12
-   :width              (if (= :message size) 295 335)
-   :flex               1})
+   :height             (if (= :message size) 245 266)
+   :width              (if (= :message size) 295 335)})
 
 (def header-container
   {:flex-direction :row

src/quo/components/links/link_preview/component_spec.cljs

@@ -7,6 +7,7 @@
   {:title       "Some title"
    :description "Some description"
    :link        "status.im"
+   :logo        "data:image/png,logo-x"
    :thumbnail   "data:image/png,whatever"})
 
 (h/describe "Links - Link Preview"
@@ -20,12 +21,17 @@
     (h/is-truthy (h/query-by-text (:title props)))
     (h/is-truthy (h/query-by-text (:description props)))
     (h/is-truthy (h/query-by-text (:link props)))
+    (h/is-truthy (h/query-by-label-text :logo))
     (h/is-truthy (h/query-by-label-text :thumbnail)))
 
   (h/test "does not render thumbnail if prop is not present"
     (h/render [view/view (dissoc props :thumbnail)])
     (h/is-null (h/query-by-label-text :thumbnail)))
 
+  (h/test "does not render logo if prop is not present"
+    (h/render [view/view (dissoc props :logo)])
+    (h/is-null (h/query-by-label-text :logo)))
+
   (h/test "shows button to enable preview when preview is disabled"
     (h/render [view/view
                (assoc props

src/quo/components/links/link_preview/view.cljs

@@ -1,14 +1,9 @@
 (ns quo.components.links.link-preview.view
   (:require
-    ["react-native-blob-util" :default ReactNativeBlobUtil]
-    [oops.core :as oops]
     [quo.components.buttons.button.view :as button]
     [quo.components.links.link-preview.style :as style]
     [quo.components.markdown.text :as text]
-    [react-native.core :as rn]
-    [react-native.platform :as platform]
-    [react-native.svg :as svg]
-    [taoensso.timbre :as log]))
+    [react-native.core :as rn]))
 
 (defn- button-disabled
   [disabled-text on-enable]
@@ -56,30 +51,14 @@
                            thumbnail)
     :accessibility-label :thumbnail}])
 
-(defn- get-image-data
-  [logo set-is-svg on-success]
-  (-> (.config ReactNativeBlobUtil (clj->js {:trusty platform/ios?}))
-      (.fetch "GET" logo)
-      (.then (fn [imgObj]
-               (set-is-svg (= "image/svg"
-                              (oops/oget imgObj
-                                         ["respInfo" "headers" "Content-Type"])))
-               (on-success (oops/oget imgObj "data"))))
-      (.catch #(log/error "could not fetch favicon " logo))))
-
 (defn- logo-comp
   [logo]
-  (let [[image-data set-image-data] (rn/use-state nil)
-        [is-svg? set-is-svg]        (rn/use-state nil)
-        on-success                  (fn [data-uri]
-                                      (set-image-data data-uri))
-        _get-image-data             (get-image-data logo set-is-svg on-success)]
-    (if is-svg?
-      [svg/svg-xml (merge style/logo {:xml image-data})]
-      [rn/image
-       {:accessibility-label :logo
-        :source              {:uri (str "data:image/png;base64," image-data)}
-        :style               style/logo}])))
+  [rn/image
+   {:accessibility-label :logo
+    :source              (if (string? logo)
+                           {:uri logo}
+                           logo)
+    :style               style/logo}])
 
 (defn view
   [{:keys [title logo description link thumbnail

src/quo/components/links/url_preview/style.cljs

@@ -21,7 +21,6 @@
    :border-radius   12
    :border-style    :dashed
    :align-items     :center
-   :flex-direction  :row
    :justify-content :center
    :align-self      :stretch
    :padding         horizontal-padding

src/quo/components/links/url_preview/view.cljs

@@ -1,31 +1,19 @@
 (ns quo.components.links.url-preview.view
   (:require
-    [clojure.string :as string]
     [quo.components.icon :as icon]
     [quo.components.links.url-preview.style :as style]
     [quo.components.markdown.text :as text]
     [quo.foundations.colors :as colors]
-    [react-native.core :as rn]
-    [react-native.svg :as svg]))
-
-(def base64-svg-prefix "data:image/svg;base64,")
+    [react-native.core :as rn]))
 
 (defn- logo-comp
   [{:keys [logo]}]
-  (if (and (string? logo)
-           (string/starts-with? logo base64-svg-prefix))
-    [svg/svg-xml
-     (merge style/logo
-            {:xml (-> logo
-                      (string/replace base64-svg-prefix "")
-                      js/atob)})]
-    [rn/image
-     {:accessibility-label :logo
-      :source              (if (string? logo)
-                             {:uri logo}
-                             logo)
-      :style               style/logo
-      :resize-mode         :cover}]))
+  [rn/image
+   {:accessibility-label :logo
+    :source              (if (string? logo)
+                           {:uri logo}
+                           logo)
+    :style               style/logo}])
 
 (defn- content
   [{:keys [title body]}]
@@ -62,10 +50,6 @@
     [rn/view
      {:accessibility-label :url-preview-loading
       :style               (merge (style/loading-container) container-style)}
-     [icon/icon :i/loading
-      {:size            12
-       :color           (colors/theme-colors colors/neutral-50 colors/neutral-40)
-       :container-style {:margin-right 8}}]
      [rn/text
       {:size            :paragraph-2
        :weight          :medium
@@ -76,9 +60,6 @@
      {:accessibility-label :url-preview
       :style               (merge (style/container) container-style)}
      (when logo
-       [logo-comp
-        {:logo (if (map? logo)
-                 (:data-uri logo)
-                 logo)}])
+       [logo-comp {:logo logo}])
      [content {:title title :body body}]
      [clear-button {:on-press on-clear}]]))

src/quo/components/links/url_preview_list/view.cljs

@@ -32,7 +32,7 @@
   [rn/view {:style style/url-preview-separator}])
 
 (defn- item-component
-  [{:keys [title body loading? logo url]} _ _
+  [{:keys [title body loading? logo]} _ _
    {:keys [width on-clear loading-message container-style]}]
   [url-preview/view
    {:logo            logo
@@ -41,8 +41,7 @@
     :loading?        loading?
     :loading-message loading-message
     :on-clear        on-clear
-    :container-style (merge container-style {:width width})
-    :url             url}])
+    :container-style (merge container-style {:width width})}])
 
 (defn- f-view
   []

src/quo/components/list_items/account/schema.cljs

@@ -27,6 +27,7 @@
    [:blur? {:optional true} [:maybe :boolean]]
    [:customization-color {:optional true} [:maybe :schema.common/customization-color]]
    [:on-press {:optional true} [:maybe fn?]]
+   [:theme :schema.common/theme]
    [:title-icon {:optional true} [:maybe :keyword]]
    [:account-props
     [:map

src/quo/components/list_items/account/view.cljs

@@ -9,6 +9,7 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [schema.core :as schema]))
 
 (defn- account-view
@@ -96,40 +97,41 @@
               (colors/resolve-color customization-color theme))}]])
 
 (defn- internal-view
-  [{:keys [type state blur? customization-color on-press]
-    :or   {customization-color :blue
-           type                :default
-           state               :default
-           blur?               false}
-    :as   props}]
-  (let [theme                  (quo.theme/use-theme-value)
-        [pressed? set-pressed] (rn/use-state false)
-        on-press-in            (rn/use-callback #(set-pressed true))
-        on-press-out           (rn/use-callback #(set-pressed false))
-        props                  (assoc props :theme theme)]
-    [rn/pressable
-     {:style               (style/container
-                            {:state               state
-                             :blur?               blur?
-                             :customization-color customization-color
-                             :pressed?            pressed?})
-      :on-press-in         on-press-in
-      :on-press            on-press
-      :on-press-out        on-press-out
-      :accessibility-label :container}
-     [account-view props]
-     [rn/view {:style (when (= type :tag) style/token-tag-container)}
-      (cond
-        (#{:balance-neutral :balance-negative :balance-positive} type)
-        [balance-view props]
+  [_]
+  (let [pressed?     (reagent/atom false)
+        on-press-in  #(reset! pressed? true)
+        on-press-out #(reset! pressed? false)]
+    (fn [{:keys [type state blur? customization-color on-press]
+          :or   {customization-color :blue
+                 type                :default
+                 state               :default
+                 blur?               false}
+          :as   props}]
+      [rn/pressable
+       {:style               (style/container
+                              {:state               state
+                               :blur?               blur?
+                               :customization-color customization-color
+                               :pressed?            @pressed?})
+        :on-press-in         on-press-in
+        :on-press            on-press
+        :on-press-out        on-press-out
+        :accessibility-label :container}
+       [account-view props]
+       [rn/view {:style (when (= type :tag) style/token-tag-container)}
+        (cond
+          (#{:balance-neutral :balance-negative :balance-positive} type)
+          [balance-view props]
 
-        (= type :tag)
-        [token-tag props]
+          (= type :tag)
+          [token-tag props]
 
-        (= type :action)
-        [options-button props]
+          (= type :action)
+          [options-button props]
 
-        (and (= type :default) (= state :selected))
-        [check-icon props])]]))
+          (and (= type :default) (= state :selected))
+          [check-icon props])]])))
 
-(def view (schema/instrument #'internal-view component-schema/?schema))
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'internal-view component-schema/?schema)))

src/quo/components/list_items/account_list_card/schema.cljs

@@ -5,6 +5,7 @@
    [:action {:optional true} [:enum :icon :none]]
    [:blur? {:optional true} [:maybe :boolean]]
    [:on-press {:optional true} [:maybe fn?]]
+   [:theme :schema.common/theme]
    [:account-props
     [:map {:closed true}
      [:type [:enum :default :watch-only]]

src/quo/components/list_items/account_list_card/view.cljs

@@ -9,37 +9,38 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [schema.core :as schema]))
 
 (defn- internal-view
-  [{:keys [action blur? account-props networks on-press on-options-press]}]
-  (let [theme             (quo.theme/use-theme-value)
-        [state set-state] (rn/use-state :default)
-        on-press-in       (rn/use-callback #(set-state :pressed))
-        on-press-out      (rn/use-callback #(set-state :default))]
-    [rn/pressable
-     {:style               (style/container {:state state :blur? blur? :theme theme})
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :on-press            on-press
-      :accessibility-label :container}
-     [rn/view {:style style/left-container}
-      [account-avatar/view account-props]
-      [rn/view {:style {:margin-left 8}}
-       [text/text
-        {:weight :semi-bold
-         :size   :paragraph-2}
-        (:name account-props)]
-       [address-text/view
-        {:networks networks
-         :address  (:address account-props)
-         :format   :short}]]]
-     (when (= action :icon)
-       [rn/pressable {:on-press on-options-press}
-        [icon/icon :i/options
-         {:color               (if blur?
-                                 colors/white-opa-70
-                                 (colors/theme-colors colors/neutral-50 colors/neutral-40 theme))
-          :accessibility-label :icon}]])]))
+  []
+  (let [state (reagent/atom :default)]
+    (fn [{:keys [action blur? account-props networks on-press on-options-press theme]}]
+      [rn/pressable
+       {:style               (style/container {:state @state :blur? blur? :theme theme})
+        :on-press-in         #(reset! state :pressed)
+        :on-press-out        #(reset! state :default)
+        :on-press            on-press
+        :accessibility-label :container}
+       [rn/view {:style style/left-container}
+        [account-avatar/view account-props]
+        [rn/view {:style {:margin-left 8}}
+         [text/text
+          {:weight :semi-bold
+           :size   :paragraph-2}
+          (:name account-props)]
+         [address-text/view
+          {:networks networks
+           :address  (:address account-props)
+           :format   :short}]]]
+       (when (= action :icon)
+         [rn/pressable {:on-press on-options-press}
+          [icon/icon :i/options
+           {:color               (if blur?
+                                   colors/white-opa-70
+                                   (colors/theme-colors colors/neutral-50 colors/neutral-40 theme))
+            :accessibility-label :icon}]])])))
 
-(def view (schema/instrument #'internal-view component-schema/?schema))
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'internal-view component-schema/?schema)))

src/quo/components/list_items/address/schema.cljs

@@ -9,5 +9,6 @@
      [:customization-color {:optional true} [:maybe :schema.common/customization-color]]
      [:on-press {:optional true} [:maybe fn?]]
      [:blur? {:optional true} [:maybe :boolean]]
+     [:theme :schema.common/theme]
      [:active-state? {:optional true} [:maybe :boolean]]]]
    :any])

src/quo/components/list_items/address/view.cljs

@@ -1,12 +1,13 @@
 (ns quo.components.list-items.address.view
   (:require
     [quo.components.avatars.wallet-user-avatar.view :as wallet-user-avatar]
-    [quo.components.list-items.address.schema :as component-schema]
+    (quo.components.list-items.address.schema :as component-schema)
     [quo.components.list-items.address.style :as style]
     [quo.components.markdown.text :as text]
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [schema.core :as schema]
     [utils.address :as address]))
 
@@ -38,35 +39,34 @@
       (address/get-shortened-key address)]]]])
 
 (defn- internal-view
-  [{:keys [networks address customization-color on-press active-state? blur?]
-    :or   {customization-color :blue}}]
-  (let [theme             (quo.theme/use-theme-value)
-        [state set-state] (rn/use-state :default)
-        active?           (rn/use-ref-atom false)
-        timer             (rn/use-ref-atom nil)
-        on-press-in       (rn/use-callback
-                           (fn []
-                             (when-not (= state :selected)
-                               (reset! timer (js/setTimeout #(set-state :pressed) 100))))
-                           [state])
-        on-press-out      (rn/use-callback
-                           (fn []
-                             (let [new-state (if (or (not active-state?) @active?) :default :active)]
-                               (when @timer (js/clearTimeout @timer))
-                               (reset! timer nil)
-                               (reset! active? (= new-state :active))
-                               (set-state new-state)))
-                           [active-state?])]
-    [rn/pressable
-     {:style               (style/container state customization-color blur?)
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :on-press            on-press
-      :accessibility-label :container}
-     [left-container
-      {:theme    theme
-       :networks networks
-       :address  address
-       :blur?    blur?}]]))
+  []
+  (let [state       (reagent/atom :default)
+        active?     (atom false)
+        timer       (atom nil)
+        on-press-in (fn []
+                      (when-not (= @state :selected)
+                        (reset! timer (js/setTimeout #(reset! state :pressed) 100))))]
+    (fn [{:keys [networks address customization-color on-press active-state? blur? theme]
+          :or   {customization-color :blue}}]
+      (let [on-press-out (fn []
+                           (let [new-state (if (or (not active-state?) @active?) :default :active)]
+                             (when @timer (js/clearTimeout @timer))
+                             (reset! timer nil)
+                             (reset! active? (= new-state :active))
+                             (reset! state new-state)))]
+        [rn/pressable
+         {:style               (style/container @state customization-color blur?)
+          :on-press-in         on-press-in
+          :on-press-out        on-press-out
+          :on-press            on-press
+          :accessibility-label :container}
+         [left-container
+          {:theme    theme
+           :networks networks
+           :address  address
+           :blur?    blur?}]]))))
+
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'internal-view component-schema/?schema)))
 
-(def view (schema/instrument #'internal-view component-schema/?schema))

src/quo/components/list_items/channel/view.cljs

@@ -5,10 +5,11 @@
     [quo.components.icon :as quo.icons]
     [quo.components.list-items.channel.style :as style]
     [quo.components.markdown.text :as quo.text]
-    [quo.theme]
-    [react-native.core :as rn]))
+    [quo.theme :as theme]
+    [react-native.core :as rn]
+    [reagent.core :as reagent]))
 
-(defn view
+(defn- view-internal
   "Options:
    - notification - (nil/:notification/:mention/:mute, default: nil):
      - :notification - Display a grey dot.
@@ -26,37 +27,38 @@
    - on-press - (function, default: nil) - Function called when the component is pressed.
    - on-long-press - (function, default: nil) - Function called when the component is long pressed.
    - theme - Theme value from with-theme HOC"
-  [{:keys [notification locked? mentions-count customization-color emoji name on-press on-long-press]}]
-  (let [theme                  (quo.theme/use-theme-value)
-        [pressed? set-pressed] (rn/use-state false)
-        on-press-in            (rn/use-callback #(set-pressed true))
-        on-press-out           (rn/use-callback #(set-pressed false))]
-    [rn/pressable
-     {:style               (style/container pressed? customization-color theme)
-      :accessibility-label :channel-list-item
-      :on-press            on-press
-      :on-long-press       on-long-press
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out}
-     [channel-avatar/view
-      {:size                :size-32
-       :locked?             locked?
-       :full-name           name
-       :customization-color customization-color
-       :emoji               emoji}]
-     [quo.text/text
-      {:style  (style/label notification theme)
-       :weight :medium
-       :size   :paragraph-1} (str "# " name)]
-     (when-not locked?
-       (condp = notification
-         :mute         [quo.icons/icon :i/muted
-                        {:color (style/mute-notification-icon-color theme)}]
-         :mention      [counter/view
-                        {:customization-color customization-color
-                         :container-style     (style/counter mentions-count)}
-                        mentions-count]
-         :notification [quo.icons/icon :i/notification
-                        {:color               (style/mute-notification-icon-color theme)
-                         :accessibility-label :unviewed-messages-public}]
-         nil))]))
+  []
+  (let [pressed? (reagent/atom false)]
+    (fn [{:keys [notification locked? mentions-count customization-color emoji name on-press
+                 on-long-press theme]}]
+      [rn/pressable
+       {:style               (style/container @pressed? customization-color theme)
+        :accessibility-label :channel-list-item
+        :on-press            on-press
+        :on-long-press       on-long-press
+        :on-press-in         #(reset! pressed? true)
+        :on-press-out        #(reset! pressed? false)}
+       [channel-avatar/view
+        {:size                :size-32
+         :locked?             locked?
+         :full-name           name
+         :customization-color customization-color
+         :emoji               emoji}]
+       [quo.text/text
+        {:style  (style/label notification theme)
+         :weight :medium
+         :size   :paragraph-1} (str "# " name)]
+       (when-not locked?
+         (condp = notification
+           :mute         [quo.icons/icon :i/muted
+                          {:color (style/mute-notification-icon-color theme)}]
+           :mention      [counter/view
+                          {:customization-color customization-color
+                           :container-style     (style/counter mentions-count)}
+                          mentions-count]
+           :notification [quo.icons/icon :i/notification
+                          {:color               (style/mute-notification-icon-color theme)
+                           :accessibility-label :unviewed-messages-public}]
+           nil))])))
+
+(def view (theme/with-theme view-internal))

src/quo/components/list_items/community/view.cljs

@@ -7,7 +7,8 @@
     [quo.components.markdown.text :as text]
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
-    [react-native.core :as rn]))
+    [react-native.core :as rn]
+    [reagent.core :as reagent]))
 
 (defn- logo-component
   [logo]
@@ -82,7 +83,7 @@
         :style               {:margin-left 10}}
        component])))
 
-(defn view
+(defn- view-internal
   "Options:
 
   :type - :discover/engage/share
@@ -115,48 +116,49 @@
   :unread-count - number - When the info is :mention, it will be used to show
   the number of unread mentions.
   "
-  [{:keys [members type info tokens locked? title subtitle logo blur? customization-color
-           on-press on-long-press on-press-info container-style unread-count]}]
-  (let [theme                  (quo.theme/use-theme-value)
-        [pressed? set-pressed] (rn/use-state false)
-        on-press-in            (rn/use-callback #(set-pressed true))
-        on-press-out           (rn/use-callback #(set-pressed false))]
-    [rn/pressable
-     {:accessibility-label :container
+  []
+  (let [pressed? (reagent/atom false)]
+    (fn [{:keys [members type info tokens locked? title subtitle
+                 logo blur? customization-color
+                 on-press on-long-press on-press-info
+                 container-style unread-count theme]}]
+      [rn/pressable
+       {:accessibility-label :container
+        :on-press-in         (fn [] (reset! pressed? true))
+        :on-press            on-press
+        :on-long-press       on-long-press
+        :on-press-out        (fn [] (reset! pressed? false))
+        :style               (merge (style/container {:blur?               blur?
+                                                      :customization-color customization-color
+                                                      :info                info
+                                                      :type                type
+                                                      :pressed?            @pressed?
+                                                      :theme               theme})
+                                    container-style)}
+       [logo-component logo]
+       [rn/view {:style {:flex 1}}
+        [title-component
+         {:blur? blur?
+          :info  info
+          :theme theme
+          :title title
+          :type  type}]
+        (when (and (= type :share) subtitle)
+          [subtitle-component subtitle blur? theme])
+        (when (and members (= type :discover))
+          [community-view/community-stats-column
+           {:type          :list-view
+            :members-count (:members-count members)
+            :active-count  (:active-count members)}])]
+       [info-component
+        {:blur?               blur?
+         :customization-color customization-color
+         :info                info
+         :type                type
+         :locked?             locked?
+         :on-press-info       on-press-info
+         :theme               theme
+         :tokens              tokens
+         :unread-count        unread-count}]])))
 
-      :on-press            on-press
-      :on-long-press       on-long-press
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :style               (merge (style/container {:blur?               blur?
-                                                    :customization-color customization-color
-                                                    :info                info
-                                                    :type                type
-                                                    :pressed?            pressed?
-                                                    :theme               theme})
-                                  container-style)}
-     [logo-component logo]
-     [rn/view {:style {:flex 1}}
-      [title-component
-       {:blur? blur?
-        :info  info
-        :theme theme
-        :title title
-        :type  type}]
-      (when (and (= type :share) subtitle)
-        [subtitle-component subtitle blur? theme])
-      (when (and members (= type :discover))
-        [community-view/community-stats-column
-         {:type          :list-view
-          :members-count (:members-count members)
-          :active-count  (:active-count members)}])]
-     [info-component
-      {:blur?               blur?
-       :customization-color customization-color
-       :info                info
-       :type                type
-       :locked?             locked?
-       :on-press-info       on-press-info
-       :theme               theme
-       :tokens              tokens
-       :unread-count        unread-count}]]))
+(def view (quo.theme/with-theme view-internal))

src/quo/components/list_items/dapp/view.cljs

@@ -6,41 +6,43 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
-    [react-native.fast-image :as fast-image]))
+    [react-native.fast-image :as fast-image]
+    [reagent.core :as reagent]))
 
-(defn view
-  [{:keys [dapp action on-press on-press-icon] :as props}]
-  (let [theme                  (quo.theme/use-theme-value)
-        [pressed? set-pressed] (rn/use-state false)
-        on-press-in            (rn/use-callback #(set-pressed true))
-        on-press-out           (rn/use-callback #(set-pressed false))]
-    [rn/pressable
-     {:style        (style/container (assoc props :pressed? pressed?))
-      :on-press     on-press
-      :on-press-in  on-press-in
-      :on-press-out on-press-out}
-     [rn/view {:style style/container-info}
-      [fast-image/fast-image
-       {:source (:avatar dapp)
-        :style  {:width 32 :height 32}}]
-      [rn/view {:style style/user-info}
-       [text/text
-        {:weight :semi-bold
-         :size   :paragraph-1
-         :style  (style/style-text-name theme)}
-        (:name dapp)]
-       [text/text
-        {:weight :regular
-         :size   :paragraph-2
-         :style  (style/style-text-value theme)}
-        (:value dapp)]]]
-     (when (= action :icon)
-       [rn/pressable
-        {:on-press on-press-icon
-         :testID   "dapp-component-icon"}
-        [icons/icon :i/options
-         {:color               (colors/theme-colors
-                                colors/neutral-50
-                                colors/neutral-40
-                                theme)
-          :accessibility-label :icon}]])]))
+(defn- view-internal
+  []
+  (let [pressed? (reagent/atom false)]
+    (fn [{:keys [dapp action on-press on-press-icon theme] :as props}]
+      [rn/pressable
+       {:style        (style/container (assoc props :pressed? @pressed?))
+        :on-press     on-press
+        :on-press-in  #(reset! pressed? true)
+        :on-press-out #(reset! pressed? false)}
+       [rn/view {:style style/container-info}
+        [fast-image/fast-image
+         {:source (:avatar dapp)
+          :style  {:width 32 :height 32}}]
+        [rn/view {:style style/user-info}
+         [text/text
+          {:weight :semi-bold
+           :size   :paragraph-1
+           :style  (style/style-text-name theme)}
+          (:name dapp)]
+         [text/text
+          {:weight :regular
+           :size   :paragraph-2
+           :style  (style/style-text-value theme)}
+          (:value dapp)]]]
+       (when (= action :icon)
+         [rn/pressable
+          {:on-press on-press-icon
+           :testID   "dapp-component-icon"}
+          [icons/icon :i/options
+           {:color               (colors/theme-colors
+                                  colors/neutral-50
+                                  colors/neutral-40
+                                  theme)
+            :accessibility-label :icon}]])])))
+
+(def view
+  (quo.theme/with-theme view-internal))

src/quo/components/list_items/network_list/view.cljs

@@ -5,6 +5,7 @@
     [quo.components.markdown.text :as text]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [schema.core :as schema]))
 
 (defn- info
@@ -21,19 +22,18 @@
      (if (string/blank? label) "-" label)]]])
 
 (defn- values
-  [{:keys [token-value fiat-value]}]
-  (let [theme (quo.theme/use-theme-value)]
-    [rn/view {:style style/values-container}
-     [text/text
-      {:weight          :medium
-       :size            :paragraph-2
-       :number-of-lines 1}
-      token-value]
-     [text/text
-      {:style           (style/fiat-value theme)
-       :size            :paragraph-2
-       :number-of-lines 1}
-      fiat-value]]))
+  [{:keys [token-value fiat-value theme]}]
+  [rn/view {:style style/values-container}
+   [text/text
+    {:weight          :medium
+     :size            :paragraph-2
+     :number-of-lines 1}
+    token-value]
+   [text/text
+    {:style           (style/fiat-value theme)
+     :size            :paragraph-2
+     :number-of-lines 1}
+    fiat-value]])
 
 (def ?schema
   [:=>
@@ -51,21 +51,26 @@
    :any])
 
 (defn- view-internal
-  [{:keys [on-press state customization-color]
-    :as   props
-    :or   {customization-color :blue}}]
-  (let [theme                  (quo.theme/use-theme-value)
-        [pressed? set-pressed] (rn/use-state false)
-        on-press-in            (rn/use-callback #(set-pressed true))
-        on-press-out           (rn/use-callback #(set-pressed false))
-        internal-state         (if pressed? :pressed state)]
-    [rn/pressable
-     {:style               (style/container internal-state customization-color theme)
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :on-press            on-press
-      :accessibility-label :network-list}
-     [info props]
-     [values props]]))
+  []
+  (let [pressed?     (reagent/atom false)
+        on-press-in  #(reset! pressed? true)
+        on-press-out #(reset! pressed? false)]
+    (fn [{:keys [on-press state customization-color theme]
+          :as   props
+          :or   {customization-color :blue}}]
+      (let [internal-state (if @pressed?
+                             :pressed
+                             state)]
 
-(def view (schema/instrument #'view-internal ?schema))
+        [rn/pressable
+         {:style               (style/container internal-state customization-color theme)
+          :on-press-in         on-press-in
+          :on-press-out        on-press-out
+          :on-press            on-press
+          :accessibility-label :network-list}
+         [info props]
+         [values props]]))))
+
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'view-internal ?schema)))

src/quo/components/list_items/saved_address/view.cljs

@@ -7,69 +7,70 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [utils.address :as address]))
 
 (defn- left-container
-  [{:keys [blur? name ens address customization-color]}]
-  (let [theme (quo.theme/use-theme-value)]
-    [rn/view {:style style/left-container}
-     [wallet-user-avatar/wallet-user-avatar
-      {:size                :size-32
-       :full-name           name
-       :customization-color customization-color}]
-     [rn/view {:style style/account-container}
-      [text/text
-       {:weight :semi-bold
-        :size   :paragraph-1
-        :style  style/name-text}
-       name]
-      [text/text {:size :paragraph-2}
-       [text/text
-        {:size   :paragraph-2
-         :weight :monospace
-         :style  (style/account-address blur? theme)}
-        (or ens (address/get-shortened-key address))]]]]))
+  [{:keys [blur? theme name ens address customization-color]}]
+  [rn/view {:style style/left-container}
+   [wallet-user-avatar/wallet-user-avatar
+    {:size                :size-32
+     :full-name           name
+     :customization-color customization-color}]
+   [rn/view {:style style/account-container}
+    [text/text
+     {:weight :semi-bold
+      :size   :paragraph-1
+      :style  style/name-text}
+     name]
+    [text/text {:size :paragraph-2}
+     [text/text
+      {:size   :paragraph-2
+       :weight :monospace
+       :style  (style/account-address blur? theme)}
+      (or ens (address/get-shortened-key address))]]]])
 
-(defn view
-  [{:keys [blur? user-props active-state? customization-color on-press on-options-press]
-    :or   {customization-color :blue
-           blur?               false}}]
-  (let [theme             (quo.theme/use-theme-value)
-        [state set-state] (rn/use-state :default)
-        active?           (rn/use-ref-atom false)
-        timer             (rn/use-ref-atom nil)
-        on-press-in       (rn/use-callback
-                           (fn []
-                             (when-not (= state :selected)
-                               (reset! timer (js/setTimeout #(set-state :pressed) 100))))
-                           [state])
-        on-press-out      (rn/use-callback
-                           (fn []
-                             (let [new-state (if (or (not active-state?) @active?) :default :active)]
-                               (when @timer (js/clearTimeout @timer))
-                               (reset! timer nil)
-                               (reset! active? (= new-state :active))
-                               (set-state new-state)))
-                           [active-state?])]
-    [rn/pressable
-     {:style               (style/container
-                            {:state state :blur? blur? :customization-color customization-color})
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :on-press            on-press
-      :accessibility-label :container}
-     [left-container
-      {:blur?               blur?
-       :theme               theme
-       :name                (:name user-props)
-       :ens                 (:ens user-props)
-       :address             (:address user-props)
-       :customization-color (or (:customization-color user-props) :blue)}]
-     (when on-options-press
-       [rn/pressable
-        {:accessibility-label :options-button
-         :on-press            on-options-press}
-        [icon/icon :i/options
-         {:color (if blur?
-                   colors/white-opa-70
-                   (colors/theme-colors colors/neutral-50 colors/neutral-40 theme))}]])]))
+(defn- internal-view
+  []
+  (let [state       (reagent/atom :default)
+        active?     (atom false)
+        timer       (atom nil)
+        on-press-in (fn []
+                      (when-not (= @state :selected)
+                        (reset! timer (js/setTimeout #(reset! state :pressed) 100))))]
+    (fn [{:keys [blur? user-props active-state? customization-color
+                 on-press
+                 on-options-press
+                 theme]
+          :or   {customization-color :blue
+                 blur?               false}}]
+      (let [on-press-out (fn []
+                           (let [new-state (if (or (not active-state?) @active?) :default :active)]
+                             (when @timer (js/clearTimeout @timer))
+                             (reset! timer nil)
+                             (reset! active? (= new-state :active))
+                             (reset! state new-state)))]
+        [rn/pressable
+         {:style               (style/container
+                                {:state @state :blur? blur? :customization-color customization-color})
+          :on-press-in         on-press-in
+          :on-press-out        on-press-out
+          :on-press            on-press
+          :accessibility-label :container}
+         [left-container
+          {:blur?               blur?
+           :theme               theme
+           :name                (:name user-props)
+           :ens                 (:ens user-props)
+           :address             (:address user-props)
+           :customization-color (or (:customization-color user-props) :blue)}]
+         (when on-options-press
+           [rn/pressable
+            {:accessibility-label :options-button
+             :on-press            on-options-press}
+            [icon/icon :i/options
+             {:color (if blur?
+                       colors/white-opa-70
+                       (colors/theme-colors colors/neutral-50 colors/neutral-40 theme))}]])]))))
+
+(def view (quo.theme/with-theme internal-view))

src/quo/components/list_items/saved_contact_address/schema.cljs

@@ -23,6 +23,7 @@
      [:contact-props ?contact]
      [:accounts {:optional true} ?accounts]
      [:on-press {:optional true} [:maybe fn?]]
+     [:theme :schema.common/theme]
      [:active-state? {:optional true} [:maybe :boolean]]
      [:customization-color {:optional true} [:maybe :schema.common/customization-color]]]]
    :any])

src/quo/components/list_items/saved_contact_address/view.cljs

@@ -9,89 +9,91 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [schema.core :as schema]
     [utils.address :as address]
     [utils.i18n :as i18n]))
 
 (defn- account
-  [{:keys [emoji name address customization-color]}]
-  (let [theme (quo.theme/use-theme-value)]
-    [rn/view
-     {:accessibility-label :account-container
-      :style               style/account-container}
-     [account-avatar/view
-      {:emoji               emoji
-       :size                16
-       :customization-color customization-color}]
-     [text/text
-      {:size   :paragraph-2
-       :weight :monospace
-       :style  (style/account-name theme)}
-      name]
-     [rn/view {:style (style/dot-divider theme)}]
-     [text/text
-      {:size   :paragraph-2
-       :weight :monospace
-       :style  (style/account-address theme)}
-      (address/get-shortened-key address)]]))
+  [{:keys [emoji name address customization-color theme]}]
+  [rn/view
+   {:accessibility-label :account-container
+    :style               style/account-container}
+   [account-avatar/view
+    {:emoji               emoji
+     :size                16
+     :customization-color customization-color}]
+   [text/text
+    {:size   :paragraph-2
+     :weight :monospace
+     :style  (style/account-name theme)}
+    name]
+   [rn/view {:style (style/dot-divider theme)}]
+   [text/text
+    {:size   :paragraph-2
+     :weight :monospace
+     :style  (style/account-address theme)}
+    (address/get-shortened-key address)]])
 
 (defn- internal-view
-  [{:keys [contact-props accounts active-state? customization-color on-press]
-    :or   {customization-color :blue
-           accounts            []
-           active-state?       true}}]
-  (let [theme             (quo.theme/use-theme-value)
-        [state set-state] (rn/use-state :default)
-        active?           (rn/use-ref-atom false)
-        timer             (rn/use-ref-atom nil)
-        on-press          (rn/use-callback #(when on-press (on-press)))
-        on-press-in       (rn/use-callback
-                           (fn []
-                             (when-not (= state :selected)
-                               (reset! timer (js/setTimeout #(set-state :pressed) 100))))
-                           [state])
-        accounts-count    (count accounts)
-        account-props     (when (= accounts-count 1) (first accounts))
-        on-press-out      (rn/use-callback
-                           (fn []
+  []
+  (let [state       (reagent/atom :default)
+        active?     (atom false)
+        timer       (atom nil)
+        on-press-in (fn []
+                      (when-not (= @state :selected)
+                        (reset! timer (js/setTimeout #(reset! state :pressed) 100))))]
+    (fn [{:keys [contact-props accounts active-state? customization-color on-press theme]
+          :or   {customization-color :blue
+                 accounts            []
+                 active-state?       true}}]
+      (let [accounts-count (count accounts)
+            account-props  (when (= accounts-count 1)
+                             (first accounts))
+            on-press-out   (fn []
                              (let [new-state (if (or (not active-state?) @active?) :default :active)]
                                (when @timer (js/clearTimeout @timer))
                                (reset! timer nil)
                                (reset! active? (= new-state :active))
-                               (set-state new-state)))
-                           [active-state?])]
-    [rn/pressable
-     {:style               (style/container {:state state :customization-color customization-color})
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :on-press            on-press
-      :accessibility-label :container}
-     [rn/view {:style style/left-container}
-      [user-avatar/user-avatar (assoc contact-props :size :small)]
-      [rn/view {:style style/saved-contact-container}
-       [rn/view
-        {:style style/account-title-container}
-        [text/text
-         {:weight :semi-bold
-          :size   :paragraph-1}
-         (:full-name contact-props)]
-        [icon/icon :i/contact
-         {:container-style     style/contact-icon-container
-          :accessibility-label :contact-icon
-          :size                12
-          :color               (colors/theme-colors colors/primary-50 colors/primary-60 theme)
-          :color-2             colors/white}]]
-       (if account-props
-         [account (assoc account-props :theme theme)]
-         [text/text
-          {:accessibility-label :accounts-count
-           :size                :paragraph-2
-           :style               (style/accounts-count theme)}
-          (i18n/label :t/accounts-count {:count accounts-count})])]]
-     (when (> accounts-count 1)
-       [icon/icon :i/chevron-right
-        {:accessibility-label :check-icon
-         :size                20
-         :color               (colors/theme-colors colors/neutral-50 colors/neutral-40 theme)}])]))
+                               (reset! state new-state)))]
+        [rn/pressable
+         {:style               (style/container
+                                {:state @state :customization-color customization-color})
+          :on-press-in         on-press-in
+          :on-press-out        on-press-out
+          :on-press            #(when on-press
+                                  (on-press))
+          :accessibility-label :container}
+         [rn/view {:style style/left-container}
+          [user-avatar/user-avatar (assoc contact-props :size :small)]
+          [rn/view {:style style/saved-contact-container}
+           [rn/view
+            {:style style/account-title-container}
+            [text/text
+             {:weight :semi-bold
+              :size   :paragraph-1}
+             (:full-name contact-props)]
+            [icon/icon :i/contact
+             {:container-style     style/contact-icon-container
+              :accessibility-label :contact-icon
+              :size                12
+              :color               (colors/theme-colors colors/primary-50 colors/primary-60 theme)
+              :color-2             colors/white}]]
+           (if account-props
+             [account (assoc account-props :theme theme)]
+             [text/text
+              {:accessibility-label :accounts-count
+               :size                :paragraph-2
+               :style               (style/accounts-count theme)}
+              (i18n/label :t/accounts-count {:count accounts-count})])]]
+         (when (> accounts-count 1)
+           [icon/icon :i/chevron-right
+            {:accessibility-label :check-icon
+             :size                20
+             :color               (colors/theme-colors colors/neutral-50
+                                                       colors/neutral-40
+                                                       theme)}])]))))
 
-(def view (schema/instrument #'internal-view component-schema/?schema))
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'internal-view component-schema/?schema)))

src/quo/components/list_items/token_network/schema.cljs

@@ -11,5 +11,6 @@
      [:networks [:* [:map [:source :schema.common/image-source]]]]
      [:on-press {:optional true} [:maybe fn?]]
      [:customization-color {:optional true} [:maybe :schema.common/customization-color]]
-     [:state {:optional true} [:enum :default :active :selected]]]]
+     [:state {:optional true} [:enum :default :active :selected]]
+     [:theme :schema.common/theme]]]
    :any])

src/quo/components/list_items/token_network/view.cljs

@@ -8,6 +8,7 @@
     [quo.components.utilities.token.view :as token]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [schema.core :as schema]))
 
 (defn- info
@@ -30,40 +31,44 @@
      networks]]])
 
 (defn- values
-  [{:keys [state token-value fiat-value customization-color]}]
-  (let [theme (quo.theme/use-theme-value)]
-    (if (= state :selected)
-      [icon/icon :i/check
-       {:color               (style/check-color customization-color theme)
-        :accessibility-label :check-icon}]
-      [rn/view {:style style/values-container}
-       [text/text
-        {:weight          :medium
-         :size            :paragraph-2
-         :number-of-lines 1}
-        token-value]
-       [text/text
-        {:style           (style/fiat-value theme)
-         :size            :paragraph-2
-         :number-of-lines 1}
-        fiat-value]])))
+  [{:keys [state token-value fiat-value customization-color theme]}]
+  (if (= state :selected)
+    [icon/icon :i/check
+     {:color               (style/check-color customization-color theme)
+      :accessibility-label :check-icon}]
+    [rn/view {:style style/values-container}
+     [text/text
+      {:weight          :medium
+       :size            :paragraph-2
+       :number-of-lines 1}
+      token-value]
+     [text/text
+      {:style           (style/fiat-value theme)
+       :size            :paragraph-2
+       :number-of-lines 1}
+      fiat-value]]))
 
 (defn- view-internal
-  [{:keys [on-press state customization-color _token _networks _token-value _fiat-value]
-    :as   props
-    :or   {customization-color :blue}}]
-  (let [theme                  (quo.theme/use-theme-value)
-        [pressed? set-pressed] (rn/use-state false)
-        on-press-in            (rn/use-callback #(set-pressed true))
-        on-press-out           (rn/use-callback #(set-pressed false))
-        internal-state         (if pressed? :pressed state)]
-    [rn/pressable
-     {:style               (style/container internal-state customization-color theme)
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :on-press            on-press
-      :accessibility-label :token-network}
-     [info props]
-     [values props]]))
+  []
+  (let [pressed?     (reagent/atom false)
+        on-press-in  #(reset! pressed? true)
+        on-press-out #(reset! pressed? false)]
+    (fn [{:keys [on-press state customization-color
+                 _token _networks _token-value _fiat-value theme]
+          :as   props
+          :or   {customization-color :blue}}]
+      (let [internal-state (if @pressed?
+                             :pressed
+                             state)]
+        [rn/pressable
+         {:style               (style/container internal-state customization-color theme)
+          :on-press-in         on-press-in
+          :on-press-out        on-press-out
+          :on-press            on-press
+          :accessibility-label :token-network}
+         [info props]
+         [values props]]))))
 
-(def view (schema/instrument #'view-internal component-schema/?schema))
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'view-internal component-schema/?schema)))

src/quo/components/list_items/token_value/schema.cljs

@@ -17,6 +17,7 @@
      [:values ?values]
      [:on-press {:optional true} [:maybe fn?]]
      [:on-long-press {:optional true} [:maybe fn?]]
+     [:theme :schema.common/theme]
      [:customization-color {:optional true} [:maybe :schema.common/customization-color]]
      [:metrics? {:optional true} [:maybe :boolean]]]]
    :any])

src/quo/components/list_items/token_value/view.cljs

@@ -9,67 +9,64 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
+    [reagent.core :as reagent]
     [schema.core :as schema]))
 
 (defn- internal-view
-  [{:keys [customization-color status token metrics? values on-press on-long-press token-name]}]
-  (let [theme                 (quo.theme/use-theme-value)
-        [state set-state]     (rn/use-state :default)
-        bg-opacity            (case state
-                                :active  10
-                                :pressed 5
-                                0)
-        {:keys [crypto-value
-                fiat-value
-                percentage-change
-                fiat-change]} values
-        on-press-in           (rn/use-callback #(set-state :pressed))
-        on-press-out          (rn/use-callback #(set-state :default))
-        on-press              (rn/use-callback
-                               (fn []
-                                 (set-state :active)
-                                 (js/setTimeout #(set-state :default) 300)
-                                 on-press))]
-    [rn/pressable
-     {:style               (style/container customization-color bg-opacity theme)
-      :on-press-in         on-press-in
-      :on-press-out        on-press-out
-      :on-press            on-press
-      :on-long-press       on-long-press
-      :accessibility-label :container}
-     [rn/view
-      {:style {:flex-direction :row
-               :align-items    :center
-               :flex           1}}
-      [token/view {:token token :size :size-32}]
-      [rn/view {:style {:margin-left 8}}
-       [text/text {:weight :semi-bold} token-name]
-       [text/text
-        {:size  :paragraph-2
-         :style {:color (colors/theme-colors colors/neutral-50 colors/neutral-40 theme)}}
-        (str crypto-value " " (if token (string/upper-case (clj->js token)) ""))]]]
-     [rn/view
-      {:style {:align-items     :flex-end
-               :justify-content :space-between}}
-      [text/text
-       {:weight :medium
-        :size   :paragraph-2} fiat-value]
-      (when metrics?
-        [rn/view
-         {:style {:flex-direction :row
-                  :align-items    :center}}
-         [text/text
-          {:size  :paragraph-2
-           :style (style/metric-text status theme)} (str percentage-change "%")]
-         [rn/view {:style (style/dot-divider status theme)}]
-         [text/text
-          {:size  :paragraph-2
-           :style (style/metric-text status theme)} fiat-change]
-         (when (not= status :empty)
-           [rn/view
-            {:style               {:margin-left 4}
-             :accessibility-label :arrow-icon}
-            [icon/icon (if (= status :positive) :i/positive :i/negative)
-             (style/arrow-icon status theme)]])])]]))
+  []
+  (let [state (reagent/atom :default)]
+    (fn [{:keys [theme customization-color status token metrics? values on-press on-long-press
+                 token-name]}]
+      (let [bg-opacity                                                      (case @state
+                                                                              :active  10
+                                                                              :pressed 5
+                                                                              0)
+            {:keys [crypto-value fiat-value percentage-change fiat-change]} values]
+        [rn/pressable
+         {:style               (style/container customization-color bg-opacity theme)
+          :on-press-in         #(reset! state :pressed)
+          :on-press-out        #(reset! state :default)
+          :on-press            (fn []
+                                 (reset! state :active)
+                                 (js/setTimeout #(reset! state :default) 300)
+                                 on-press)
+          :on-long-press       on-long-press
+          :accessibility-label :container}
+         [rn/view
+          {:style {:flex-direction :row
+                   :align-items    :center
+                   :flex           1}}
+          [token/view {:token token :size :size-32}]
+          [rn/view {:style {:margin-left 8}}
+           [text/text {:weight :semi-bold} token-name]
+           [text/text
+            {:size  :paragraph-2
+             :style {:color (colors/theme-colors colors/neutral-50 colors/neutral-40 theme)}}
+            (str crypto-value " " (if token (string/upper-case (clj->js token)) ""))]]]
+         [rn/view
+          {:style {:align-items     :flex-end
+                   :justify-content :space-between}}
+          [text/text
+           {:weight :medium
+            :size   :paragraph-2} fiat-value]
+          (when metrics?
+            [rn/view
+             {:style {:flex-direction :row
+                      :align-items    :center}}
+             [text/text
+              {:size  :paragraph-2
+               :style (style/metric-text status theme)} (str percentage-change "%")]
+             [rn/view {:style (style/dot-divider status theme)}]
+             [text/text
+              {:size  :paragraph-2
+               :style (style/metric-text status theme)} fiat-change]
+             (when (not= status :empty)
+               [rn/view
+                {:style               {:margin-left 4}
+                 :accessibility-label :arrow-icon}
+                [icon/icon (if (= status :positive) :i/positive :i/negative)
+                 (style/arrow-icon status theme)]])])]]))))
 
-(def view (schema/instrument #'internal-view component-schema/?schema))
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'internal-view component-schema/?schema)))

src/quo/components/messages/gap.cljs

@@ -5,7 +5,8 @@
     [quo.components.markdown.text :as text]
     [quo.foundations.colors :as colors]
     [quo.theme :as theme]
-    [react-native.core :as rn]))
+    [react-native.core :as rn]
+    [reagent.core :as reagent]))
 
 ;;; helpers
 (def themes
@@ -136,25 +137,24 @@
            style
            on-press
            warning-label]}]
-  (let [[body-height set-body-height] (rn/use-state nil)
-        on-layout                     (rn/use-callback #(set-body-height
-                                                         (oget % "nativeEvent.layout.height")))]
-    [rn/view
-     {:on-layout on-layout
-      :overflow  :hidden
-      :flex      1}
-     [hborder {:type :top}]
-     [hborder {:type :bottom}]
-     [rn/view
-      (merge {:width            "100%"
-              :background-color (get-color :background)
-              :flex-direction   :row
-              :padding          20
-              :padding-left     31
-              :margin-vertical  4}
-             style)
+  (let [body-height (reagent/atom nil)]
+    (fn []
+      [rn/view
+       {:on-layout #(reset! body-height (oget % "nativeEvent.layout.height"))
+        :overflow  :hidden
+        :flex      1}
+       [hborder {:type :top}]
+       [hborder {:type :bottom}]
+       [rn/view
+        (merge {:width            "100%"
+                :background-color (get-color :background)
+                :flex-direction   :row
+                :padding          20
+                :padding-left     31
+                :margin-vertical  4}
+               style)
 
-      [timeline]
-      [body timestamp-far timestamp-near on-info-button-pressed on-press warning-label]]
-     [vborder :left body-height]
-     [vborder :right body-height]]))
+        [timeline]
+        [body timestamp-far timestamp-near on-info-button-pressed on-press warning-label]]
+       [vborder :left body-height]
+       [vborder :right body-height]])))

src/quo/components/navigation/page_nav/view.cljs

@@ -35,7 +35,7 @@
              :on-press            on-press
              :background          (if behind-overlay?
                                     :blur
-                                    (when (button-properties/backgrounds background) background))
+                                    (button-properties/backgrounds background))
              :accessibility-label accessibility-label}
             icon-name])]
         children))

src/quo/components/numbered_keyboard/keyboard_key/view.cljs

@@ -4,48 +4,50 @@
     [quo.components.markdown.text :as text]
     [quo.components.numbered-keyboard.keyboard-key.style :as style]
     [quo.theme :as quo.theme]
-    [react-native.core :as rn]))
+    [react-native.core :as rn]
+    [reagent.core :as reagent]))
 
 (defn- label->accessibility-label
   [label]
   (let [label-name (if (keyword? label) (name label) label)]
     (keyword (str "keyboard-key-" label-name))))
 
-(defn view
-  [{:keys [disabled? blur? on-press on-long-press type]} label]
-  (let [theme                   (quo.theme/use-theme-value)
-        [pressed? set-pressed?] (rn/use-state false)
-        on-press                (rn/use-callback #(when on-press (on-press label)) [label])
-        on-long-press           (rn/use-callback #(when (fn? on-long-press) (on-long-press label))
-                                                 [label])
-        on-press-in             (rn/use-callback #(set-pressed? true))
-        on-press-out            (rn/use-callback #(set-pressed? false))
-        label-color             (style/get-label-color disabled? theme blur?)
-        background-color        (style/toggle-background-color pressed? blur? theme)]
-    [rn/pressable
-     {:accessibility-label     (label->accessibility-label label)
-      :disabled                (or disabled? (not label))
-      :on-press                on-press
-      :on-long-press           on-long-press
-      :allow-multiple-presses? true
-      :on-press-in             on-press-in
-      :on-press-out            on-press-out
-      :hit-slop                {:top 8 :bottom 8 :left 25 :right 25}
-      :style                   (style/container background-color)}
-     (case type
-       :key             [icons/icon
-                         label
-                         {:color               label-color
-                          :accessibility-label :icon-label}]
-       :digit           [text/text
-                         {:accessibility-label :text-label
-                          :weight              :regular
-                          :size                :heading-1
-                          :style               {:color label-color}}
-                         label]
-       :derivation-path [icons/icon
-                         :i/derivation-path
-                         {:color               label-color
-                          :size                32
-                          :accessibility-label :derivation-path-label}]
-       nil)]))
+(defn- view-internal
+  []
+  (let [pressed? (reagent/atom false)]
+    (fn [{:keys [disabled? theme blur? on-press on-long-press type]} label]
+      (let [label-color      (style/get-label-color disabled? theme blur?)
+            background-color (style/toggle-background-color @pressed? blur? theme)]
+        [rn/pressable
+         {:accessibility-label     (label->accessibility-label label)
+          :disabled                (or disabled? (not label))
+          :on-press                (fn []
+                                     (when on-press
+                                       (on-press label)))
+          :on-long-press           (fn []
+                                     (when (fn? on-long-press)
+                                       (on-long-press label)))
+          :allow-multiple-presses? true
+          :on-press-in             #(reset! pressed? true)
+          :on-press-out            #(reset! pressed? false)
+          :hit-slop                {:top 8 :bottom 8 :left 25 :right 25}
+          :style                   (style/container background-color)}
+         (case type
+           :key             [icons/icon
+                             label
+                             {:color               label-color
+                              :accessibility-label :icon-label}]
+           :digit           [text/text
+                             {:accessibility-label :text-label
+                              :weight              :regular
+                              :size                :heading-1
+                              :style               {:color label-color}}
+                             label]
+           :derivation-path [icons/icon
+                             :i/derivation-path
+                             {:color               label-color
+                              :size                32
+                              :accessibility-label :derivation-path-label}]
+           nil)]))))
+
+(def view (quo.theme/with-theme view-internal))

src/quo/components/profile/collectible/view.cljs

@@ -1,9 +1,9 @@
 (ns quo.components.profile.collectible.view
   (:require
-    [clojure.string :as string]
     [quo.components.markdown.text :as text]
     [quo.components.profile.collectible.style :as style]
-    [react-native.core :as rn]))
+    [react-native.core :as rn]
+    [react-native.svg :as svg]))
 
 (defn remaining-tiles
   [amount]
@@ -19,28 +19,11 @@
   (let [svg?        (and (map? resource) (:svg? resource))
         image-style (style/tile-style-by-size size)]
     [rn/view {:style style}
-     (cond
-       svg?
+     (if svg?
        [rn/view
-        {:style (assoc image-style
-                       :border-radius    (:border-radius image-style)
-                       :overflow         :hidden
-                       :justify-content  :center
-                       :align-items      :center
-                       :background-color :lightblue)}
-        [text/text "SVG Content"]]
-
-       (or (string/blank? resource) (string/blank? (:uri resource)))
-       [rn/view
-        {:style (assoc image-style
-                       :border-radius    (:border-radius image-style)
-                       :overflow         :hidden
-                       :justify-content  :center
-                       :align-items      :center
-                       :background-color :lightgray)}
-        [text/text "Missing image"]]
-
-       :else
+        {:style {:border-radius (:border-radius image-style)
+                 :overflow      :hidden}}
+        [svg/svg-uri (assoc image-style :uri (:uri resource))]]
        ;; NOTE: using react-native-fast-image here causes a crash on devices when used inside a
        ;; large flatlist. The library seems to have issues with memory consumption when used with
        ;; large images/GIFs.

src/quo/components/profile/select_profile/view.cljs

@@ -3,33 +3,48 @@
     [quo.components.avatars.user-avatar.view :as user-avatar]
     [quo.components.markdown.text :as text]
     [quo.components.profile.select-profile.style :as style]
-    [react-native.core :as rn]))
+    [react-native.core :as rn]
+    [reagent.core :as reagent]))
+
+(defn- on-change-handler
+  [selected? on-change]
+  (swap! selected? not)
+  (when on-change (on-change @selected?)))
 
 (defn view
   "Options
+   - `default-selected?` The default selected state. Use when the component is not controlled.
    - `selected?` Selected state. Use when the component is controlled.
    - `name` Full name
    - `profile-picture` Profile picture
    - `customization-color` Customization color
    - `(on-change selected?)` On change event handler
    "
-  [{:keys [selected? profile-picture name customization-color on-change]
-    :or   {customization-color :turquoise}}]
-  [rn/touchable-opacity
-   {:style               (style/container customization-color selected?)
-    :on-press            #(when on-change (on-change (not selected?)))
-    :accessibility-label :select-profile}
-   [rn/view {:style style/header}
-    [user-avatar/user-avatar
-     {:full-name         name
-      :status-indicator? false
-      :size              :medium
-      :profile-picture   profile-picture}]
-    [rn/view {:style (style/select-radio selected?)}
-     (when selected?
-       [rn/view {:style style/select-radio-inner}])]]
-   [text/text
-    {:size   :heading-2
-     :weight :semi-bold
-     :style  style/profile-name}
-    name]])
+  [{:keys [default-selected?]}]
+  (let [internal-selected? (reagent/atom (or default-selected? false))]
+    (fn [{:keys [selected?
+                 profile-picture
+                 name
+                 customization-color
+                 on-change]
+          :or   {customization-color :turquoise}}]
+      (when (and (not (nil? selected?)) (not= @internal-selected? selected?))
+        (reset! internal-selected? selected?))
+      [rn/touchable-opacity
+       {:style               (style/container customization-color @internal-selected?)
+        :on-press            #(on-change-handler internal-selected? on-change)
+        :active-opacity      1
+        :accessibility-label :select-profile}
+       [rn/view {:style style/header}
+        [user-avatar/user-avatar
+         {:full-name         name
+          :status-indicator? false
+          :size              :medium
+          :profile-picture   profile-picture}]
+        [rn/view {:style (style/select-radio @internal-selected?)}
+         (when @internal-selected? [rn/view {:style style/select-radio-inner}])]]
+       [text/text
+        {:size   :heading-2
+         :weight :semi-bold
+         :style  style/profile-name}
+        name]])))

src/quo/components/profile/showcase_nav/component_spec.cljs

@@ -1,6 +1,7 @@
 (ns quo.components.profile.showcase-nav.component-spec
   (:require
     [quo.components.profile.showcase-nav.view :as view]
+    [reagent.core :as reagent]
     [test-helpers.component :as h]))
 
 (def nav-data
@@ -34,7 +35,7 @@
           (.toHaveBeenCalled))))
 
   (h/test "active id updated"
-    (let [active-id (atom :recent)]
+    (let [active-id (reagent/atom :recent)]
       (h/render [view/view
                  {:data     nav-data
                   :on-press #(reset! active-id %)}])

src/quo/components/record_audio/record_audio/buttons/delete_button.cljs

@@ -4,10 +4,10 @@
     [quo.components.record-audio.record-audio.helpers :as helpers]
     [quo.components.record-audio.record-audio.style :as style]
     [quo.foundations.colors :as colors]
-    [react-native.core :as rn]
+    [react-native.core :refer [use-effect]]
     [react-native.reanimated :as reanimated]))
 
-(defn delete-button
+(defn f-delete-button
   [recording? ready-to-delete? reviewing-audio? force-show-controls?]
   (let [opacity                   (reanimated/use-shared-value (if force-show-controls? 1 0))
         translate-x               (reanimated/use-shared-value (if force-show-controls? 35 20))
@@ -17,68 +17,62 @@
         connector-height          (reanimated/use-shared-value 12)
         border-radius-first-half  (reanimated/use-shared-value 8)
         border-radius-second-half (reanimated/use-shared-value 8)
-        start-x-animation         (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear-with-delay translate-x 12 50 133.33)
-                                     (helpers/animate-easing-with-delay connector-opacity 1 0 93.33)
-                                     (helpers/animate-easing-with-delay connector-width 56 83.33 80)
-                                     (helpers/animate-easing-with-delay connector-height 56 83.33 80)
-                                     (helpers/animate-easing-with-delay border-radius-first-half
-                                                                        28
-                                                                        83.33
-                                                                        80)
-                                     (helpers/animate-easing-with-delay border-radius-second-half
-                                                                        28
-                                                                        83.33
-                                                                        80)))
-        reset-x-animation         (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear translate-x 0 100)
-                                     (helpers/set-value connector-opacity 0)
-                                     (helpers/set-value connector-width 24)
-                                     (helpers/set-value connector-height 12)
-                                     (helpers/set-value border-radius-first-half 8)
-                                     (helpers/set-value border-radius-second-half 16)))
-        fade-in-animation         (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear translate-x 0 200)
-                                     (helpers/animate-linear opacity 1 200)))
-        fade-out-animation        (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear
-                                      translate-x
-                                      (if reviewing-audio? 35 20)
-                                      200)
-                                     (if reviewing-audio?
-                                       (helpers/animate-linear scale 0.75 200)
-                                       (helpers/animate-linear opacity 0 200))
-                                     (helpers/set-value connector-opacity 0)
-                                     (helpers/set-value connector-width 24)
-                                     (helpers/set-value connector-height 12)
-                                     (helpers/set-value border-radius-first-half 8)
-                                     (helpers/set-value border-radius-second-half 16))
-                                   [reviewing-audio?])
-        fade-out-reset-animation  (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear opacity 0 200)
-                                     (helpers/animate-linear-with-delay translate-x 20 0 200)
-                                     (helpers/animate-linear-with-delay scale 1 0 200)))]
-    (rn/use-effect (fn []
-                     (if recording?
-                       (fade-in-animation)
-                       (fade-out-animation)))
-                   [recording?])
-    (rn/use-effect (fn []
-                     (when-not reviewing-audio?
-                       (fade-out-reset-animation)))
-                   [reviewing-audio?])
-    (rn/use-effect (fn []
-                     (cond
-                       ready-to-delete?
-                       (start-x-animation)
-                       recording?
-                       (reset-x-animation)))
-                   [ready-to-delete?])
+        start-x-animation         (fn []
+                                    (helpers/animate-linear-with-delay translate-x 12 50 133.33)
+                                    (helpers/animate-easing-with-delay connector-opacity 1 0 93.33)
+                                    (helpers/animate-easing-with-delay connector-width 56 83.33 80)
+                                    (helpers/animate-easing-with-delay connector-height 56 83.33 80)
+                                    (helpers/animate-easing-with-delay border-radius-first-half
+                                                                       28
+                                                                       83.33
+                                                                       80)
+                                    (helpers/animate-easing-with-delay border-radius-second-half
+                                                                       28
+                                                                       83.33
+                                                                       80))
+        reset-x-animation         (fn []
+                                    (helpers/animate-linear translate-x 0 100)
+                                    (helpers/set-value connector-opacity 0)
+                                    (helpers/set-value connector-width 24)
+                                    (helpers/set-value connector-height 12)
+                                    (helpers/set-value border-radius-first-half 8)
+                                    (helpers/set-value border-radius-second-half 16))
+        fade-in-animation         (fn []
+                                    (helpers/animate-linear translate-x 0 200)
+                                    (helpers/animate-linear opacity 1 200))
+        fade-out-animation        (fn []
+                                    (helpers/animate-linear
+                                     translate-x
+                                     (if @reviewing-audio? 35 20)
+                                     200)
+                                    (if @reviewing-audio?
+                                      (helpers/animate-linear scale 0.75 200)
+                                      (helpers/animate-linear opacity 0 200))
+                                    (helpers/set-value connector-opacity 0)
+                                    (helpers/set-value connector-width 24)
+                                    (helpers/set-value connector-height 12)
+                                    (helpers/set-value border-radius-first-half 8)
+                                    (helpers/set-value border-radius-second-half 16))
+        fade-out-reset-animation  (fn []
+                                    (helpers/animate-linear opacity 0 200)
+                                    (helpers/animate-linear-with-delay translate-x 20 0 200)
+                                    (helpers/animate-linear-with-delay scale 1 0 200))]
+    (use-effect (fn []
+                  (if @recording?
+                    (fade-in-animation)
+                    (fade-out-animation)))
+                [@recording?])
+    (use-effect (fn []
+                  (when-not @reviewing-audio?
+                    (fade-out-reset-animation)))
+                [@reviewing-audio?])
+    (use-effect (fn []
+                  (cond
+                    @ready-to-delete?
+                    (start-x-animation)
+                    @recording?
+                    (reset-x-animation)))
+                [@ready-to-delete?])
     [:<>
      [reanimated/view {:style (style/delete-button-container opacity)}
       [reanimated/view

src/quo/components/record_audio/record_audio/buttons/lock_button.cljs

@@ -5,10 +5,10 @@
     [quo.components.record-audio.record-audio.style :as style]
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
-    [react-native.core :as rn]
+    [react-native.core :refer [use-effect]]
     [react-native.reanimated :as reanimated]))
 
-(defn lock-button
+(defn f-lock-button
   [recording? ready-to-lock? locked?]
   (let [theme                     (quo.theme/use-theme-value)
         translate-x-y             (reanimated/use-shared-value 20)
@@ -18,58 +18,54 @@
         height                    (reanimated/use-shared-value 12)
         border-radius-first-half  (reanimated/use-shared-value 8)
         border-radius-second-half (reanimated/use-shared-value 8)
-        start-x-y-animation       (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear-with-delay translate-x-y 8 50 116.66)
-                                     (helpers/animate-easing-with-delay connector-opacity 1 0 80)
-                                     (helpers/animate-easing-with-delay width 56 83.33 63.33)
-                                     (helpers/animate-easing-with-delay height 56 83.33 63.33)
-                                     (helpers/animate-easing-with-delay border-radius-first-half
-                                                                        28
-                                                                        83.33
-                                                                        63.33)
-                                     (helpers/animate-easing-with-delay border-radius-second-half
-                                                                        28
-                                                                        83.33
-                                                                        63.33)))
-        reset-x-y-animation       (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear translate-x-y 0 100)
-                                     (helpers/set-value connector-opacity 0)
-                                     (helpers/set-value width 24)
-                                     (helpers/set-value height 12)
-                                     (helpers/set-value border-radius-first-half 8)
-                                     (helpers/set-value border-radius-second-half 16)))
-        fade-in-animation         (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear translate-x-y 0 220)
-                                     (helpers/animate-linear opacity 1 220)))
-        fade-out-animation        (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear translate-x-y 20 200)
-                                     (helpers/animate-linear opacity 0 200)
-                                     (helpers/set-value connector-opacity 0)
-                                     (helpers/set-value width 24)
-                                     (helpers/set-value height 12)
-                                     (helpers/set-value border-radius-first-half 8)
-                                     (helpers/set-value border-radius-second-half 16)))]
-    (rn/use-effect (fn []
-                     (if recording?
-                       (fade-in-animation)
-                       (fade-out-animation)))
-                   [recording?])
-    (rn/use-effect (fn []
-                     (cond
-                       ready-to-lock?
-                       (start-x-y-animation)
-                       (and recording? (not locked?))
-                       (reset-x-y-animation)))
-                   [ready-to-lock?])
-    (rn/use-effect (fn []
-                     (if locked?
-                       (fade-out-animation)
-                       (reset-x-y-animation)))
-                   [locked?])
+        start-x-y-animation       (fn []
+                                    (helpers/animate-linear-with-delay translate-x-y 8 50 116.66)
+                                    (helpers/animate-easing-with-delay connector-opacity 1 0 80)
+                                    (helpers/animate-easing-with-delay width 56 83.33 63.33)
+                                    (helpers/animate-easing-with-delay height 56 83.33 63.33)
+                                    (helpers/animate-easing-with-delay border-radius-first-half
+                                                                       28
+                                                                       83.33
+                                                                       63.33)
+                                    (helpers/animate-easing-with-delay border-radius-second-half
+                                                                       28
+                                                                       83.33
+                                                                       63.33))
+        reset-x-y-animation       (fn []
+                                    (helpers/animate-linear translate-x-y 0 100)
+                                    (helpers/set-value connector-opacity 0)
+                                    (helpers/set-value width 24)
+                                    (helpers/set-value height 12)
+                                    (helpers/set-value border-radius-first-half 8)
+                                    (helpers/set-value border-radius-second-half 16))
+        fade-in-animation         (fn []
+                                    (helpers/animate-linear translate-x-y 0 220)
+                                    (helpers/animate-linear opacity 1 220))
+        fade-out-animation        (fn []
+                                    (helpers/animate-linear translate-x-y 20 200)
+                                    (helpers/animate-linear opacity 0 200)
+                                    (helpers/set-value connector-opacity 0)
+                                    (helpers/set-value width 24)
+                                    (helpers/set-value height 12)
+                                    (helpers/set-value border-radius-first-half 8)
+                                    (helpers/set-value border-radius-second-half 16))]
+    (use-effect (fn []
+                  (if @recording?
+                    (fade-in-animation)
+                    (fade-out-animation)))
+                [@recording?])
+    (use-effect (fn []
+                  (cond
+                    @ready-to-lock?
+                    (start-x-y-animation)
+                    (and @recording? (not @locked?))
+                    (reset-x-y-animation)))
+                [@ready-to-lock?])
+    (use-effect (fn []
+                  (if @locked?
+                    (fade-out-animation)
+                    (reset-x-y-animation)))
+                [@locked?])
     [:<>
      [reanimated/view {:style (style/lock-button-container opacity)}
       [reanimated/view
@@ -81,6 +77,6 @@
      [reanimated/view
       {:style          (style/lock-button translate-x-y opacity)
        :pointer-events :none}
-      [icons/icon (if ready-to-lock? :i/locked :i/unlocked)
+      [icons/icon (if @ready-to-lock? :i/locked :i/unlocked)
        {:color (colors/theme-colors colors/black colors/white theme)
         :size  20}]]]))

src/quo/components/record_audio/record_audio/buttons/record_button.cljs

@@ -3,17 +3,19 @@
     [quo.components.buttons.button.view :as button]
     [quo.components.record-audio.record-audio.helpers :as helpers]
     [quo.components.record-audio.record-audio.style :as style]
-    [react-native.core :as rn]
+    [react-native.core :as rn :refer [use-effect]]
     [react-native.reanimated :as reanimated]))
 
-(defn record-button
+(defn f-record-button
   [recording? reviewing-audio?]
-  (let [opacity (reanimated/use-shared-value 1)]
-    (rn/use-effect (fn []
-                     (if (or recording? reviewing-audio?)
-                       (helpers/set-value opacity 0)
-                       (helpers/set-value opacity 1)))
-                   [recording? reviewing-audio?])
+  (let [opacity        (reanimated/use-shared-value 1)
+        show-animation #(helpers/set-value opacity 1)
+        hide-animation #(helpers/set-value opacity 0)]
+    (use-effect (fn []
+                  (if (or @recording? @reviewing-audio?)
+                    (hide-animation)
+                    (show-animation)))
+                [@recording? @reviewing-audio?])
     [reanimated/view {:style (style/record-button-container opacity)}
      [button/button
       {:type                :outline

src/quo/components/record_audio/record_audio/buttons/record_button_big.cljs

@@ -5,9 +5,8 @@
     [quo.components.record-audio.record-audio.helpers :as helpers]
     [quo.components.record-audio.record-audio.style :as style]
     [quo.foundations.colors :as colors]
-    [quo.theme]
     [react-native.audio-toolkit :as audio]
-    [react-native.core :as rn]
+    [react-native.core :as rn :refer [use-effect]]
     [react-native.reanimated :as reanimated]
     [reagent.core :as reagent]
     [taoensso.timbre :as log]
@@ -29,16 +28,13 @@
         (reagent/as-element
          [reanimated/view {:style (style/animated-circle scale opacity color)}]))))))
 
-(defn record-button-big
-  [{:keys [recording? set-recording ready-to-send? set-ready-to-send ready-to-lock? set-ready-to-lock
-           ready-to-delete? set-ready-to-delete record-button-is-animating?
-           record-button-at-initial-position? locked? set-locked reviewing-audio? recording-length-ms
-           set-recording-length-ms
-           clear-timeout touch-active? recorder-ref reload-recorder-fn idle? on-send on-cancel]}]
-  (let [theme (quo.theme/use-theme-value)
-        scale (reanimated/use-shared-value 1)
+(defn f-record-button-big
+  [{:keys [recording? ready-to-send? ready-to-lock? ready-to-delete? record-button-is-animating?
+           record-button-at-initial-position? locked? reviewing-audio? recording-length-ms
+           clear-timeout touch-active? recorder-ref reload-recorder-fn idle? on-send on-cancel theme]}]
+  (let [scale (reanimated/use-shared-value 1)
         opacity (reanimated/use-shared-value 0)
-        opacity-from (if ready-to-lock? opacity-from-lock opacity-from-default)
+        opacity-from (if @ready-to-lock? opacity-from-lock opacity-from-default)
         animations (map
                     (fn [index]
                       (let [ring-scale (worklets.record-audio/ring-scale scale
@@ -50,155 +46,141 @@
                                                           [opacity-from 0])}))
                     (range 0 5))
         rings-color (cond
-                      ready-to-lock?   (colors/theme-colors colors/neutral-80-opa-5-opaque
-                                                            colors/neutral-80
-                                                            theme)
-                      ready-to-delete? colors/danger-50
-                      :else            colors/primary-50)
+                      @ready-to-lock?   (colors/theme-colors colors/neutral-80-opa-5-opaque
+                                                             colors/neutral-80
+                                                             theme)
+                      @ready-to-delete? colors/danger-50
+                      :else             colors/primary-50)
         translate-y (reanimated/use-shared-value 0)
         translate-x (reanimated/use-shared-value 0)
         button-color colors/primary-50
-        icon-color (if (and (not (= :dark theme)) ready-to-lock?) colors/black colors/white)
+        icon-color (if (and (not (= :dark theme)) @ready-to-lock?) colors/black colors/white)
         icon-opacity (reanimated/use-shared-value 1)
         red-overlay-opacity (reanimated/use-shared-value 0)
         gray-overlay-opacity (reanimated/use-shared-value 0)
         complete-animation
-        (rn/use-callback
-         (fn []
-           (cond
-             (and ready-to-lock? (not @record-button-is-animating?))
-             (do
-               (set-locked true)
-               (set-ready-to-lock false))
-             (and (not locked?) (not reviewing-audio?))
-             (audio/stop-recording
-              @recorder-ref
-              (fn []
-                (cond
-                  ready-to-send?
-                  (when on-send
-                    (on-send {:file-path (audio/get-recorder-file-path @recorder-ref)
-                              :duration  recording-length-ms}))
-                  ready-to-delete?
-                  (when on-cancel
-                    (on-cancel)))
-                (reload-recorder-fn)
-                (set-recording false)
-                (set-ready-to-send false)
-                (set-ready-to-delete false)
-                (set-ready-to-lock false)
-                (reset! idle? true)
-                (js/setTimeout #(reset! idle? false) 1000)
-                (set-recording-length-ms 0)
-                (log/debug "[record-audio] stop recording - success"))
-              #(log/error "[record-audio] stop recording - error: " %))))
-         [ready-to-lock? locked? reviewing-audio? ready-to-send? recording-length-ms ready-to-delete?
-          idle?])
-        start-animation (rn/use-callback
-                         (fn []
-                           (helpers/set-value opacity 1)
-                           (helpers/animate-linear scale 2.6 signal-anim-duration)
-                           ;; TODO: Research if we can implement this with withSequence method
-                           ;; from Reanimated 2
-                           ;; GitHub issue [#14561]:
-                           ;; https://github.com/status-im/status-mobile/issues/14561
-                           (reset! clear-timeout
-                             (js/setTimeout
-                              (fn []
-                                (helpers/set-value scale scale-to-each)
-                                (helpers/animate-linear-with-delay-loop scale
-                                                                        scale-to-total
-                                                                        signal-anim-duration-2
-                                                                        0))
-                              signal-anim-duration))))
-        stop-animation (rn/use-callback
-                        (fn []
-                          (helpers/set-value opacity 0)
-                          (reanimated/cancel-animation scale)
-                          (helpers/set-value scale 1)
-                          (when @clear-timeout (js/clearTimeout @clear-timeout))))
-        start-y-animation (rn/use-callback
-                           (fn []
-                             (reset! record-button-at-initial-position? false)
-                             (reset! record-button-is-animating? true)
-                             (helpers/animate-easing translate-y -64 250)
-                             (helpers/animate-linear-with-delay icon-opacity 0 33.33 76.66)
-                             (js/setTimeout (fn []
-                                              (reset! record-button-is-animating? false)
-                                              (when-not @touch-active? (complete-animation)))
-                                            250))
-                           [complete-animation])
-        reset-y-animation (rn/use-callback
-                           (fn []
-                             (helpers/animate-easing translate-y 0 300)
-                             (helpers/animate-linear icon-opacity 1 500)
-                             (js/setTimeout (fn []
-                                              (reset! record-button-at-initial-position? true))
-                                            500)))
-        start-x-animation (rn/use-callback
-                           (fn []
-                             (reset! record-button-at-initial-position? false)
-                             (reset! record-button-is-animating? true)
-                             (helpers/animate-easing translate-x -64 250)
-                             (helpers/animate-linear-with-delay icon-opacity 0 33.33 76.66)
-                             (helpers/animate-linear red-overlay-opacity 1 33.33)
-                             (js/setTimeout (fn []
-                                              (reset! record-button-is-animating? false)
-                                              (when-not @touch-active? (complete-animation)))
-                                            250))
-                           [complete-animation])
-        reset-x-animation (rn/use-callback
-                           (fn []
-                             (helpers/animate-easing translate-x 0 300)
-                             (helpers/animate-linear icon-opacity 1 500)
-                             (helpers/animate-linear red-overlay-opacity 0 100)
-                             (js/setTimeout (fn []
-                                              (reset! record-button-at-initial-position? true))
-                                            500)))
-        start-x-y-animation (rn/use-callback
+        (fn []
+          (cond
+            (and @ready-to-lock? (not @record-button-is-animating?))
+            (do
+              (reset! locked? true)
+              (reset! ready-to-lock? false))
+            (and (not @locked?) (not @reviewing-audio?))
+            (audio/stop-recording
+             @recorder-ref
+             (fn []
+               (cond
+                 @ready-to-send?
+                 (when on-send
+                   (on-send {:file-path (audio/get-recorder-file-path @recorder-ref)
+                             :duration  @recording-length-ms}))
+                 @ready-to-delete?
+                 (when on-cancel
+                   (on-cancel)))
+               (reload-recorder-fn)
+               (reset! recording? false)
+               (reset! ready-to-send? false)
+               (reset! ready-to-delete? false)
+               (reset! ready-to-lock? false)
+               (reset! idle? true)
+               (js/setTimeout #(reset! idle? false) 1000)
+               (reset! recording-length-ms 0)
+               (log/debug "[record-audio] stop recording - success"))
+             #(log/error "[record-audio] stop recording - error: " %))))
+        start-animation (fn []
+                          (helpers/set-value opacity 1)
+                          (helpers/animate-linear scale 2.6 signal-anim-duration)
+                          ;; TODO: Research if we can implement this with withSequence method
+                          ;; from Reanimated 2
+                          ;; GitHub issue [#14561]:
+                          ;; https://github.com/status-im/status-mobile/issues/14561
+                          (reset! clear-timeout
+                            (js/setTimeout
                              (fn []
-                               (reset! record-button-at-initial-position? false)
-                               (reset! record-button-is-animating? true)
-                               (helpers/animate-easing translate-y -44 200)
-                               (helpers/animate-easing translate-x -44 200)
-                               (helpers/animate-linear-with-delay icon-opacity 0 33.33 33.33)
-                               (helpers/animate-linear gray-overlay-opacity 1 33.33)
-                               (js/setTimeout (fn []
-                                                (reset! record-button-is-animating? false)
-                                                (when-not @touch-active? (complete-animation)))
-                                              200))
-                             [complete-animation])
-        reset-x-y-animation (rn/use-callback
-                             (fn []
-                               (helpers/animate-easing translate-y 0 300)
-                               (helpers/animate-easing translate-x 0 300)
-                               (helpers/animate-linear icon-opacity 1 500)
-                               (helpers/animate-linear gray-overlay-opacity 0 800)
-                               (js/setTimeout (fn []
-                                                (reset! record-button-at-initial-position? true))
-                                              800)))]
-    (rn/use-effect (fn []
-                     (cond
-                       recording?
-                       (start-animation)
-                       (not ready-to-lock?)
-                       (stop-animation)))
-                   [recording?])
-    (rn/use-effect (fn []
-                     (if ready-to-lock?
-                       (start-x-y-animation)
-                       (reset-x-y-animation)))
-                   [ready-to-lock?])
-    (rn/use-effect (fn []
-                     (if ready-to-send?
-                       (start-y-animation)
-                       (reset-y-animation)))
-                   [ready-to-send?])
-    (rn/use-effect (fn []
-                     (if ready-to-delete?
-                       (start-x-animation)
-                       (reset-x-animation)))
-                   [ready-to-delete?])
+                               (helpers/set-value scale scale-to-each)
+                               (helpers/animate-linear-with-delay-loop scale
+                                                                       scale-to-total
+                                                                       signal-anim-duration-2
+                                                                       0))
+                             signal-anim-duration)))
+        stop-animation (fn []
+                         (helpers/set-value opacity 0)
+                         (reanimated/cancel-animation scale)
+                         (helpers/set-value scale 1)
+                         (when @clear-timeout (js/clearTimeout @clear-timeout)))
+        start-y-animation (fn []
+                            (reset! record-button-at-initial-position? false)
+                            (reset! record-button-is-animating? true)
+                            (helpers/animate-easing translate-y -64 250)
+                            (helpers/animate-linear-with-delay icon-opacity 0 33.33 76.66)
+                            (js/setTimeout (fn []
+                                             (reset! record-button-is-animating? false)
+                                             (when-not @touch-active? (complete-animation)))
+                                           250))
+        reset-y-animation (fn []
+                            (helpers/animate-easing translate-y 0 300)
+                            (helpers/animate-linear icon-opacity 1 500)
+                            (js/setTimeout (fn []
+                                             (reset! record-button-at-initial-position? true))
+                                           500))
+        start-x-animation (fn []
+                            (reset! record-button-at-initial-position? false)
+                            (reset! record-button-is-animating? true)
+                            (helpers/animate-easing translate-x -64 250)
+                            (helpers/animate-linear-with-delay icon-opacity 0 33.33 76.66)
+                            (helpers/animate-linear red-overlay-opacity 1 33.33)
+                            (js/setTimeout (fn []
+                                             (reset! record-button-is-animating? false)
+                                             (when-not @touch-active? (complete-animation)))
+                                           250))
+        reset-x-animation (fn []
+                            (helpers/animate-easing translate-x 0 300)
+                            (helpers/animate-linear icon-opacity 1 500)
+                            (helpers/animate-linear red-overlay-opacity 0 100)
+                            (js/setTimeout (fn []
+                                             (reset! record-button-at-initial-position? true))
+                                           500))
+        start-x-y-animation (fn []
+                              (reset! record-button-at-initial-position? false)
+                              (reset! record-button-is-animating? true)
+                              (helpers/animate-easing translate-y -44 200)
+                              (helpers/animate-easing translate-x -44 200)
+                              (helpers/animate-linear-with-delay icon-opacity 0 33.33 33.33)
+                              (helpers/animate-linear gray-overlay-opacity 1 33.33)
+                              (js/setTimeout (fn []
+                                               (reset! record-button-is-animating? false)
+                                               (when-not @touch-active? (complete-animation)))
+                                             200))
+        reset-x-y-animation (fn []
+                              (helpers/animate-easing translate-y 0 300)
+                              (helpers/animate-easing translate-x 0 300)
+                              (helpers/animate-linear icon-opacity 1 500)
+                              (helpers/animate-linear gray-overlay-opacity 0 800)
+                              (js/setTimeout (fn []
+                                               (reset! record-button-at-initial-position? true))
+                                             800))]
+    (use-effect (fn []
+                  (cond
+                    @recording?
+                    (start-animation)
+                    (not @ready-to-lock?)
+                    (stop-animation)))
+                [@recording?])
+    (use-effect (fn []
+                  (if @ready-to-lock?
+                    (start-x-y-animation)
+                    (reset-x-y-animation)))
+                [@ready-to-lock?])
+    (use-effect (fn []
+                  (if @ready-to-send?
+                    (start-y-animation)
+                    (reset-y-animation)))
+                [@ready-to-send?])
+    (use-effect (fn []
+                  (if @ready-to-delete?
+                    (start-x-animation)
+                    (reset-x-animation)))
+                [@ready-to-delete?])
     [reanimated/view
      {:style          (style/record-button-big-container translate-x translate-y opacity)
       :pointer-events :none}
@@ -215,6 +197,6 @@
       [reanimated/view {:style (style/record-button-big-red-overlay red-overlay-opacity)}]
       [reanimated/view {:style (style/record-button-big-gray-overlay gray-overlay-opacity)}]
       [reanimated/view {:style (style/record-button-big-icon-container icon-opacity)}
-       (if locked?
+       (if @locked?
          [rn/view {:style style/stop-icon}]
          [icons/icon :i/audio {:color icon-color}])]]]))

src/quo/components/record_audio/record_audio/buttons/send_button.cljs

@@ -4,10 +4,10 @@
     [quo.components.record-audio.record-audio.helpers :as helpers]
     [quo.components.record-audio.record-audio.style :as style]
     [quo.foundations.colors :as colors]
-    [react-native.core :as rn]
+    [react-native.core :refer [use-effect]]
     [react-native.reanimated :as reanimated]))
 
-(defn send-button
+(defn f-send-button
   [recording? ready-to-send? reviewing-audio? force-show-controls?]
   (let [opacity                   (reanimated/use-shared-value (if force-show-controls? 1 0))
         translate-y               (reanimated/use-shared-value (if force-show-controls? 76 20))
@@ -16,71 +16,65 @@
         height                    (reanimated/use-shared-value 24)
         border-radius-first-half  (reanimated/use-shared-value 16)
         border-radius-second-half (reanimated/use-shared-value 8)
-        start-y-animation         (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear-with-delay translate-y 12 50 133.33)
-                                     (helpers/animate-easing-with-delay connector-opacity 1 0 93.33)
-                                     (helpers/animate-easing-with-delay width 56 83.33 80)
-                                     (helpers/animate-easing-with-delay height 56 83.33 80)
-                                     (helpers/animate-easing-with-delay border-radius-first-half
-                                                                        28
-                                                                        83.33
-                                                                        80)
-                                     (helpers/animate-easing-with-delay border-radius-second-half
-                                                                        28
-                                                                        83.33
-                                                                        80)))
-        reset-y-animation         (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear translate-y 0 100)
-                                     (helpers/set-value connector-opacity 0)
-                                     (helpers/set-value width 12)
-                                     (helpers/set-value height 24)
-                                     (helpers/set-value border-radius-first-half 16)
-                                     (helpers/set-value border-radius-second-half 8)))
-        fade-in-animation         (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear translate-y 0 200)
-                                     (helpers/animate-linear opacity 1 200)))
-        fade-out-animation        (rn/use-callback
-                                   (fn []
-                                     (when-not force-show-controls?
-                                       (helpers/animate-linear
-                                        translate-y
-                                        (if reviewing-audio? 76 20)
-                                        200))
-                                     (when-not reviewing-audio?
-                                       (helpers/animate-linear opacity 0 200))
-                                     (helpers/set-value connector-opacity 0)
-                                     (helpers/set-value width 24)
-                                     (helpers/set-value height 12)
-                                     (helpers/set-value border-radius-first-half 8)
-                                     (helpers/set-value border-radius-second-half 16))
-                                   [reviewing-audio? force-show-controls?])
-        fade-out-reset-animation  (rn/use-callback
-                                   (fn []
-                                     (helpers/animate-linear opacity 0 200)
-                                     (helpers/animate-linear-with-delay translate-y 20 0 200)
-                                     (helpers/set-value connector-opacity 0)
-                                     (helpers/set-value width 24)
-                                     (helpers/set-value height 12)
-                                     (helpers/set-value border-radius-first-half 8)
-                                     (helpers/set-value border-radius-second-half 16)))]
-    (rn/use-effect (fn []
-                     (if recording?
-                       (fade-in-animation)
-                       (fade-out-animation)))
-                   [recording?])
-    (rn/use-effect (fn []
-                     (when-not reviewing-audio?
-                       (fade-out-reset-animation)))
-                   [reviewing-audio?])
-    (rn/use-effect (fn []
-                     (cond
-                       ready-to-send?
-                       (start-y-animation)
-                       recording? (reset-y-animation)))
-                   [ready-to-send?])
+        start-y-animation         (fn []
+                                    (helpers/animate-linear-with-delay translate-y 12 50 133.33)
+                                    (helpers/animate-easing-with-delay connector-opacity 1 0 93.33)
+                                    (helpers/animate-easing-with-delay width 56 83.33 80)
+                                    (helpers/animate-easing-with-delay height 56 83.33 80)
+                                    (helpers/animate-easing-with-delay border-radius-first-half
+                                                                       28
+                                                                       83.33
+                                                                       80)
+                                    (helpers/animate-easing-with-delay border-radius-second-half
+                                                                       28
+                                                                       83.33
+                                                                       80))
+        reset-y-animation         (fn []
+                                    (helpers/animate-linear translate-y 0 100)
+                                    (helpers/set-value connector-opacity 0)
+                                    (helpers/set-value width 12)
+                                    (helpers/set-value height 24)
+                                    (helpers/set-value border-radius-first-half 16)
+                                    (helpers/set-value border-radius-second-half 8))
+        fade-in-animation         (fn []
+                                    (helpers/animate-linear translate-y 0 200)
+                                    (helpers/animate-linear opacity 1 200))
+        fade-out-animation        (fn []
+                                    (when-not force-show-controls?
+                                      (helpers/animate-linear
+                                       translate-y
+                                       (if @reviewing-audio? 76 20)
+                                       200))
+                                    (when-not @reviewing-audio?
+                                      (helpers/animate-linear opacity 0 200))
+                                    (helpers/set-value connector-opacity 0)
+                                    (helpers/set-value width 24)
+                                    (helpers/set-value height 12)
+                                    (helpers/set-value border-radius-first-half 8)
+                                    (helpers/set-value border-radius-second-half 16))
+        fade-out-reset-animation  (fn []
+                                    (helpers/animate-linear opacity 0 200)
+                                    (helpers/animate-linear-with-delay translate-y 20 0 200)
+                                    (helpers/set-value connector-opacity 0)
+                                    (helpers/set-value width 24)
+                                    (helpers/set-value height 12)
+                                    (helpers/set-value border-radius-first-half 8)
+                                    (helpers/set-value border-radius-second-half 16))]
+    (use-effect (fn []
+                  (if @recording?
+                    (fade-in-animation)
+                    (fade-out-animation)))
+                [@recording?])
+    (use-effect (fn []
+                  (when-not @reviewing-audio?
+                    (fade-out-reset-animation)))
+                [@reviewing-audio?])
+    (use-effect (fn []
+                  (cond
+                    @ready-to-send?
+                    (start-y-animation)
+                    @recording? (reset-y-animation)))
+                [@ready-to-send?])
     [:<>
      [reanimated/view {:style (style/send-button-container opacity)}
       [reanimated/view

src/quo/components/record_audio/record_audio/component_spec.cljs

@@ -2,6 +2,7 @@
   (:require
     [quo.components.record-audio.record-audio.view :as record-audio]
     [react-native.audio-toolkit :as audio]
+    [reagent.core :as reagent]
     [test-helpers.component :as h]
     [utils.datetime :as datetime]))
 
@@ -10,10 +11,8 @@
 
   (h/test "renders record-audio"
     (h/render [record-audio/record-audio])
-    (-> (h/wait-for #(h/get-by-test-id "record-audio"))
-        (.then (fn []
-                 (-> (h/expect (h/get-by-test-id "record-audio"))
-                     (.toBeTruthy))))))
+    (-> (h/expect (h/get-by-test-id "record-audio"))
+        (.toBeTruthy)))
 
   (h/test "record-audio on-start-recording works"
     (let [event (js/jest.fn)]
@@ -32,7 +31,7 @@
 
   (h/test "record-audio on-reviewing-audio works"
     (let [event    (js/jest.fn)
-          on-meter (atom nil)]
+          on-meter (reagent/atom nil)]
       (h/render [record-audio/record-audio
                  {:on-reviewing-audio              event
                   :record-audio-permission-granted true}])
@@ -40,7 +39,7 @@
                                                    (reset! on-meter on-meter-fn))
                     audio/start-recording        (fn [_ on-start _]
                                                    (on-start)
-                                                   (js/setInterval @on-meter 100))
+                                                   (js/setInterval #(@on-meter) 100))
                     audio/get-recorder-file-path (fn [] "file-path")]
         (h/fire-event
          :on-start-should-set-responder
@@ -49,7 +48,6 @@
                         :locationY  70
                         :timestamp  0
                         :identifier 0}})
-
         (with-redefs [datetime/timestamp (fn [] (+ (.now js/Date) 1000))]
           (h/advance-timers-by-time 100)
           (h/fire-event
@@ -65,7 +63,7 @@
 
   (h/test "record-audio on-send works after reviewing audio"
     (let [event    (js/jest.fn)
-          on-meter (atom nil)]
+          on-meter (reagent/atom nil)]
       (h/render [record-audio/record-audio
                  {:on-send                         event
                   :record-audio-permission-granted true}])
@@ -116,15 +114,14 @@
 
   (h/test "record-audio on-send works after sliding to the send button"
     (let [event       (js/jest.fn)
-          on-meter    (atom nil)
+          on-meter    (reagent/atom nil)
           last-now-ms (atom nil)
           duration-ms (atom nil)]
       (h/render [record-audio/record-audio
                  {:on-send                         event
                   :record-audio-permission-granted true}])
       (with-redefs [audio/new-recorder           (fn [_ on-meter-fn _]
-                                                   (reset! on-meter on-meter-fn)
-                                                   #js {:destroy #()})
+                                                   (reset! on-meter on-meter-fn))
                     audio/start-recording        (fn [_ on-start _]
                                                    (on-start)
                                                    (js/setInterval #(@on-meter) 100))
@@ -173,16 +170,15 @@
 
   (h/test "record-audio on-cancel works after reviewing audio"
     (let [event    (js/jest.fn)
-          on-meter (atom nil)]
+          on-meter (reagent/atom nil)]
       (h/render [record-audio/record-audio
                  {:on-cancel                       event
                   :record-audio-permission-granted true}])
       (with-redefs [audio/new-recorder    (fn [_ on-meter-fn _]
-                                            (reset! on-meter on-meter-fn)
-                                            #js {:destroy #()})
+                                            (reset! on-meter on-meter-fn))
                     audio/start-recording (fn [_ on-start _]
                                             (on-start)
-                                            (js/setInterval @on-meter 100))]
+                                            (js/setInterval #(@on-meter) 100))]
         (h/fire-event
          :on-start-should-set-responder
          (h/get-by-test-id "record-audio")
@@ -199,7 +195,6 @@
                           :locationY  70
                           :timestamp  200
                           :identifier 0}})
-          (h/advance-timers-by-time 250)
           (h/fire-event
            :on-responder-release
            (h/get-by-test-id "record-audio")
@@ -207,12 +202,13 @@
                           :locationY  80
                           :timestamp  200
                           :identifier 0}})
+          (h/advance-timers-by-time 250)
           (-> (js/expect event)
               (.toHaveBeenCalledTimes 1))))))
 
   (h/test "record-audio on-cancel works after sliding to the cancel button"
     (let [event    (js/jest.fn)
-          on-meter (atom nil)]
+          on-meter (reagent/atom nil)]
       (h/render [record-audio/record-audio
                  {:on-cancel                       event
                   :record-audio-permission-granted true}])

src/quo/components/record_audio/record_audio/constants.cljs

@@ -1,81 +0,0 @@
-(ns quo.components.record-audio.record-audio.constants
-  (:require [react-native.audio-toolkit :as audio]
-            [react-native.platform :as platform]
-            [utils.datetime :as datetime]))
-
-(def min-audio-duration-ms 1000)
-(def max-audio-duration-ms (if platform/ios? 120800 120500))
-(def metering-interval 25)
-(def base-filename "am")
-(def default-format ".aac")
-
-(def min-touch-duration 150)
-
-(def record-button-area-big
-  {:width  56
-   :height 56
-   :x      64
-   :y      64})
-
-(def record-button-area
-  {:width  48
-   :height 48
-   :x      68
-   :y      68})
-
-(defn delete-button-area
-  [{:keys [active? reviewing-audio?]}]
-  {:width  (cond
-             active?          72
-             reviewing-audio? 32
-             :else            82)
-   :height (if reviewing-audio? 32 56)
-   :x      (cond
-             active?          -16
-             reviewing-audio? 36
-             :else            -32)
-   :y      (cond
-             active?          64
-             reviewing-audio? 76
-             :else            70)})
-
-(defn lock-button-area
-  [{:keys [active?]}]
-  {:width  (if active? 72 100)
-   :height (if active? 72 102)
-   :x      -32
-   :y      -32})
-
-(defn send-button-area
-  [{:keys [active? reviewing-audio?]}]
-  {:width  (if reviewing-audio? 32 56)
-   :height (cond
-             active?          72
-             reviewing-audio? 47
-             :else            92)
-   :x      (if reviewing-audio? 76 32)
-   :y      (cond
-             active?          -16
-             reviewing-audio? 76
-             :else            -32)})
-
-(defn touch-inside-area?
-  [{:keys [location-x location-y ignore-min-y? ignore-max-y? ignore-min-x? ignore-max-x?]}
-   {:keys [width height x y]}]
-  (let [max-x (+ x width)
-        max-y (+ y height)]
-    (and
-     (and
-      (or ignore-min-x? (>= location-x x))
-      (or ignore-max-x? (<= location-x max-x)))
-     (and
-      (or ignore-min-y? (>= location-y y))
-      (or ignore-max-y? (<= location-y max-y))))))
-
-(def rec-options
-  (merge
-   audio/default-recorder-options
-   {:filename         (str base-filename
-                           (datetime/timestamp)
-                           default-format)
-    :meteringInterval metering-interval}))

src/quo/components/record_audio/record_audio/handlers.cljs

@@ -1,345 +0,0 @@
-(ns quo.components.record-audio.record-audio.handlers
-  (:require [oops.core :as oops]
-            [quo.components.record-audio.record-audio.constants :as record-audio.constants]
-            [react-native.audio-toolkit :as audio]
-            [taoensso.timbre :as log]
-            [utils.datetime :as datetime]))
-
-(def get-reload-player
-  (memoize
-   (fn
-     [[player-ref destroy-player set-playing-audio playing-timer set-audio-current-time-ms
-       set-seeking-audio]]
-     (fn [audio-file]
-       (when @player-ref
-         (destroy-player))
-       (reset! player-ref
-         (audio/new-player
-          (or audio-file (:filename record-audio.constants/rec-options))
-          {:autoDestroy                 false
-           :continuesToPlayInBackground false
-           :category                    audio/PLAYBACK}
-          (fn []
-            (set-playing-audio false)
-            (when @playing-timer
-              (js/clearInterval @playing-timer)
-              (reset! playing-timer nil)
-              (set-audio-current-time-ms 0)
-              (set-seeking-audio false)))))
-       (audio/prepare-player
-        @player-ref
-        #(log/debug "[record-audio] prepare player - success")
-        #(log/error "[record-audio] prepare player - error: " %))))))
-
-(def get-recorder-on-meter
-  (memoize
-   (fn
-     [[recording-start-ms set-recording-length-ms reached-max-duration? locked? set-locked
-       set-reviewing-audio
-       idle? set-recording
-       set-ready-to-lock set-ready-to-send set-ready-to-delete recorder-ref output-file reload-player
-       on-reviewing-audio]]
-     (fn []
-       (when @recording-start-ms
-         (let [now-ms             (datetime/timestamp)
-               recording-duration (- now-ms @recording-start-ms)]
-           (set-recording-length-ms recording-duration)
-           (when (>= recording-duration record-audio.constants/max-audio-duration-ms)
-             (reset! reached-max-duration? (not locked?))
-             (set-reviewing-audio true)
-             (reset! idle? false)
-             (set-locked false)
-             (set-recording false)
-             (set-ready-to-lock false)
-             (set-ready-to-send false)
-             (set-ready-to-delete false)
-             (audio/stop-recording
-              @recorder-ref
-              (fn []
-                (reset! output-file (audio/get-recorder-file-path @recorder-ref))
-                (reload-player nil)
-                (log/debug "[record-audio] stop recording - success"))
-              #(log/error "[record-audio] stop recording - error: " %))
-             (js/setTimeout #(reset! idle? false) 1000)
-             (set-recording-length-ms 0)
-             (reset! recording-start-ms nil)
-             (when on-reviewing-audio
-               (on-reviewing-audio (audio/get-recorder-file-path @recorder-ref))))
-           (log/debug "[record-audio] new recorder - on meter")))))))
-
-(def get-reload-recorder
-  (memoize
-   (fn
-     [[recorder-ref recorder-on-meter]]
-     (fn []
-       (when @recorder-ref
-         (audio/destroy-recorder @recorder-ref)
-         (reset! recorder-ref nil))
-       (reset! recorder-ref (audio/new-recorder
-                             record-audio.constants/rec-options
-                             recorder-on-meter
-                             #(log/debug "[record-audio] new recorder - on ended")))))))
-
-(def get-on-start-should-set-responder
-  (memoize
-   (fn
-     [[locked? idle? disabled? recorder-on-meter touch-timestamp touch-identifier
-       reviewing-audio? record-audio-permission-granted set-recording set-playing-audio output-file
-       recorder-ref recording-start-ms set-audio-current-time-ms on-start-recording
-       on-request-record-audio-permission touch-active?]]
-     (fn [e]
-       (when-not (or locked? @idle? (nil? e) @disabled?)
-         (let [pressed-record-button? (record-audio.constants/touch-inside-area?
-                                       {:location-x    (oops/oget e "nativeEvent.locationX")
-                                        :location-y    (oops/oget e "nativeEvent.locationY")
-                                        :ignore-min-y? false
-                                        :ignore-max-y? false
-                                        :ignore-min-x? false
-                                        :ignore-max-x? false}
-                                       record-audio.constants/record-button-area)
-               new-recorder           (audio/new-recorder
-                                       record-audio.constants/rec-options
-                                       recorder-on-meter
-                                       #(log/debug "[record-audio] new recorder - on ended"))]
-           (reset! touch-timestamp (oops/oget e "nativeEvent.timestamp"))
-           (reset! touch-identifier (oops/oget e "nativeEvent.identifier"))
-           (when-not reviewing-audio?
-             (if record-audio-permission-granted
-               (do
-                 (when (not @idle?)
-                   (set-recording pressed-record-button?))
-                 (when pressed-record-button?
-                   (set-playing-audio false)
-                   (reset! output-file nil)
-                   (reset! recorder-ref new-recorder)
-                   (audio/start-recording
-                    new-recorder
-                    (fn []
-                      (reset! recording-start-ms (datetime/timestamp))
-                      (set-audio-current-time-ms 0)
-                      (log/debug "[record-audio] start recording - success"))
-                    #(log/error "[record-audio] start recording - error: " %))
-                   (when on-start-recording
-                     (on-start-recording))))
-               (when on-request-record-audio-permission
-                 (on-request-record-audio-permission))))
-           (when record-audio-permission-granted
-             (reset! touch-active? true))))
-       (and (not @idle?) (not @disabled?))))))
-
-(def get-on-responder-move
-  (memoize
-   (fn
-     [[locked? ready-to-send? set-ready-to-send ready-to-delete? set-ready-to-delete ready-to-lock?
-       set-ready-to-lock touch-identifier
-       record-button-at-initial-position? recording?]]
-     (fn [^js e]
-       (when-not locked?
-         (let [location-x              (oops/oget e "nativeEvent.locationX")
-               location-y              (oops/oget e "nativeEvent.locationY")
-               page-x                  (oops/oget e "nativeEvent.pageX")
-               page-y                  (oops/oget e "nativeEvent.pageY")
-               identifier              (oops/oget e "nativeEvent.identifier")
-               moved-to-send-button?   (record-audio.constants/touch-inside-area?
-                                        {:location-x    location-x
-                                         :location-y    location-y
-                                         :ignore-min-y? true
-                                         :ignore-max-y? false
-                                         :ignore-min-x? false
-                                         :ignore-max-x? true}
-                                        (record-audio.constants/send-button-area
-                                         {:active?          ready-to-send?
-                                          :reviewing-audio? false}))
-               moved-to-delete-button? (record-audio.constants/touch-inside-area?
-                                        {:location-x    location-x
-                                         :location-y    location-y
-                                         :ignore-min-y? false
-                                         :ignore-max-y? true
-                                         :ignore-min-x? true
-                                         :ignore-max-x? false}
-                                        (record-audio.constants/delete-button-area
-                                         {:active?          ready-to-delete?
-                                          :reviewing-audio? false}))
-               moved-to-lock-button?   (record-audio.constants/touch-inside-area?
-                                        {:location-x    location-x
-                                         :location-y    location-y
-                                         :ignore-min-y? false
-                                         :ignore-max-y? false
-                                         :ignore-min-x? false
-                                         :ignore-max-x? false}
-                                        (record-audio.constants/lock-button-area {:active?
-                                                                                  ready-to-lock?}))
-               moved-to-record-button? (and
-                                        (record-audio.constants/touch-inside-area?
-                                         {:location-x    location-x
-                                          :location-y    location-y
-                                          :ignore-min-y? false
-                                          :ignore-max-y? false
-                                          :ignore-min-x? false
-                                          :ignore-max-x? false}
-                                         record-audio.constants/record-button-area-big)
-                                        (not= location-x page-x)
-                                        (not= location-y page-y))]
-           (when (= identifier @touch-identifier)
-             (cond
-               (and
-                (or
-                 (and moved-to-record-button? ready-to-lock?)
-                 (and (not locked?) moved-to-lock-button? @record-button-at-initial-position?))
-                (not ready-to-delete?)
-                (not ready-to-send?)
-                recording?)
-               (set-ready-to-lock moved-to-lock-button?)
-               (and
-                (or
-                 (and moved-to-record-button? ready-to-delete?)
-                 (and moved-to-delete-button? @record-button-at-initial-position?))
-                (not ready-to-lock?)
-                (not ready-to-send?)
-                recording?)
-               (set-ready-to-delete moved-to-delete-button?)
-               (and
-                (or
-                 (and moved-to-record-button? ready-to-send?)
-                 (and moved-to-send-button? @record-button-at-initial-position?))
-                (not ready-to-lock?)
-                (not ready-to-delete?)
-                recording?)
-               (set-ready-to-send moved-to-send-button?)))))))))
-
-(def get-on-responder-release
-  (memoize
-   (fn
-     [[idle? reached-max-duration? touch-timestamp recording-length-ms set-recording-length-ms
-       reviewing-audio? set-reviewing-audio
-       set-audio-current-time-ms set-force-show-controls on-send output-file player-ref
-       destroy-player on-cancel record-button-is-animating? ready-to-lock? set-ready-to-lock
-       locked? set-locked on-lock ready-to-delete? set-ready-to-delete ready-to-send? set-ready-to-send
-       disabled? on-reviewing-audio recorder-ref set-recording reload-player recording-start-ms
-       touch-active?]]
-     (fn [^js e]
-       (when (and
-              (not @idle?)
-              (not @reached-max-duration?))
-         (let [touch-area              {:location-x    (oops/oget e "nativeEvent.locationX")
-                                        :location-y    (oops/oget e "nativeEvent.locationY")
-                                        :ignore-min-y? false
-                                        :ignore-max-y? false
-                                        :ignore-min-x? false
-                                        :ignore-max-x? false}
-               on-record-button?       (record-audio.constants/touch-inside-area?
-                                        touch-area
-                                        record-audio.constants/record-button-area-big)
-               on-send-button?         (record-audio.constants/touch-inside-area?
-                                        touch-area
-                                        (record-audio.constants/send-button-area
-                                         {:active?          false
-                                          :reviewing-audio? true}))
-               on-delete-button?       (record-audio.constants/touch-inside-area?
-                                        touch-area
-                                        (record-audio.constants/delete-button-area
-                                         {:active?          false
-                                          :reviewing-audio? true}))
-               release-touch-timestamp (oops/oget e "nativeEvent.timestamp")
-               touch-timestamp-diff    (- release-touch-timestamp @touch-timestamp)
-               audio-length            recording-length-ms]
-           (cond
-             (and reviewing-audio? on-send-button?)
-             (do
-               (set-reviewing-audio false)
-               (set-audio-current-time-ms 0)
-               (set-force-show-controls false)
-               (when on-send
-                 (on-send {:file-path @output-file
-                           :duration  (min record-audio.constants/max-audio-duration-ms
-                                           (int (audio/get-player-duration @player-ref)))}))
-               (when @player-ref
-                 (audio/stop-playing
-                  @player-ref
-                  (fn []
-                    (destroy-player)
-                    (log/debug "[record-audio] stop playing - success"))
-                  #(log/error "[record-audio] stop playing - error: " %))))
-
-             (and reviewing-audio? on-delete-button?)
-             (do
-               (set-reviewing-audio false)
-               (set-audio-current-time-ms 0)
-               (set-force-show-controls false)
-               (destroy-player)
-               (when on-cancel
-                 (on-cancel)))
-
-             (and ready-to-lock? (not @record-button-is-animating?))
-             (do
-               (set-locked true)
-               (set-ready-to-lock false)
-               (when on-lock
-                 (on-lock)))
-
-             (and (not reviewing-audio?)
-                  (or on-record-button?
-                      (and (not ready-to-delete?)
-                           (not ready-to-lock?)
-                           (not ready-to-send?))))
-             (do
-               (reset! disabled? (<= touch-timestamp-diff record-audio.constants/min-touch-duration))
-               (js/setTimeout
-                (fn []
-                  (if (>= recording-length-ms record-audio.constants/min-audio-duration-ms)
-                    (do (set-reviewing-audio true)
-                        (reset! idle? false)
-                        (when on-reviewing-audio
-                          (on-reviewing-audio (audio/get-recorder-file-path @recorder-ref))))
-                    (do (when on-cancel
-                          (on-cancel))
-                        (reset! idle? true)))
-                  (set-locked false)
-                  (set-recording false)
-                  (set-ready-to-lock false)
-                  (audio/stop-recording
-                   @recorder-ref
-                   (fn []
-                     (reset! output-file (audio/get-recorder-file-path @recorder-ref))
-                     (when (>= audio-length record-audio.constants/min-audio-duration-ms)
-                       (reload-player nil))
-                     (log/debug "[record-audio] stop recording - success"))
-                   #(log/error "[record-audio] stop recording - error: " %))
-                  (js/setTimeout #(reset! idle? false) 1000)
-                  (set-recording-length-ms 0)
-                  (reset! recording-start-ms nil)
-                  (reset! disabled? false))
-                (if (> touch-timestamp-diff record-audio.constants/min-touch-duration) 0 250)))
-
-             (and (not locked?) (not reviewing-audio?) (not @record-button-is-animating?))
-             (do
-               (reset! disabled? (<= touch-timestamp-diff record-audio.constants/min-touch-duration))
-               (js/setTimeout
-                (fn []
-                  (audio/stop-recording
-                   @recorder-ref
-                   (fn []
-                     (cond
-                       ready-to-send?
-                       (when on-send
-                         (on-send {:file-path (audio/get-recorder-file-path @recorder-ref)
-                                   :duration  recording-length-ms}))
-                       ready-to-delete?
-                       (when on-cancel
-                         (on-cancel)))
-                     (set-recording false)
-                     (set-ready-to-send false)
-                     (set-ready-to-delete false)
-                     (set-ready-to-lock false)
-                     (reset! idle? true)
-                     (js/setTimeout #(reset! idle? false) 1000)
-                     (set-recording-length-ms 0)
-                     (reset! recording-start-ms nil)
-                     (reset! disabled? false)
-                     (log/debug "[record-audio] stop recording - success"))
-                   #(log/error "[record-audio] stop recording - error: " %)))
-                (if (> touch-timestamp-diff record-audio.constants/min-touch-duration) 0 250)))))
-         (reset! touch-active? false))
-       (when @reached-max-duration?
-         (reset! reached-max-duration? false))
-       (reset! touch-timestamp nil)))))

src/quo/components/record_audio/record_audio/view.cljs

@@ -2,6 +2,7 @@
   (:require
     [clojure.string :as string]
     [goog.string :as gstring]
+    [oops.core :as oops]
     [quo.components.icon :as icons]
     [quo.components.markdown.text :as text]
     [quo.components.record-audio.record-audio.buttons.delete-button :as delete-button]
@@ -9,23 +10,93 @@
     [quo.components.record-audio.record-audio.buttons.record-button :as record-button]
     [quo.components.record-audio.record-audio.buttons.record-button-big :as record-button-big]
     [quo.components.record-audio.record-audio.buttons.send-button :as send-button]
-    [quo.components.record-audio.record-audio.constants :as record-audio.constants]
-    [quo.components.record-audio.record-audio.handlers :as handlers]
     [quo.components.record-audio.record-audio.style :as style]
     [quo.components.record-audio.soundtrack.view :as soundtrack]
     [quo.foundations.colors :as colors]
+    [quo.theme :as quo.theme]
     [react-native.audio-toolkit :as audio]
     [react-native.core :as rn]
+    [react-native.platform :as platform]
+    [reagent.core :as reagent]
     [taoensso.timbre :as log]
     [utils.datetime :as datetime]))
 
-(defn- recording-bar
+(def ^:private min-audio-duration-ms 1000)
+(def ^:private max-audio-duration-ms (if platform/ios? 120800 120500))
+(def ^:private metering-interval 25)
+(def ^:private base-filename "am")
+(def ^:private default-format ".aac")
+
+(def min-touch-duration 150)
+
+(def ^:private record-button-area-big
+  {:width  56
+   :height 56
+   :x      64
+   :y      64})
+
+(def ^:private record-button-area
+  {:width  48
+   :height 48
+   :x      68
+   :y      68})
+
+(defn- delete-button-area
+  [{:keys [active? reviewing-audio?]}]
+  {:width  (cond
+             active?          72
+             reviewing-audio? 32
+             :else            82)
+   :height (if reviewing-audio? 32 56)
+   :x      (cond
+             active?          -16
+             reviewing-audio? 36
+             :else            -32)
+   :y      (cond
+             active?          64
+             reviewing-audio? 76
+             :else            70)})
+
+(defn- lock-button-area
+  [{:keys [active?]}]
+  {:width  (if active? 72 100)
+   :height (if active? 72 102)
+   :x      -32
+   :y      -32})
+
+(defn- send-button-area
+  [{:keys [active? reviewing-audio?]}]
+  {:width  (if reviewing-audio? 32 56)
+   :height (cond
+             active?          72
+             reviewing-audio? 47
+             :else            92)
+   :x      (if reviewing-audio? 76 32)
+   :y      (cond
+             active?          -16
+             reviewing-audio? 76
+             :else            -32)})
+
+(defn touch-inside-area?
+  [{:keys [location-x location-y ignore-min-y? ignore-max-y? ignore-min-x? ignore-max-x?]}
+   {:keys [width height x y]}]
+  (let [max-x (+ x width)
+        max-y (+ y height)]
+    (and
+     (and
+      (or ignore-min-x? (>= location-x x))
+      (or ignore-max-x? (<= location-x max-x)))
+     (and
+      (or ignore-min-y? (>= location-y y))
+      (or ignore-max-y? (<= location-y max-y))))))
+
+(defn- f-recording-bar
   [recording-length-ms ready-to-delete?]
-  (let [fill-percentage (/ (* recording-length-ms 100) record-audio.constants/max-audio-duration-ms)]
+  (let [fill-percentage (/ (* recording-length-ms 100) max-audio-duration-ms)]
     [rn/view {:style (style/recording-bar-container)}
      [rn/view {:style (style/recording-bar fill-percentage ready-to-delete?)}]]))
 
-(defn- time-counter
+(defn- f-time-counter
   [recording? recording-length-ms ready-to-delete? reviewing-audio? audio-current-time-ms]
   (let [s        (quot (if recording? recording-length-ms audio-current-time-ms) 1000)
         time-str (gstring/format "%02d:%02d" (quot s 60) (mod s 60))]
@@ -40,12 +111,10 @@
          {:style (style/timer-text)}))
       time-str]]))
 
-(defn- play-button
-  [playing-audio? set-playing-audio player-ref playing-timer set-audio-current-time-ms seeking-audio?
-   set-seeking-audio
-   max-duration-ms]
+(defn- f-play-button
+  [playing-audio? player-ref playing-timer audio-current-time-ms seeking-audio? max-duration-ms]
   (let [on-play  (fn []
-                   (set-playing-audio true)
+                   (reset! playing-audio? true)
                    (reset! playing-timer
                      (js/setInterval
                       (fn []
@@ -53,24 +122,24 @@
                               player-state (audio/get-state @player-ref)
                               playing?     (= player-state audio/PLAYING)]
                           (when (and playing?
-                                     (not seeking-audio?)
+                                     (not @seeking-audio?)
                                      (> current-time 0)
                                      (< current-time max-duration-ms))
-                            (set-audio-current-time-ms current-time))
+                            (reset! audio-current-time-ms current-time))
                           (when (>= current-time max-duration-ms)
                             (audio/stop-playing
                              @player-ref
                              (fn []
-                               (set-playing-audio false)
+                               (reset! playing-audio? false)
                                (when @playing-timer
                                  (js/clearInterval @playing-timer)
                                  (reset! playing-timer nil)
-                                 (set-audio-current-time-ms 0)
-                                 (set-seeking-audio false)))
+                                 (reset! audio-current-time-ms 0)
+                                 (reset! seeking-audio? false)))
                              #(log/error "[record-audio] stop player - error: " %)))))
                       100)))
         on-pause (fn []
-                   (set-playing-audio false)
+                   (reset! playing-audio? false)
                    (when @playing-timer
                      (js/clearInterval @playing-timer)
                      (reset! playing-timer nil))
@@ -85,186 +154,445 @@
      {:style    (style/play-button)
       :on-press on-press}
      [icons/icon
-      (if playing-audio? :i/pause :i/play)
+      (if @playing-audio? :i/pause :i/play)
       {:color (colors/theme-colors colors/neutral-100 colors/white)}]]))
 
-(defn record-audio
-  [{:keys [on-init on-start-recording on-send on-cancel on-reviewing-audio audio-file on-lock
-           max-duration-ms on-check-audio-permissions record-audio-permission-granted
-           on-request-record-audio-permission]}]
-  (let [;;STATE
-        [recording? set-recording]         (rn/use-state false)
-        [locked? set-locked]               (rn/use-state false)
-        [ready-to-send? set-ready-to-send] (rn/use-state false)
-        [ready-to-lock? set-ready-to-lock] (rn/use-state false)
-        [ready-to-delete?
-         set-ready-to-delete]              (rn/use-state false)
-        [reviewing-audio?
-         set-reviewing-audio]              (rn/use-state (some? audio-file))
-        [playing-audio?
-         set-playing-audio]                (rn/use-state false)
-        [recording-length-ms
-         set-recording-length-ms]          (rn/use-state 0)
-        [audio-current-time-ms
-         set-audio-current-time-ms]        (rn/use-state 0)
-        [seeking-audio? set-seeking-audio] (rn/use-state false)
-        [force-show-controls?
-         set-force-show-controls]          (rn/use-state (some? audio-file))
-        ;;ATOMS
-        recording-start-ms                 (rn/use-ref-atom (datetime/timestamp))
-        clear-timeout                      (rn/use-ref-atom nil)
-        record-button-at-initial-position? (rn/use-ref-atom true)
-        record-button-is-animating?        (rn/use-ref-atom false)
-        idle?                              (rn/use-ref-atom false)
-        recorder-ref                       (rn/use-ref-atom nil)
-        player-ref                         (rn/use-ref-atom nil)
-        touch-active?                      (rn/use-ref-atom false)
-        playing-timer                      (rn/use-ref-atom nil)
-        output-file                        (rn/use-ref-atom audio-file)
-        reached-max-duration?              (rn/use-ref-atom false)
-        touch-timestamp                    (rn/use-ref-atom nil)
-        touch-identifier                   (rn/use-ref-atom nil)
-        disabled?                          (rn/use-ref-atom false)
-        app-state-listener                 (rn/use-ref-atom nil)
-        ;;HANDLERS
-        destroy-player                     (rn/use-callback
-                                            (fn []
-                                              (audio/destroy-player @player-ref)
-                                              (reset! player-ref nil)))
-        reload-player                      (handlers/get-reload-player
-                                            [player-ref destroy-player set-playing-audio playing-timer
-                                             set-audio-current-time-ms set-seeking-audio])
-        recorder-on-meter                  (handlers/get-recorder-on-meter
-                                            [recording-start-ms set-recording-length-ms
-                                             reached-max-duration?
-                                             locked? set-locked set-reviewing-audio idle? set-recording
-                                             set-ready-to-lock set-ready-to-send set-ready-to-delete
-                                             recorder-ref
-                                             output-file reload-player
-                                             on-reviewing-audio])
-        reload-recorder                    (handlers/get-reload-recorder [recorder-ref
-                                                                          recorder-on-meter])
-        on-start-should-set-responder      (handlers/get-on-start-should-set-responder
-                                            [locked? idle? disabled? recorder-on-meter touch-timestamp
-                                             touch-identifier
-                                             reviewing-audio? record-audio-permission-granted
-                                             set-recording set-playing-audio output-file
-                                             recorder-ref recording-start-ms set-audio-current-time-ms
-                                             on-start-recording
-                                             on-request-record-audio-permission touch-active?])
-        on-responder-move                  (handlers/get-on-responder-move
-                                            [locked? ready-to-send? set-ready-to-send
-                                             ready-to-delete? set-ready-to-delete
-                                             ready-to-lock? set-ready-to-lock
-                                             touch-identifier
-                                             record-button-at-initial-position?
-                                             recording?])
-        on-responder-release               (handlers/get-on-responder-release
-                                            [idle? reached-max-duration? touch-timestamp
-                                             recording-length-ms set-recording-length-ms
-                                             reviewing-audio? set-reviewing-audio
-                                             set-audio-current-time-ms set-force-show-controls on-send
-                                             output-file player-ref
-                                             destroy-player on-cancel record-button-is-animating?
-                                             ready-to-lock? set-ready-to-lock
-                                             locked? set-locked on-lock ready-to-delete?
-                                             set-ready-to-delete ready-to-send? set-ready-to-send
-                                             disabled? on-reviewing-audio
-                                             recorder-ref set-recording reload-player recording-start-ms
-                                             touch-active?])]
+(defn- record-audio-internal
+  [{:keys [on-init on-start-recording on-send on-cancel on-reviewing-audio
+           record-audio-permission-granted
+           on-request-record-audio-permission on-check-audio-permissions
+           audio-file on-lock max-duration-ms theme]}]
+  [:f>
+   ;; TODO we need to refactor this, and use :f> with defined function, currenly state is reseted each
+   ;; time parent component
+   ;; is re-rendered
+   (fn []
+     (let [recording? (reagent/atom false)
+           locked? (reagent/atom false)
+           ready-to-send? (reagent/atom false)
+           ready-to-lock? (reagent/atom false)
+           ready-to-delete? (reagent/atom false)
+           reviewing-audio? (reagent/atom (some? audio-file))
+           playing-audio? (reagent/atom false)
+           recording-length-ms (reagent/atom 0)
+           audio-current-time-ms (reagent/atom 0)
+           seeking-audio? (reagent/atom false)
+           force-show-controls? (reagent/atom (some? audio-file))
+           recording-start-ms (atom (datetime/timestamp))
+           clear-timeout (atom nil)
+           record-button-at-initial-position? (atom true)
+           record-button-is-animating? (atom false)
+           idle? (atom false)
+           recorder-ref (atom nil)
+           player-ref (atom nil)
+           touch-active? (atom false)
+           playing-timer (atom nil)
+           output-file (atom audio-file)
+           reached-max-duration? (atom false)
+           touch-timestamp (atom nil)
+           touch-identifier (atom nil)
+           disabled? (atom false)
+           app-state-listener (atom nil)
+           rec-options
+           (merge
+            audio/default-recorder-options
+            {:filename         (str base-filename (datetime/timestamp) default-format)
+             :meteringInterval metering-interval})
+           destroy-player
+           (fn []
+             (audio/destroy-player @player-ref)
+             (reset! player-ref nil))
+           reload-player
+           (fn [audio-file]
+             (when @player-ref
+               (destroy-player))
+             (reset! player-ref
+               (audio/new-player
+                (or audio-file (:filename rec-options))
+                {:autoDestroy                 false
+                 :continuesToPlayInBackground false
+                 :category                    audio/PLAYBACK}
+                (fn []
+                  (reset! playing-audio? false)
+                  (when @playing-timer
+                    (js/clearInterval @playing-timer)
+                    (reset! playing-timer nil)
+                    (reset! audio-current-time-ms 0)
+                    (reset! seeking-audio? false)))))
+             (audio/prepare-player
+              @player-ref
+              #(log/debug "[record-audio] prepare player - success")
+              #(log/error "[record-audio] prepare player - error: " %)))
+           destroy-recorder
+           (fn []
+             (audio/destroy-recorder @recorder-ref)
+             (reset! recorder-ref nil))
+           recorder-on-meter
+           (fn []
+             (when @recording-start-ms
+               (let [now-ms             (datetime/timestamp)
+                     recording-duration (- now-ms
+                                           @recording-start-ms)]
+                 (reset! recording-length-ms recording-duration)
+                 (when (>= recording-duration max-audio-duration-ms)
+                   (reset! reached-max-duration? (not @locked?))
+                   (reset! reviewing-audio? true)
+                   (reset! idle? false)
+                   (reset! locked? false)
+                   (reset! recording? false)
+                   (reset! ready-to-lock? false)
+                   (reset! ready-to-send? false)
+                   (reset! ready-to-delete? false)
+                   (audio/stop-recording
+                    @recorder-ref
+                    (fn []
+                      (reset! output-file (audio/get-recorder-file-path
+                                           @recorder-ref))
+                      (reload-player nil)
+                      (log/debug "[record-audio] stop recording - success"))
+                    #(log/error "[record-audio] stop recording - error: " %))
+                   (js/setTimeout #(reset! idle? false) 1000)
+                   (reset! recording-length-ms 0)
+                   (reset! recording-start-ms nil)
+                   (when on-reviewing-audio
+                     (on-reviewing-audio (audio/get-recorder-file-path
+                                          @recorder-ref))))
+                 (log/debug "[record-audio] new recorder - on meter"))))
+           reload-recorder
+           (fn []
+             (when @recorder-ref
+               (destroy-recorder))
+             (reset! recorder-ref (audio/new-recorder
+                                   rec-options
+                                   recorder-on-meter
+                                   #(log/debug "[record-audio] new recorder - on ended"))))
+           reset-recorder
+           (fn []
+             (reset! recording? false)
+             (reset! reviewing-audio? false)
+             (reset! locked? false)
+             (reset! ready-to-send? false)
+             (reset! ready-to-lock? false)
+             (reset! ready-to-delete? false)
+             (reset! audio-current-time-ms 0)
+             (reset! recording-length-ms 0)
+             (reset! seeking-audio? false)
+             (reset! playing-audio? false)
+             (reset! touch-active? false)
+             (reset! reached-max-duration? false)
+             (reset! output-file nil)
+             (reset! idle? false)
+             (reset! record-button-is-animating? false)
+             (reset! record-button-at-initial-position? true)
+             (when @clear-timeout
+               (js/clearTimeout @clear-timeout)
+               (reset! clear-timeout nil))
+             (when @playing-timer
+               (js/clearInterval @playing-timer)
+               (reset! playing-timer nil))
+             (reload-recorder))
+           on-start-should-set-responder
+           (fn [^js e]
+             (when-not (or @locked? @idle? (nil? e) @disabled?)
+               (let [pressed-record-button? (touch-inside-area?
+                                             {:location-x    (oops/oget e "nativeEvent.locationX")
+                                              :location-y    (oops/oget e "nativeEvent.locationY")
+                                              :ignore-min-y? false
+                                              :ignore-max-y? false
+                                              :ignore-min-x? false
+                                              :ignore-max-x? false}
+                                             record-button-area)
+                     new-recorder           (audio/new-recorder
+                                             rec-options
+                                             recorder-on-meter
+                                             #(log/debug "[record-audio] new recorder - on ended"))]
+                 (reset! touch-timestamp (oops/oget e "nativeEvent.timestamp"))
+                 (reset! touch-identifier (oops/oget e "nativeEvent.identifier"))
+                 (when-not @reviewing-audio?
+                   (if record-audio-permission-granted
+                     (do
+                       (when (not @idle?)
+                         (reset! recording? pressed-record-button?))
+                       (when pressed-record-button?
+                         (reset! playing-audio? false)
+                         (reset! output-file nil)
+                         (reset! recorder-ref new-recorder)
+                         (audio/start-recording
+                          new-recorder
+                          (fn []
+                            (reset! recording-start-ms (datetime/timestamp))
+                            (reset! audio-current-time-ms 0)
+                            (log/debug "[record-audio] start recording - success"))
+                          #(log/error "[record-audio] start recording - error: " %))
+                         (when on-start-recording
+                           (on-start-recording))))
+                     (when on-request-record-audio-permission
+                       (on-request-record-audio-permission))))
+                 (when record-audio-permission-granted
+                   (reset! touch-active? true))))
+             (and (not @idle?) (not @disabled?)))
+           on-responder-move
+           (fn [^js e]
+             (when-not @locked?
+               (let [location-x              (oops/oget e "nativeEvent.locationX")
+                     location-y              (oops/oget e "nativeEvent.locationY")
+                     page-x                  (oops/oget e "nativeEvent.pageX")
+                     page-y                  (oops/oget e "nativeEvent.pageY")
+                     identifier              (oops/oget e "nativeEvent.identifier")
+                     moved-to-send-button?   (touch-inside-area?
+                                              {:location-x    location-x
+                                               :location-y    location-y
+                                               :ignore-min-y? true
+                                               :ignore-max-y? false
+                                               :ignore-min-x? false
+                                               :ignore-max-x? true}
+                                              (send-button-area
+                                               {:active?          @ready-to-send?
+                                                :reviewing-audio? false}))
+                     moved-to-delete-button? (touch-inside-area?
+                                              {:location-x    location-x
+                                               :location-y    location-y
+                                               :ignore-min-y? false
+                                               :ignore-max-y? true
+                                               :ignore-min-x? true
+                                               :ignore-max-x? false}
+                                              (delete-button-area
+                                               {:active?          @ready-to-delete?
+                                                :reviewing-audio? false}))
+                     moved-to-lock-button?   (touch-inside-area?
+                                              {:location-x    location-x
+                                               :location-y    location-y
+                                               :ignore-min-y? false
+                                               :ignore-max-y? false
+                                               :ignore-min-x? false
+                                               :ignore-max-x? false}
+                                              (lock-button-area {:active? @ready-to-lock?}))
+                     moved-to-record-button? (and
+                                              (touch-inside-area?
+                                               {:location-x    location-x
+                                                :location-y    location-y
+                                                :ignore-min-y? false
+                                                :ignore-max-y? false
+                                                :ignore-min-x? false
+                                                :ignore-max-x? false}
+                                               record-button-area-big)
+                                              (not= location-x page-x)
+                                              (not= location-y page-y))]
+                 (when (= identifier @touch-identifier)
+                   (cond
+                     (and
+                      (or
+                       (and moved-to-record-button? @ready-to-lock?)
+                       (and (not @locked?) moved-to-lock-button? @record-button-at-initial-position?))
+                      (not @ready-to-delete?)
+                      (not @ready-to-send?)
+                      @recording?)
+                     (reset! ready-to-lock? moved-to-lock-button?)
+                     (and
+                      (or
+                       (and moved-to-record-button? @ready-to-delete?)
+                       (and moved-to-delete-button? @record-button-at-initial-position?))
+                      (not @ready-to-lock?)
+                      (not @ready-to-send?)
+                      @recording?)
+                     (reset! ready-to-delete? moved-to-delete-button?)
+                     (and
+                      (or
+                       (and moved-to-record-button? @ready-to-send?)
+                       (and moved-to-send-button? @record-button-at-initial-position?))
+                      (not @ready-to-lock?)
+                      (not @ready-to-delete?)
+                      @recording?)
+                     (reset! ready-to-send? moved-to-send-button?))))))
+           on-responder-release
+           (fn [^js e]
+             (when (and
+                    (not @idle?)
+                    (not @reached-max-duration?))
+               (let [touch-area              {:location-x    (oops/oget e "nativeEvent.locationX")
+                                              :location-y    (oops/oget e "nativeEvent.locationY")
+                                              :ignore-min-y? false
+                                              :ignore-max-y? false
+                                              :ignore-min-x? false
+                                              :ignore-max-x? false}
+                     on-record-button?       (touch-inside-area?
+                                              touch-area
+                                              record-button-area-big)
+                     on-send-button?         (touch-inside-area?
+                                              touch-area
+                                              (send-button-area
+                                               {:active?          false
+                                                :reviewing-audio? true}))
+                     on-delete-button?       (touch-inside-area?
+                                              touch-area
+                                              (delete-button-area
+                                               {:active?          false
+                                                :reviewing-audio? true}))
+                     release-touch-timestamp (oops/oget e "nativeEvent.timestamp")
+                     touch-timestamp-diff    (- release-touch-timestamp @touch-timestamp)
+                     audio-length            @recording-length-ms]
+                 (cond
+                   (and @reviewing-audio? on-send-button?)
+                   (do
+                     (reset! reviewing-audio? false)
+                     (reset! audio-current-time-ms 0)
+                     (reset! force-show-controls? false)
+                     (when on-send
+                       (on-send {:file-path @output-file
+                                 :duration  (min max-audio-duration-ms
+                                                 (int (audio/get-player-duration @player-ref)))}))
+                     (when @player-ref
+                       (audio/stop-playing
+                        @player-ref
+                        (fn []
+                          (destroy-player)
+                          (log/debug "[record-audio] stop playing - success"))
+                        #(log/error "[record-audio] stop playing - error: " %))))
+                   (and @reviewing-audio? on-delete-button?)
+                   (do
+                     (reset! reviewing-audio? false)
+                     (reset! audio-current-time-ms 0)
+                     (reset! force-show-controls? false)
+                     (destroy-player)
+                     (when on-cancel
+                       (on-cancel)))
+                   (and @ready-to-lock? (not @record-button-is-animating?))
+                   (do
+                     (reset! locked? true)
+                     (reset! ready-to-lock? false)
+                     (when on-lock
+                       (on-lock)))
+                   (and (not @reviewing-audio?)
+                        (or on-record-button?
+                            (and (not @ready-to-delete?)
+                                 (not @ready-to-lock?)
+                                 (not @ready-to-send?))))
+                   (do
+                     (reset! disabled? (<= touch-timestamp-diff min-touch-duration))
+                     (js/setTimeout
+                      (fn []
+                        (if (>= @recording-length-ms min-audio-duration-ms)
+                          (do (reset! reviewing-audio? true)
+                              (reset! idle? false)
+                              (when on-reviewing-audio
+                                (on-reviewing-audio (audio/get-recorder-file-path @recorder-ref))))
+                          (do (when on-cancel
+                                (on-cancel))
+                              (reset! idle? true)))
+                        (reset! locked? false)
+                        (reset! recording? false)
+                        (reset! ready-to-lock? false)
+                        (audio/stop-recording
+                         @recorder-ref
+                         (fn []
+                           (reset! output-file (audio/get-recorder-file-path @recorder-ref))
+                           (when (>= audio-length min-audio-duration-ms)
+                             (reload-player nil))
+                           (log/debug "[record-audio] stop recording - success"))
+                         #(log/error "[record-audio] stop recording - error: " %))
+                        (js/setTimeout #(reset! idle? false) 1000)
+                        (reset! recording-length-ms 0)
+                        (reset! recording-start-ms nil)
+                        (reset! disabled? false))
+                      (if (> touch-timestamp-diff min-touch-duration) 0 250)))
+                   (and (not @locked?) (not @reviewing-audio?) (not @record-button-is-animating?))
+                   (do
+                     (reset! disabled? (<= touch-timestamp-diff min-touch-duration))
+                     (js/setTimeout
+                      (fn []
+                        (audio/stop-recording
+                         @recorder-ref
+                         (fn []
+                           (cond
+                             @ready-to-send?
+                             (when on-send
+                               (on-send {:file-path (audio/get-recorder-file-path @recorder-ref)
+                                         :duration  @recording-length-ms}))
+                             @ready-to-delete?
+                             (when on-cancel
+                               (on-cancel)))
+                           (reset! recording? false)
+                           (reset! ready-to-send? false)
+                           (reset! ready-to-delete? false)
+                           (reset! ready-to-lock? false)
+                           (reset! idle? true)
+                           (js/setTimeout #(reset! idle? false) 1000)
+                           (reset! recording-length-ms 0)
+                           (reset! recording-start-ms nil)
+                           (reset! disabled? false)
+                           (log/debug "[record-audio] stop recording - success"))
+                         #(log/error "[record-audio] stop recording - error: " %)))
+                      (if (> touch-timestamp-diff min-touch-duration) 0 250)))))
+               (reset! touch-active? false))
+             (when @reached-max-duration?
+               (reset! reached-max-duration? false))
+             (reset! touch-timestamp nil))]
+       (fn []
+         (rn/use-mount (fn []
+                         (when on-check-audio-permissions
+                           (on-check-audio-permissions))
+                         (when on-init
+                           (on-init reset-recorder))
+                         (when audio-file
+                           (let [filename (last (string/split audio-file "/"))]
+                             (reload-player filename)))
+                         (reset! app-state-listener
+                           (.addEventListener rn/app-state
+                                              "change"
+                                              #(when (= % "background")
+                                                 (reset! playing-audio? false))))
+                         #(.remove @app-state-listener)))
+         [rn/view
+          {:style          style/bar-container
+           :pointer-events :box-none}
+          (when @reviewing-audio?
+            [:<>
+             [:f> f-play-button playing-audio? player-ref playing-timer audio-current-time-ms
+              seeking-audio? max-duration-ms]
+             [:f> soundtrack/f-soundtrack
+              {:audio-current-time-ms audio-current-time-ms
+               :player-ref            @player-ref
+               :seeking-audio?        seeking-audio?
+               :max-audio-duration-ms max-duration-ms}]])
+          (when (or @recording? @reviewing-audio?)
+            [:f> f-time-counter @recording? @recording-length-ms @ready-to-delete? @reviewing-audio?
+             @audio-current-time-ms])
+          (when @recording?
+            [:f> f-recording-bar @recording-length-ms @ready-to-delete?])
+          [rn/view
+           {:test-ID                       "record-audio"
+            :style                         style/button-container
+            :hit-slop                      {:top    -70
+                                            :bottom 0
+                                            :left   0
+                                            :right  0}
+            :pointer-events                :box-only
+            :on-start-should-set-responder on-start-should-set-responder
+            :on-responder-move             on-responder-move
+            :on-responder-release          on-responder-release}
+           [:f> delete-button/f-delete-button recording? ready-to-delete? reviewing-audio?
+            @force-show-controls?]
+           [:f> lock-button/f-lock-button recording? ready-to-lock? locked?]
+           [:f> send-button/f-send-button recording? ready-to-send? reviewing-audio?
+            @force-show-controls?]
+           [:f> record-button-big/f-record-button-big
+            {:recording?                         recording?
+             :ready-to-send?                     ready-to-send?
+             :ready-to-lock?                     ready-to-lock?
+             :ready-to-delete?                   ready-to-delete?
+             :record-button-is-animating?        record-button-is-animating?
+             :record-button-at-initial-position? record-button-at-initial-position?
+             :locked?                            locked?
+             :reviewing-audio?                   reviewing-audio?
+             :recording-length-ms                recording-length-ms
+             :clear-timeout                      clear-timeout
+             :touch-active?                      touch-active?
+             :recorder-ref                       recorder-ref
+             :reload-recorder-fn                 reload-recorder
+             :idle?                              idle?
+             :on-send                            on-send
+             :on-cancel                          on-cancel
+             :theme                              theme}]
+           [:f> record-button/f-record-button recording? reviewing-audio?]]])))])
 
-    ;;ON MOUNT
-    (rn/use-mount
-     (fn []
-       (when on-check-audio-permissions (on-check-audio-permissions))
-       (when on-init
-         (on-init
-          (fn reset-recorder []
-            (set-recording false)
-            (set-reviewing-audio false)
-            (set-locked false)
-            (set-ready-to-send false)
-            (set-ready-to-lock false)
-            (set-ready-to-delete false)
-            (set-audio-current-time-ms 0)
-            (set-recording-length-ms 0)
-            (set-seeking-audio false)
-            (set-playing-audio false)
-            (reset! touch-active? false)
-            (reset! reached-max-duration? false)
-            (reset! output-file nil)
-            (reset! idle? false)
-            (reset! record-button-is-animating? false)
-            (reset! record-button-at-initial-position? true)
-            (when @clear-timeout
-              (js/clearTimeout @clear-timeout)
-              (reset! clear-timeout nil))
-            (when @playing-timer
-              (js/clearInterval @playing-timer)
-              (reset! playing-timer nil))
-            (reload-recorder))))
-       (when audio-file
-         (let [filename (last (string/split audio-file "/"))]
-           (reload-player filename)))
-       (reset! app-state-listener
-         (.addEventListener rn/app-state
-                            "change"
-                            #(when (= % "background")
-                               (set-playing-audio false))))))
-    ;;ON UNMOUNT
-    (rn/use-unmount #(.remove @app-state-listener))
-
-    [rn/view
-     {:style          style/bar-container
-      :pointer-events :box-none}
-     (when reviewing-audio?
-       [:<>
-        [play-button playing-audio? set-playing-audio player-ref playing-timer set-audio-current-time-ms
-         seeking-audio? set-seeking-audio max-duration-ms]
-        [soundtrack/soundtrack
-         {:audio-current-time-ms     audio-current-time-ms
-          :set-audio-current-time-ms set-audio-current-time-ms
-          :player-ref                @player-ref
-          :seeking-audio?            seeking-audio?
-          :set-seeking-audio         set-seeking-audio
-          :max-audio-duration-ms     max-duration-ms}]])
-     (when (or recording? reviewing-audio?)
-       [time-counter recording? recording-length-ms ready-to-delete? reviewing-audio?
-        audio-current-time-ms])
-     (when recording?
-       [recording-bar recording-length-ms ready-to-delete?])
-     [rn/view
-      {:test-ID                       "record-audio"
-       :style                         style/button-container
-       :hit-slop                      {:top -70 :bottom 0 :left 0 :right 0}
-       :pointer-events                :box-only
-       :on-start-should-set-responder on-start-should-set-responder
-       :on-responder-move             on-responder-move
-       :on-responder-release          on-responder-release}
-      [delete-button/delete-button recording? ready-to-delete? reviewing-audio? force-show-controls?]
-      [lock-button/lock-button recording? ready-to-lock? locked?]
-      [send-button/send-button recording? ready-to-send? reviewing-audio? force-show-controls?]
-      [record-button-big/record-button-big
-       {:recording?                         recording?
-        :set-recording                      set-recording
-        :ready-to-send?                     ready-to-send?
-        :set-ready-to-send                  set-ready-to-send
-        :ready-to-lock?                     ready-to-lock?
-        :set-ready-to-lock                  set-ready-to-lock
-        :ready-to-delete?                   ready-to-delete?
-        :set-ready-to-delete                set-ready-to-delete
-        :record-button-is-animating?        record-button-is-animating?
-        :record-button-at-initial-position? record-button-at-initial-position?
-        :locked?                            locked?
-        :set-locked                         set-locked
-        :reviewing-audio?                   reviewing-audio?
-        :recording-length-ms                recording-length-ms
-        :set-recording-length-ms            set-recording-length-ms
-        :clear-timeout                      clear-timeout
-        :touch-active?                      touch-active?
-        :recorder-ref                       recorder-ref
-        :reload-recorder-fn                 reload-recorder
-        :idle?                              idle?
-        :on-send                            on-send
-        :on-cancel                          on-cancel}]
-      [record-button/record-button recording? reviewing-audio?]]]))
+(def record-audio (quo.theme/with-theme record-audio-internal))

src/quo/components/record_audio/soundtrack/component_spec.cljs

@@ -2,6 +2,7 @@
   (:require
     [quo.components.record-audio.soundtrack.view :as soundtrack]
     [react-native.audio-toolkit :as audio]
+    [reagent.core :as reagent]
     [test-helpers.component :as h]))
 
 (h/describe "soundtrack component"
@@ -9,21 +10,23 @@
 
   (h/test "renders soundtrack"
     (with-redefs [audio/get-player-duration (fn [] 2000)]
-      (h/render [soundtrack/soundtrack
-                 {:player-ref            {}
-                  :audio-current-time-ms 0}])
-      (-> (h/expect (h/get-by-test-id "soundtrack"))
-          (.toBeTruthy))))
+      (let [player-ref            (reagent/atom {})
+            audio-current-time-ms (reagent/atom 0)]
+        (h/render [:f> soundtrack/f-soundtrack
+                   {:player-ref            @player-ref
+                    :audio-current-time-ms audio-current-time-ms}])
+        (-> (h/expect (h/get-by-test-id "soundtrack"))
+            (.toBeTruthy)))))
 
   (h/test "soundtrack on-sliding-start works"
     (with-redefs [audio/get-player-duration (fn [] 2000)]
-      (let [seeking-audio? (atom false)]
-        (h/render [soundtrack/soundtrack
-                   {:seeking-audio?            seeking-audio?
-                    :set-seeking-audio         #(reset! seeking-audio? %)
-                    :player-ref                {}
-                    :audio-current-time-ms     0
-                    :set-audio-current-time-ms #()}])
+      (let [seeking-audio?        (reagent/atom false)
+            player-ref            (reagent/atom {})
+            audio-current-time-ms (reagent/atom 0)]
+        (h/render [:f> soundtrack/f-soundtrack
+                   {:seeking-audio?        seeking-audio?
+                    :player-ref            @player-ref
+                    :audio-current-time-ms audio-current-time-ms}])
         (h/fire-event
          :on-sliding-start
          (h/get-by-test-id "soundtrack"))
@@ -33,13 +36,13 @@
   (h/test "soundtrack on-sliding-complete works"
     (with-redefs [audio/get-player-duration (fn [] 2000)
                   audio/seek-player         (js/jest.fn)]
-      (let [seeking-audio? (atom false)]
-        (h/render [soundtrack/soundtrack
-                   {:seeking-audio?            seeking-audio?
-                    :set-seeking-audio         #(reset! seeking-audio? %)
-                    :player-ref                {}
-                    :audio-current-time-ms     0
-                    :set-audio-current-time-ms #()}])
+      (let [seeking-audio?        (reagent/atom false)
+            player-ref            (reagent/atom {})
+            audio-current-time-ms (reagent/atom 0)]
+        (h/render [:f> soundtrack/f-soundtrack
+                   {:seeking-audio?        seeking-audio?
+                    :player-ref            @player-ref
+                    :audio-current-time-ms audio-current-time-ms}])
         (h/fire-event
          :on-sliding-start
          (h/get-by-test-id "soundtrack"))
@@ -55,14 +58,13 @@
   (h/test "soundtrack on-value-change when seeking audio works"
     (with-redefs [audio/get-player-duration (fn [] 2000)
                   audio/seek-player         (js/jest.fn)]
-      (let [seeking-audio?        (atom false)
-            audio-current-time-ms (atom 0)]
-        (h/render [soundtrack/soundtrack
-                   {:seeking-audio?            seeking-audio?
-                    :set-seeking-audio         #(reset! seeking-audio? %)
-                    :player-ref                {}
-                    :audio-current-time-ms     audio-current-time-ms
-                    :set-audio-current-time-ms #(reset! audio-current-time-ms %)}])
+      (let [seeking-audio?        (reagent/atom false)
+            player-ref            (reagent/atom {})
+            audio-current-time-ms (reagent/atom 0)]
+        (h/render [:f> soundtrack/f-soundtrack
+                   {:seeking-audio?        seeking-audio?
+                    :player-ref            @player-ref
+                    :audio-current-time-ms audio-current-time-ms}])
         (h/fire-event
          :on-sliding-start
          (h/get-by-test-id "soundtrack"))

src/quo/components/record_audio/soundtrack/view.cljs

@@ -1,47 +1,42 @@
 (ns quo.components.record-audio.soundtrack.view
   (:require
-    [quo.components.icons.icons :as icons]
     [quo.components.record-audio.soundtrack.style :as style]
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.audio-toolkit :as audio]
-    [react-native.core :as rn]
     [react-native.platform :as platform]
     [react-native.slider :as slider]
     [taoensso.timbre :as log]))
 
-(def ^:private thumb-light (icons/icon-source :thumb-light12))
-(def ^:private thumb-dark (icons/icon-source :thumb-dark12))
+(def ^:private thumb-light (js/require "../resources/images/icons2/12x12/thumb-light.png"))
+(def ^:private thumb-dark (js/require "../resources/images/icons2/12x12/thumb-dark.png"))
 
-(defn soundtrack
-  [{:keys [audio-current-time-ms set-audio-current-time-ms player-ref style
-           seeking-audio? set-seeking-audio max-audio-duration-ms]}]
-  (let [audio-duration-ms   (min max-audio-duration-ms (audio/get-player-duration player-ref))
-        theme               (quo.theme/use-theme-value)
-        on-sliding-start    (rn/use-callback #(set-seeking-audio true))
-        on-sliding-complete (rn/use-callback
-                             (fn [seek-time]
-                               (set-seeking-audio false)
-                               (audio/seek-player
-                                player-ref
-                                seek-time
-                                #(log/debug "[record-audio] on seek - seek time: " seek-time)
-                                #(log/error "[record-audio] on seek - error: " %)))
-                             [player-ref])
-        on-value-change     (rn/use-callback #(when seeking-audio? (set-audio-current-time-ms %))
-                                             [seeking-audio?])]
-    [slider/slider
-     {:test-ID                  "soundtrack"
-      :style                    (merge (style/player-slider-container) style)
-      :minimum-value            0
-      :maximum-value            audio-duration-ms
-      :value                    audio-current-time-ms
-      :on-sliding-start         on-sliding-start
-      :on-sliding-complete      on-sliding-complete
-      :on-value-change          on-value-change
-      :thumb-image              (quo.theme/theme-value thumb-light thumb-dark theme)
-      :minimum-track-tint-color (colors/theme-colors colors/primary-50 colors/primary-60 theme)
-      :maximum-track-tint-color (colors/theme-colors
-                                 (if platform/ios? colors/neutral-20 colors/neutral-40)
-                                 (if platform/ios? colors/neutral-80 colors/neutral-60)
-                                 theme)}]))
+(defn f-soundtrack
+  [{:keys [audio-current-time-ms player-ref style seeking-audio? max-audio-duration-ms]}]
+  (let [audio-duration-ms (min max-audio-duration-ms (audio/get-player-duration player-ref))
+        theme             (quo.theme/use-theme-value)]
+    [:<>
+     [slider/slider
+      {:test-ID                  "soundtrack"
+       :style                    (merge
+                                  (style/player-slider-container)
+                                  (or style {}))
+       :minimum-value            0
+       :maximum-value            audio-duration-ms
+       :value                    @audio-current-time-ms
+       :on-sliding-start         #(reset! seeking-audio? true)
+       :on-sliding-complete      (fn [seek-time]
+                                   (reset! seeking-audio? false)
+                                   (audio/seek-player
+                                    player-ref
+                                    seek-time
+                                    #(log/debug "[record-audio] on seek - seek time: " seek-time)
+                                    #(log/error "[record-audio] on seek - error: " %)))
+       :on-value-change          #(when @seeking-audio?
+                                    (reset! audio-current-time-ms %))
+       :thumb-image              (quo.theme/theme-value thumb-light thumb-dark theme)
+       :minimum-track-tint-color (colors/theme-colors colors/primary-50 colors/primary-60 theme)
+       :maximum-track-tint-color (colors/theme-colors
+                                  (if platform/ios? colors/neutral-20 colors/neutral-40)
+                                  (if platform/ios? colors/neutral-80 colors/neutral-60)
+                                  theme)}]]))

src/quo/components/settings/category/reorder/view.cljs

@@ -7,23 +7,17 @@
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
     [react-native.core :as rn]
-    [react-native.draggable-flatlist :as draggable-flatlist]))
+    [react-native.draggable-flatlist :as draggable-flatlist]
+    [reagent.core :as reagent]))
 
-(defn key-fn [item index] (str (:title item) index))
+(defn on-drag-end-fn
+  [data atom-data]
+  (reset! atom-data data)
+  (reagent/flush))
 
-(defn reorder-category
-  [{:keys [label data blur? container-style]}]
-  (let [theme                     (quo.theme/use-theme-value)
-        [atom-data set-atom-data] (rn/use-state data)
-        render-fn                 (rn/use-callback
-                                   (fn [item _ _ _ _ drag]
-                                     [reorder-item/reorder-item item types/item
-                                      {:blur? blur? :drag drag}])
-                                   [blur?])
-        on-drag-end-fn            (rn/use-callback (fn [_ _ data] (set-atom-data data)))
-        separator                 (rn/use-memo (fn [] [rn/view
-                                                       {:style (style/reorder-separator blur? theme)}])
-                                               [blur? theme])]
+(defn- reorder-category-internal
+  [{:keys [label data blur? theme container-style]}]
+  (reagent/with-let [atom-data (reagent/atom data)]
     [rn/view {:style (merge (style/container label) container-style)}
      [text/text
       {:weight :medium
@@ -31,9 +25,14 @@
        :style  {:color (colors/theme-colors colors/neutral-50 colors/neutral-40 theme)}}
       label]
      [draggable-flatlist/draggable-flatlist
-      {:data           atom-data
-       :key-fn         key-fn
+      {:data           @atom-data
+       :key-fn         (fn [item index] (str (:title item) index))
        :style          style/reorder-items
-       :render-fn      render-fn
-       :on-drag-end-fn on-drag-end-fn
-       :separator      separator}]]))
+       :render-fn      (fn [item _ _ _ _ drag] [reorder-item/reorder-item item types/item
+                                                {:blur? blur? :drag drag}])
+       :on-drag-end-fn (fn [_ _ data]
+                         (on-drag-end-fn data atom-data))
+       :separator      [rn/view
+                        {:style (style/reorder-separator blur? theme)}]}]]))
+
+(def reorder-category (quo.theme/with-theme reorder-category-internal))

src/quo/components/share/share_qr_code/schema.cljs

@@ -23,7 +23,7 @@
 (def ?profile
   [:map
    [:type [:= :profile]]
-   [:profile-picture [:maybe :schema.quo/profile-picture-source]]])
+   [:profile-picture :schema.common/image-source]])
 
 (def ?wallet
   [:map

src/quo/components/share/share_qr_code/view.cljs

@@ -16,6 +16,7 @@
             [quo.foundations.colors :as colors]
             [quo.theme]
             [react-native.core :as rn]
+            [reagent.core :as reagent]
             [schema.core :as schema]
             [utils.i18n :as i18n]))
 
@@ -149,7 +150,8 @@
            profile-picture emoji on-share-press address]
     :as   props}]
   [:<>
-   [gradient-cover/view {:customization-color customization-color :height 463}]
+   [rn/view {:style style/gradient-bg}
+    [gradient-cover/view {:customization-color customization-color :height 463}]]
    [rn/view {:style style/content-container}
     [rn/view {:style style/share-qr-container}
      [rn/view {:style style/share-qr-inner-container}
@@ -189,20 +191,20 @@
 
 (defn- view-internal
   [props]
-  (let [[component-width
-         set-component-width] (rn/use-state nil)
-        on-layout             (rn/use-callback #(set-component-width
-                                                 (oops/oget % "nativeEvent.layout.width")))
-        props                 (-> props
-                                  (assoc :component-width component-width)
-                                  (clojure.set/rename-keys {:type :share-qr-type}))]
+  (reagent/with-let [component-width     (reagent/atom nil)
+                     container-component [rn/view {:background-color style/overlay-color}]]
     [quo.theme/provider {:theme :dark}
      [rn/view
       {:accessibility-label :share-qr-code
        :style               style/outer-container
-       :on-layout           on-layout}
-      [rn/view {:style {:background-color style/overlay-color}}
-       (when component-width
-         [share-qr-code props])]]]))
+       :on-layout           #(reset! component-width (oops/oget % "nativeEvent.layout.width"))}
+      (conj container-component
+            (when @component-width
+              [share-qr-code
+               (-> props
+                   (assoc :component-width @component-width)
+                   (clojure.set/rename-keys {:type :share-qr-type}))]))]]))
 
-(def view (schema/instrument #'view-internal component-schema/?schema))
+(def view
+  (quo.theme/with-theme
+   (schema/instrument #'view-internal component-schema/?schema)))

src/quo/components/tabs/segmented_tab.cljs

@@ -3,7 +3,8 @@
     [quo.components.tabs.tab.view :as tab]
     [quo.foundations.colors :as colors]
     [quo.theme :as quo.theme]
-    [react-native.core :as rn]))
+    [react-native.core :as rn]
+    [reagent.core :as reagent]))
 
 (def themes-for-blur
   {:light {:background-color colors/neutral-80-opa-5}
@@ -13,41 +14,41 @@
   {:light {:background-color colors/neutral-10}
    :dark  {:background-color colors/neutral-90}})
 
-(defn segmented-control
-  [{:keys [data size blur? container-style item-container-style
-           active-item-container-style default-active on-change]}]
-  (let [theme               (quo.theme/use-theme-value)
-        [active-tab-id
-         set-active-tab-id] (rn/use-state default-active)
-        on-press            (rn/use-callback
-                             (fn [tab-id]
-                               (set-active-tab-id tab-id)
-                               (when on-change (on-change tab-id)))
-                             [on-change])]
-    [rn/view
-     (merge
-      {:flex-direction   :row
-       :background-color (get-in (if blur? themes-for-blur themes)
-                                 [theme :background-color])
-       :border-radius    (case size
-                           32 10
-                           28 10
-                           24 8
-                           20 6)
-       :padding          2}
-      container-style)
-     (for [[indx {:keys [label id]}] (map-indexed vector data)]
-       ^{:key id}
-       [rn/view
-        {:margin-left (if (= 0 indx) 0 2)
-         :flex        1}
-        [tab/view
-         {:id                          id
-          :active-item-container-style active-item-container-style
-          :item-container-style        item-container-style
-          :segmented?                  true
-          :size                        size
-          :blur?                       blur?
-          :active                      (= id active-tab-id)
-          :on-press                    on-press}
-         label]])]))
+(defn- segmented-control-internal
+  [{:keys [default-active on-change]}]
+  (let [active-tab-id (reagent/atom default-active)]
+    (fn [{:keys [data size theme blur? container-style item-container-style
+                 active-item-container-style]}]
+      (let [active-id @active-tab-id]
+        [rn/view
+         (merge
+          {:flex-direction   :row
+           :background-color (get-in (if blur? themes-for-blur themes)
+                                     [theme :background-color])
+           :border-radius    (case size
+                               32 10
+                               28 10
+                               24 8
+                               20 6)
+           :padding          2}
+          container-style)
+         (for [[indx {:keys [label id]}] (map-indexed vector data)]
+           ^{:key id}
+           [rn/view
+            {:margin-left (if (= 0 indx) 0 2)
+             :flex        1}
+            [tab/view
+             {:id                          id
+              :active-item-container-style active-item-container-style
+              :item-container-style        item-container-style
+              :segmented?                  true
+              :size                        size
+              :blur?                       blur?
+              :active                      (= id active-id)
+              :on-press                    (fn [tab-id]
+                                             (reset! active-tab-id tab-id)
+                                             (when on-change
+                                               (on-change tab-id)))}
+             label]])]))))
+
+(def segmented-control (quo.theme/with-theme segmented-control-internal))

src/quo/components/tabs/tabs/view.cljs

@@ -41,7 +41,7 @@
     (into [:<>] children)))
 
 (defn- on-scroll-handler
-  [{:keys [on-scroll fading set-fading fade-end-percentage fade-end?]} ^js e]
+  [{:keys [on-scroll fading fade-end-percentage fade-end?]} ^js e]
   (when fade-end?
     (let [offset-x       (oget e "nativeEvent.contentOffset.x")
           content-width  (oget e "nativeEvent.contentSize.width")
@@ -52,8 +52,11 @@
                            :layout-width        layout-width
                            :max-fade-percentage fade-end-percentage})]
       ;; Avoid unnecessary re-rendering.
-      (when (not= new-percentage (get fading :fade-end-percentage))
-        (set-fading (assoc fading :fade-end-percentage new-percentage)))))
+      (when (not= new-percentage
+                  (get @fading :fade-end-percentage))
+        (swap! fading assoc
+          :fade-end-percentage
+          new-percentage))))
   (when on-scroll
     (on-scroll e)))
 
@@ -61,7 +64,6 @@
   [{:keys [id label notification-dot? accessibility-label]}
    index _
    {:keys [active-tab-id
-           set-active-tab-id
            blur?
            customization-color
            flat-list-ref
@@ -83,9 +85,9 @@
      :accessibility-label accessibility-label
      :size                size
      :blur?               blur?
-     :active              (= id active-tab-id)
+     :active              (= id @active-tab-id)
      :on-press            (fn [id]
-                            (set-active-tab-id id)
+                            (reset! active-tab-id id)
                             (when (and scroll-on-press? @flat-list-ref)
                               (.scrollToIndex ^js @flat-list-ref
                                               #js
@@ -116,81 +118,87 @@
   - `scroll-on-press?` When non-nil, clicking on a tag centers it the middle
     (with animation enabled).
   "
-  [{:keys [default-active data fade-end-percentage fade-end? on-change on-scroll scroll-on-press?
-           scrollable? style container-style size blur? in-scroll-view? customization-color]
-    :or   {fade-end-percentage 0.8
-           fade-end?           false
-           scrollable?         false
-           scroll-on-press?    false
-           size                default-tab-size}
-    :as   props}]
-  (let [[active-tab-id
-         set-active-tab-id] (rn/use-state default-active)
-        [fading set-fading] (rn/use-state {:fade-end-percentage fade-end-percentage})
-        flat-list-ref       (rn/use-ref-atom nil)
-        clean-props         (dissoc props
-                             :default-active
-                             :fade-end-percentage
-                             :fade-end?
-                             :on-change
-                             :scroll-on-press?
-                             :size)
-        on-scroll           (rn/use-callback
-                             (partial on-scroll-handler
-                                      {:fade-end-percentage fade-end-percentage
-                                       :fade-end?           fade-end?
-                                       :fading              fading
-                                       :set-fading          set-fading
-                                       :on-scroll           on-scroll})
-                             [fade-end? fading])]
-    (if scrollable?
-      [rn/view {:style {:margin-top (- (dec unread-count-offset))}}
-       [masked-view-wrapper
-        {:fade-end-percentage (get fading :fade-end-percentage) :fade-end? fade-end?}
-        [(if in-scroll-view?
-           gesture/flat-list
-           rn/flat-list)
-         (merge
-          clean-props
-          (when scroll-on-press?
-            {:initial-scroll-index (utils.collection/first-index #(= active-tab-id (:id %)) data)})
-          {:ref #(reset! flat-list-ref %)
-           :style style
-           ;; The padding-top workaround is needed because on Android
-           ;; {:overflow :visible} doesn't work on components inheriting
-           ;; from ScrollView (e.g. FlatList). There are open issues, here's
-           ;; just one about this topic:
-           ;; https://github.com/facebook/react-native/issues/31218
-           :content-container-style
-           (assoc container-style :padding-top (dec unread-count-offset))
-           :horizontal true
-           :scroll-event-throttle 64
-           :shows-horizontal-scroll-indicator false
-           :data data
-           :key-fn (comp str :id)
-           :on-scroll-to-index-failed identity
-           :on-scroll on-scroll
-           :render-fn tab-view
-           :render-data {:active-tab-id       active-tab-id
-                         :set-active-tab-id   set-active-tab-id
-                         :blur?               blur?
-                         :customization-color customization-color
-                         :flat-list-ref       flat-list-ref
-                         :number-of-items     (count data)
-                         :on-change           on-change
-                         :scroll-on-press?    scroll-on-press?
-                         :size                size
-                         :style               style}})]]]
-      [rn/view (merge style {:flex-direction :row})
-       (map-indexed (fn [index item]
-                      ^{:key (:id item)}
-                      [tab-view item index nil
-                       {:active-tab-id       active-tab-id
-                        :set-active-tab-id   set-active-tab-id
-                        :blur?               blur?
-                        :customization-color customization-color
-                        :number-of-items     (count data)
-                        :on-change           on-change
-                        :size                size
-                        :style               style}])
-                    data)])))
+  [{:keys [default-active fade-end-percentage]
+    :or   {fade-end-percentage 0.8}}]
+  (let [active-tab-id (reagent/atom default-active)
+        fading        (reagent/atom {:fade-end-percentage fade-end-percentage})
+        flat-list-ref (atom nil)]
+    (fn
+      [{:keys [data
+               fade-end-percentage
+               fade-end?
+               on-change
+               on-scroll
+               scroll-on-press?
+               scrollable?
+               style
+               container-style
+               size
+               blur?
+               in-scroll-view?
+               customization-color]
+        :or   {fade-end-percentage fade-end-percentage
+               fade-end?           false
+               scrollable?         false
+               scroll-on-press?    false
+               size                default-tab-size}
+        :as   props}]
+      (if scrollable?
+        [rn/view {:style {:margin-top (- (dec unread-count-offset))}}
+         [masked-view-wrapper
+          {:fade-end-percentage (get @fading :fade-end-percentage) :fade-end? fade-end?}
+          [(if in-scroll-view?
+             gesture/flat-list
+             rn/flat-list)
+           (merge
+            (dissoc props
+             :default-active
+             :fade-end-percentage
+             :fade-end?
+             :on-change
+             :scroll-on-press?
+             :size)
+            (when scroll-on-press?
+              {:initial-scroll-index (utils.collection/first-index #(= @active-tab-id (:id %)) data)})
+            {:ref #(reset! flat-list-ref %)
+             :style style
+             ;; The padding-top workaround is needed because on Android
+             ;; {:overflow :visible} doesn't work on components inheriting
+             ;; from ScrollView (e.g. FlatList). There are open issues, here's
+             ;; just one about this topic:
+             ;; https://github.com/facebook/react-native/issues/31218
+             :content-container-style
+             (assoc container-style :padding-top (dec unread-count-offset))
+             :horizontal true
+             :scroll-event-throttle 64
+             :shows-horizontal-scroll-indicator false
+             :data data
+             :key-fn (comp str :id)
+             :on-scroll-to-index-failed identity
+             :on-scroll (partial on-scroll-handler
+                                 {:fade-end-percentage fade-end-percentage
+                                  :fade-end?           fade-end?
+                                  :fading              fading
+                                  :on-scroll           on-scroll})
+             :render-fn tab-view
+             :render-data {:active-tab-id       active-tab-id
+                           :blur?               blur?
+                           :customization-color customization-color
+                           :flat-list-ref       flat-list-ref
+                           :number-of-items     (count data)
+                           :on-change           on-change
+                           :scroll-on-press?    scroll-on-press?
+                           :size                size
+                           :style               style}})]]]
+        [rn/view (merge style {:flex-direction :row})
+         (map-indexed (fn [index item]
+                        ^{:key (:id item)}
+                        [tab-view item index nil
+                         {:active-tab-id       active-tab-id
+                          :blur?               blur?
+                          :customization-color customization-color
+                          :number-of-items     (count data)
+                          :on-change           on-change
+                          :size                size
+                          :style               style}])
+                      data)]))))

src/quo/core.cljs

@@ -357,7 +357,7 @@
 
 ;;;; Record Audio
 (def record-audio quo.components.record-audio.record-audio.view/record-audio)
-(def soundtrack quo.components.record-audio.soundtrack.view/soundtrack)
+(def soundtrack quo.components.record-audio.soundtrack.view/f-soundtrack)
 
 ;;;; Selectors
 (def disclaimer quo.components.selectors.disclaimer.view/view)

src/react_native/audio_toolkit.cljs

@@ -38,8 +38,7 @@
     (when on-meter
       (.on ^js recorder "meter" on-meter))
     (when on-ended
-      (.on ^js recorder "ended" on-ended))
-    recorder))
+      (.on ^js recorder "ended" on-ended))))
 
 (defn new-player
   [audio options on-ended]
@@ -47,8 +46,7 @@
                     audio
                     (clj->js options))]
     (when on-ended
-      (.on ^js player "ended" on-ended))
-    player))
+      (.on ^js player "ended" on-ended))))
 
 (defn prepare-player
   [player on-prepared on-error]
@@ -159,16 +157,20 @@
                (on-error {:error (.-err err) :message (.-message err)})
                (on-seek))))))
 
+(defn can-play?
+  [player]
+  (and player (.-canPlay ^js player)))
+
 (defn destroy-recorder
   [recorder]
   (stop-recording recorder
-                  #(when (and recorder (.-destroy ^js recorder) (not= (get-state recorder) DESTROYED))
+                  #(when (and recorder (not= (get-state recorder) DESTROYED))
                      (.destroy ^js recorder))
                   #()))
 
 (defn destroy-player
   [player]
   (stop-playing player
-                #(when (and player (.-destroy ^js player) (not= (get-state player) IDLE))
+                #(when (and player (not= (get-state player) IDLE))
                    (.destroy ^js player))
                 #()))

src/react_native/biometrics.cljs

@@ -39,13 +39,13 @@
   [message]
   (let [cause (if platform/android?
                 (condp = message
-                  android-not-enrolled-error-message  :biometrics/not-enrolled-error
-                  android-not-available-error-message :biometrics/not-available-error
-                  :biometrics/unknown-error)
+                  android-not-enrolled-error-message  ::not-enrolled
+                  android-not-available-error-message ::not-available
+                  ::unknown)
 
                 (condp #(string/includes? %2 %1) message
-                  ios-not-enrolled-error-message :biometrics/not-enrolled-error
-                  :biometrics/unknown-error))]
+                  ios-not-enrolled-error-message ::not-enrolled
+                  ::unknown))]
     (ex-info "Failed to authenticate with biometrics"
              {:orig-error-message message}
              cause)))

src/react_native/core.cljs

@@ -25,15 +25,10 @@
 
 (defn image
   [{:keys [source] :as props}]
-  (let [props (cond-> props
-                platform/ios?
-                (dissoc :resize-method)
-                (and (:style props) platform/ios?)
-                (update :style dissoc :resize-method))]
-    [image-native
-     (if (string? source)
-       (assoc props :source {:uri source})
-       props)]))
+  [image-native
+   (if (string? source)
+     (assoc props :source {:uri source})
+     props)])
 
 (defn image-get-size
   [uri]
@@ -224,7 +219,3 @@
 (defn open-url [link] (.openURL ^js linking link))
 
 (def set-status-bar-style react-native/StatusBar.setBarStyle)
-
-(defn sharing
-  [content]
-  (.share (.-Share ^js react-native) (clj->js content)))

src/react_native/reanimated.cljs

@@ -20,8 +20,7 @@
                      LinearTransition
                      enableLayoutAnimations
                      useAnimatedScrollHandler
-                     runOnJS)
-     :as reanimated*]
+                     runOnJS)]
     ["react-native-redash" :refer (withPause)]
     [react-native.flat-list :as rn-flat-list]
     [react-native.utils :as rn.utils]
@@ -108,8 +107,6 @@
   (when (and anim (some? v))
     (set! (.-value anim) v)))
 
-(def interpolate* reanimated*/interpolate)
-
 (defn interpolate
   ([shared-value input-range output-range]
    (interpolate shared-value input-range output-range nil))

src/schema/common.cljs

@@ -29,15 +29,10 @@
     [:on-success [:or fn? [:cat keyword? [:* :any]]]]
     [:on-error [:or fn? [:cat keyword? [:* :any]]]]]])
 
-(def ^:private ?exception
-  [:fn {:error/message "schema.common/exception should be of type ExceptionInfo"}
-   (fn [v] (instance? ExceptionInfo v))])
-
 (defn register-schemas
   []
   (registry/register ::theme ?theme)
   (registry/register ::customization-color ?customization-color)
   (registry/register ::public-key ?public-key)
   (registry/register ::image-source ?image-source)
-  (registry/register ::rpc-call ?rpc-call)
-  (registry/register ::exception ?exception))
+  (registry/register ::rpc-call ?rpc-call))

src/status_im/common/alert_banner/events.cljs

@@ -1,27 +0,0 @@
-(ns status-im.common.alert-banner.events
-  (:require [re-frame.core :as re-frame]))
-
-(defn add-alert-banner
-  [{:keys [db]} [banner]]
-  (let [current-banners-count (count (get db :alert-banners))
-        db                    (assoc-in db [:alert-banners (:type banner)] banner)]
-    (cond-> {:db db}
-      (zero? current-banners-count)
-      (assoc :show-alert-banner nil))))
-
-(defn remove-alert-banner
-  [{:keys [db]} [banner-type]]
-  (let [db        (update-in db [:alert-banners] dissoc banner-type)
-        new-count (count (get db :alert-banners))]
-    (cond-> {:db db}
-      (zero? new-count)
-      (assoc :hide-alert-banner nil))))
-
-(defn remove-all-alert-banners
-  [{:keys [db]}]
-  {:db                (dissoc db :alert-banners)
-   :hide-alert-banner nil})
-
-(re-frame/reg-event-fx :alert-banners/add add-alert-banner)
-(re-frame/reg-event-fx :alert-banners/remove remove-alert-banner)
-(re-frame/reg-event-fx :alert-banners/remove-all remove-all-alert-banners)

src/status_im/common/alert_banner/events_test.cljs

@@ -1,42 +0,0 @@
-(ns status-im.common.alert-banner.events-test
-  (:require
-    [cljs.test :refer [deftest is testing]]
-    matcher-combinators.test
-    [status-im.common.alert-banner.events :as events]))
-
-(deftest add-alert-banner
-  (testing "Alert banner is added"
-    (is (match? {:db                {:alert-banners
-                                     {:alert {:text "Alert"
-                                              :type :alert}}}
-                 :show-alert-banner nil}
-                (events/add-alert-banner {:db {}}
-                                         [{:text "Alert"
-                                           :type :alert}])))))
-
-(deftest remove-alert-banner
-  (testing "Alert banner is removed"
-    (is (match? {:db                {}
-                 :hide-alert-banner nil}
-                (events/remove-alert-banner {:db {:alert-banners
-                                                  {:alert {:text "Alert"
-                                                           :type :alert}}}}
-                                            [:alert]))))
-  (testing "Alert banner is not removed"
-    (is (match? {:db {:alert-banners
-                      {:alert {:text "Alert"
-                               :type :alert}}}}
-                (events/remove-alert-banner {:db {:alert-banners
-                                                  {:alert {:text "Alert"
-                                                           :type :alert}}}}
-                                            [:error])))))
-
-(deftest remove-all-alert-banners
-  (testing "All Alert banners are removed"
-    (is (match? {:db                {}
-                 :hide-alert-banner nil}
-                (events/remove-all-alert-banners {:db {:alert-banners
-                                                       {:alert {:text "Alert"
-                                                                :type :alert}
-                                                        :error {:text "Error"
-                                                                :type :error}}}})))))

src/status_im/common/alert_banner/style.cljs

@@ -1,20 +0,0 @@
-(ns status-im.common.alert-banner.style)
-
-(def border-radius 20)
-
-(defn container
-  [background-color]
-  {:background-color background-color})
-
-(def second-banner-wrapper
-  {:margin-top              (- border-radius)
-   :overflow                :hidden
-   :border-top-left-radius  border-radius
-   :border-top-right-radius border-radius})
-
-(defn hole-view
-  [background-color]
-  {:padding-top      11
-   :align-items      :center
-   :height           60
-   :background-color background-color})

src/status_im/common/alert_banner/view.cljs

@@ -1,68 +0,0 @@
-(ns status-im.common.alert-banner.view
-  (:require [quo.core :as quo]
-            [quo.foundations.colors :as colors]
-            quo.theme
-            [react-native.core :as rn]
-            [react-native.hole-view :as hole-view]
-            [react-native.safe-area :as safe-area]
-            [status-im.common.alert-banner.style :as style]
-            [status-im.constants :as constants]
-            [utils.re-frame :as rf]))
-
-(defn get-colors-map
-  [theme]
-  {:alert
-   {:background-color (colors/resolve-color :warning theme 20)
-    :text-color       (colors/resolve-color :warning theme)}
-   :error
-   {:background-color (colors/resolve-color :danger theme 20)
-    :text-color       (colors/resolve-color :danger theme)}})
-
-(defn- banner
-  [{:keys [text type second-banner? colors-map]}]
-  [rn/view (when second-banner? {:style style/second-banner-wrapper})
-   [hole-view/hole-view
-    {:style (style/hole-view (get-in colors-map [type :background-color]))
-     :holes (if second-banner?
-              []
-              [{:x            0
-                :y            constants/alert-banner-height
-                :width        (:width (rn/get-window))
-                :height       constants/alert-banner-height
-                :borderRadius style/border-radius}])}
-    [quo/text
-     {:size   :paragraph-2
-      :weight :medium
-      :style  {:color (get-in colors-map [type :text-color])}}
-     text]]])
-
-(defn view
-  []
-  (let [banners       (rf/sub [:alert-banners])
-        theme         (quo.theme/use-theme-value)
-        banners-count (count banners)
-        alert-banner  (:alert banners)
-        error-banner  (:error banners)
-        safe-area-top (safe-area/get-top)
-        colors-map    (get-colors-map theme)]
-    [hole-view/hole-view
-     {:style {:background-color colors/neutral-100}
-      :holes [{:x            0
-               :y            (+ safe-area-top (* constants/alert-banner-height banners-count))
-               :width        (:width (rn/get-window))
-               :height       constants/alert-banner-height
-               :borderRadius style/border-radius}]}
-     [rn/view
-      {:style {:height           safe-area-top
-               :background-color (get-in colors-map
-                                         [(if error-banner :error :alert) :background-color])}}]
-     (when error-banner
-       [banner
-        (assoc error-banner
-               :colors-map     colors-map
-               :second-banner? false)])
-     (when alert-banner
-       [banner
-        (assoc alert-banner
-               :colors-map     colors-map
-               :second-banner? (= 2 banners-count))])]))

src/status_im/common/biometric/effects.cljs

@@ -1,72 +0,0 @@
-(ns status-im.common.biometric.effects
-  (:require
-    [react-native.biometrics :as biometrics]
-    [status-im.common.biometric.utils :as utils]
-    [status-im.common.keychain.events :as keychain]
-    [status-im.constants :as constant]
-    [taoensso.timbre :as log]
-    [utils.i18n :as i18n]
-    [utils.re-frame :as rf]))
-
-(rf/reg-fx
- :effects.biometric/get-supported-type
- (fn []
-   ;;NOTE: if we can't save user password, we can't use biometric
-   (keychain/can-save-user-password?
-    (fn [can-save?]
-      (when (and can-save? (not utils/android-device-blacklisted?))
-        (-> (biometrics/get-supported-type)
-            (.then (fn [type]
-                     (rf/dispatch [:biometric/set-supported-type type])))))))))
-
-(rf/reg-fx
- :effects.biometric/authenticate
- (fn [{:keys [prompt-message on-success on-fail on-cancel on-done]
-       :or   {on-done    identity
-              on-success identity
-              on-cancel  identity
-              on-fail    identity}}]
-   (-> (biometrics/authenticate
-        {:prompt-message          (or prompt-message (i18n/label :t/biometric-auth-reason-login))
-         :fallback-prompt-message (i18n/label
-                                   :t/biometric-auth-login-ios-fallback-label)
-         :cancel-button-text      (i18n/label :t/cancel)})
-       (.then (fn [success?]
-                (on-done)
-                (if success?
-                  (on-success)
-                  (on-cancel))))
-       (.catch (fn [err]
-                 (on-done)
-                 (on-fail err))))))
-
-(rf/reg-fx
- :effects.biometric/check-if-available
- (fn [{:keys [key-uid on-success on-fail]
-       :or   {on-success identity
-              on-fail    identity}}]
-   (keychain/can-save-user-password?
-    (fn [can-save?]
-      (if-not can-save?
-        (on-fail (ex-info "cannot-save-user-password"
-                          {:effect :effects.biometric/check-if-available}))
-        (-> (biometrics/get-available)
-            (.then (fn [available?]
-                     (when-not available?
-                       (throw (js/Error. "biometric-not-available")))))
-            (.then #(keychain/get-auth-method! key-uid))
-            (.then (fn [auth-method]
-                     (if (= auth-method constant/auth-method-biometric)
-                       (on-success auth-method)
-                       (throw (js/Error. "biometric-not-enabled")))))
-            (.catch (fn [err]
-                      (let [message (.-message err)]
-                        (on-fail (ex-info message
-                                          {:err    err
-                                           :effect :effects.biometric/check-if-available}))
-                        (when-not (or (= message "biometric-not-available")
-                                      (= message "biometric-not-enabled"))
-                          (log/error "Failed to check if biometrics is available"
-                                     {:error   err
-                                      :key-uid key-uid
-                                      :effect  :effects.biometric/check-biometric})))))))))))

src/status_im/common/biometric/events.cljs

@@ -1,62 +1,120 @@
 (ns status-im.common.biometric.events
   (:require
-    status-im.common.biometric.effects
+    [native-module.core :as native-module]
+    [re-frame.core :as re-frame]
+    [react-native.biometrics :as biometrics]
+    [react-native.platform :as platform]
+    [status-im.common.keychain.events :as keychain]
     [status-im.constants :as constants]
+    [taoensso.timbre :as log]
     [utils.i18n :as i18n]
     [utils.re-frame :as rf]))
 
-(defn set-supported-type
-  [{:keys [db]} [supported-type]]
-  {:db (assoc-in db [:biometrics :supported-type] supported-type)})
+(def android-device-blacklisted?
+  (and platform/android? (= (:brand (native-module/get-device-model-info)) "bannedbrand")))
 
-(rf/reg-event-fx :biometric/set-supported-type set-supported-type)
+(defn get-label-by-type
+  [biometric-type]
+  (condp = biometric-type
+    constants/biometrics-type-android (i18n/label :t/biometric-fingerprint)
+    constants/biometrics-type-face-id (i18n/label :t/biometric-faceid)
+    (i18n/label :t/biometric-touchid)))
 
-(defn show-message
-  [_ [code]]
-  (let [content (if (#{:biometrics/not-enrolled-error
-                       :biometrics/not-available-error}
+(defn get-icon-by-type
+  [biometric-type]
+  (condp = biometric-type
+    constants/biometrics-type-face-id :i/face-id
+    :i/touch-id))
+
+(re-frame/reg-fx
+ :biometric/get-supported-biometric-type
+ (fn []
+   ;;NOTE: if we can't save user password, we can't use biometric
+   (keychain/can-save-user-password?
+    (fn [can-save?]
+      (when (and can-save? (not android-device-blacklisted?))
+        (-> (biometrics/get-supported-type)
+            (.then (fn [type]
+                     (rf/dispatch [:biometric/get-supported-biometric-type-success type])))))))))
+
+(rf/defn get-supported-biometric-auth-success
+  {:events [:biometric/get-supported-biometric-type-success]}
+  [{:keys [db]} supported-type]
+  {:db (assoc db :biometric/supported-type supported-type)})
+
+(rf/defn show-message
+  {:events [:biometric/show-message]}
+  [_ error]
+  (let [code    (ex-cause error)
+        content (if (#{::biometrics/not-enrolled
+                       ::biometrics/not-available}
                      code)
                   (i18n/label :t/grant-face-id-permissions)
                   (i18n/label :t/biometric-auth-error {:code code}))]
-    {:fx [[:effects.utils/show-popup
-           {:title   (i18n/label :t/biometric-auth-login-error-title)
-            :content content}]]}))
+    {:effects.utils/show-popup
+     {:title   (i18n/label :t/biometric-auth-login-error-title)
+      :content content}}))
 
-(rf/reg-event-fx :biometric/show-message show-message)
 
-(defn on-authentication-done
-  [{:keys [db]}]
-  {:db (assoc-in db [:biometrics :auth-pending?] false)})
+(re-frame/reg-fx
+ :biometric/authenticate
+ (fn [{:keys [on-success on-fail prompt-message]}]
+   (-> (biometrics/authenticate
+        {:prompt-message          (or prompt-message (i18n/label :t/biometric-auth-reason-login))
+         :fallback-prompt-message (i18n/label
+                                   :t/biometric-auth-login-ios-fallback-label)
+         :cancel-button-text      (i18n/label :t/cancel)})
+       (.then (fn [not-canceled?]
+                (when (and on-success not-canceled?)
+                  (on-success))))
+       (.catch (fn [err]
+                 (when on-fail
+                   (on-fail err)))))))
 
-(rf/reg-event-fx :biometric/on-authentication-done on-authentication-done)
+(rf/defn authenticate
+  {:events [:biometric/authenticate]}
+  [_ opts]
+  {:biometric/authenticate opts})
 
-(defn authenticate
-  [{:keys [db]} [opts]]
-  (let [pending? (get-in db [:biometrics :auth-pending?])]
-    ;;NOTE: prompting biometric check while another one is pending triggers error
-    (when-not pending?
-      {:db (assoc-in db [:biometrics :auth-pending?] true)
-       :fx [[:effects.biometric/authenticate
-             (assoc opts :on-done #(rf/dispatch [:biometric/on-authentication-done]))]]})))
+(rf/reg-event-fx
+ :biometric/on-enable-success
+ (fn [{:keys [db]} [password]]
+   (let [key-uid (get-in db [:profile/profile :key-uid])]
+     {:db       (assoc db :auth-method constants/auth-method-biometric)
+      :dispatch [:keychain/save-password-and-auth-method
+                 {:key-uid         key-uid
+                  :masked-password password}]})))
 
-(rf/reg-event-fx :biometric/authenticate authenticate)
+(rf/reg-event-fx
+ :biometric/enable
+ (fn [_ [password]]
+   {:dispatch [:biometric/authenticate
+               {:on-success #(rf/dispatch [:biometric/on-enable-success password])
+                :on-fail    #(rf/dispatch [:biometric/show-message %])}]}))
 
-(defn enable-biometrics
-  [{:keys [db]} [password]]
-  (let [key-uid (get-in db [:profile/profile :key-uid])]
-    {:db (assoc db :auth-method constants/auth-method-biometric)
-     :fx [[:dispatch
-           [:keychain/save-password-and-auth-method
-            {:key-uid         key-uid
-             :masked-password password}]]]}))
-
-(rf/reg-event-fx :biometric/enable enable-biometrics)
-
-(defn disable-biometrics
-  [{:keys [db]}]
-  (let [key-uid (get-in db [:profile/profile :key-uid])]
-    {:db (assoc db :auth-method constants/auth-method-none)
-     :fx [[:keychain/clear-user-password key-uid]]}))
-
-(rf/reg-event-fx :biometric/disable disable-biometrics)
+(rf/reg-event-fx
+ :biometric/disable
+ (fn [{:keys [db]}]
+   (let [key-uid (get-in db [:profile/profile :key-uid])]
+     {:db                           (assoc db :auth-method constants/auth-method-none)
+      :keychain/clear-user-password key-uid})))
 
+(rf/reg-fx
+ :biometric/check-if-available
+ (fn [[key-uid callback]]
+   (keychain/can-save-user-password?
+    (fn [can-save?]
+      (when can-save?
+        (-> (biometrics/get-available)
+            (.then (fn [available?]
+                     (when-not available?
+                       (throw (js/Error. "biometric-not-available")))))
+            (.then #(keychain/get-auth-method! key-uid))
+            (.then (fn [auth-method]
+                     (when auth-method (callback auth-method))))
+            (.catch (fn [err]
+                      (when-not (= (.-message err) "biometric-not-available")
+                        (log/error "Failed to check if biometrics is available"
+                                   {:error   err
+                                    :key-uid key-uid
+                                    :event   :profile.login/check-biometric}))))))))))

src/status_im/common/biometric/events_test.cljs

@@ -1,68 +0,0 @@
-(ns status-im.common.biometric.events-test
-  (:require [cljs.test :refer [deftest is testing]]
-            matcher-combinators.test
-            [status-im.common.biometric.events :as sut]
-            [status-im.constants :as constants]
-            [utils.i18n :as i18n]
-            [utils.security.core :as security]))
-
-(deftest set-supported-biometrics-type-test
-  (testing "successfully setting supported biometrics type"
-    (let [cofx           {:db {}}
-          supported-type constants/biometrics-type-face-id
-          expected       {:db (assoc-in (:db cofx) [:biometrics :supported-type] supported-type)}]
-      (is (match? expected (sut/set-supported-type cofx [supported-type]))))))
-
-(deftest show-message-test
-  (testing "informs the user to enable biometrics from settings"
-    (let [cofx     {:db {}}
-          expected {:fx [[:effects.utils/show-popup
-                          {:title   (i18n/label :t/biometric-auth-login-error-title)
-                           :content (i18n/label :t/grant-face-id-permissions)}]]}]
-      (is (match? expected
-                  (sut/show-message cofx
-                                    [:biometrics/not-available-error])))))
-
-  (testing "shows a generic error message"
-    (let [cofx        {:db {}}
-          error-cause :test-error
-          expected    {:fx [[:effects.utils/show-popup
-                             {:title   (i18n/label :t/biometric-auth-login-error-title)
-                              :content (i18n/label :t/biometric-auth-error {:code error-cause})}]]}]
-      (is (match? expected
-                  (sut/show-message cofx
-                                    [error-cause]))))))
-
-(deftest authenticate-biometrics-test
-  (testing "passing the right args to authenticate"
-    (let [cofx   {:db {}}
-          args   {:on-success     identity
-                  :on-fail        identity
-                  :prompt-message "test"}
-          result (sut/authenticate cofx [args])]
-      (is (= (:prompt-message args) (get-in result [:fx 0 1 :prompt-message])))
-      (is (not (nil? (get-in result [:fx 0 1 :on-success]))))
-      (is (not (nil? (get-in result [:fx 0 1 :on-fail]))))))
-
-  (testing "skips biometric check if another one pending"
-    (let [cofx   {:db {:biometrics {:auth-pending? true}}}
-          result (sut/authenticate cofx [{}])]
-      (is (nil? result)))))
-
-(deftest enable-biometrics-test
-  (testing "successfully enabling biometrics"
-    (let [key-uid     "test-uid"
-          password    (security/mask-data "test-pw")
-          cofx        {:db {:profile/profile {:key-uid key-uid}}}
-          expected-db (assoc (:db cofx) :auth-method constants/auth-method-biometric)
-          result      (sut/enable-biometrics cofx [password])]
-      (is (match? expected-db (:db result)))
-      (is (= password (get-in result [:fx 0 1 1 :masked-password]))))))
-
-(deftest disable-biometrics-test
-  (testing "successfully disabling biometrics"
-    (let [key-uid  "test-uid"
-          cofx     {:db {:profile/profile {:key-uid key-uid}}}
-          expected {:db (assoc (:db cofx) :auth-method constants/auth-method-none)
-                    :fx [[:keychain/clear-user-password key-uid]]}]
-      (is (match? expected (sut/disable-biometrics cofx))))))

src/status_im/common/biometric/utils.cljs

@@ -1,22 +0,0 @@
-(ns status-im.common.biometric.utils
-  (:require
-    [native-module.core :as native-module]
-    [react-native.platform :as platform]
-    [status-im.constants :as constants]
-    [utils.i18n :as i18n]))
-
-(def android-device-blacklisted?
-  (and platform/android? (= (:brand (native-module/get-device-model-info)) "bannedbrand")))
-
-(defn get-label-by-type
-  [biometric-type]
-  (condp = biometric-type
-    constants/biometrics-type-android (i18n/label :t/biometric-fingerprint)
-    constants/biometrics-type-face-id (i18n/label :t/biometric-faceid)
-    (i18n/label :t/biometric-touchid)))
-
-(defn get-icon-by-type
-  [biometric-type]
-  (condp = biometric-type
-    constants/biometrics-type-face-id :i/face-id
-    :i/touch-id))