modify disclaimer component to improve tap ux

Author: siddarthkay

src/quo2/components/selectors/disclaimer/view.cljs

@@ -2,18 +2,21 @@
   (:require [quo2.components.markdown.text :as text]
             [quo2.components.selectors.disclaimer.style :as style]
             [quo2.components.selectors.selectors.view :as selectors]
-            [react-native.core :as rn]))
+            [react-native.core :as rn]
+            [reagent.core :as reagent]))
 
 (defn view
-  [{:keys [checked? blur? on-change accessibility-label container-style]} label]
-  [rn/view
-   {:style (merge container-style (style/container blur?))}
-   [selectors/checkbox
-    {:accessibility-label accessibility-label
-     :blur?               blur?
-     :checked?            checked?
-     :on-change           on-change}]
-   [text/text
-    {:size  :paragraph-2
-     :style style/text}
-    label]])
+  [{:keys [blur? accessibility-label container-style]} label]
+  (let [checked? (reagent/atom false)]
+    (fn []
+      [rn/touchable-opacity {:on-press #(swap! checked? not)}
+       [rn/view {:style (merge container-style (style/container blur?))}
+        [selectors/checkbox
+         {:accessibility-label accessibility-label
+          :blur?               blur?
+          :checked?            @checked?
+          :on-change           #(swap! checked? not)}]
+        [text/text
+         {:size  :paragraph-2
+          :style style/text}
+         label]]])))

src/status_im2/contexts/onboarding/create_password/view.cljs

@@ -164,12 +164,10 @@
 
          [rn/view {:style style/bottom-part}
           [rn/view {:style style/disclaimer-container}
-           [rn/touchable-opacity {:on-press #(swap! accepts-disclaimer? not)}
-            [quo/disclaimer
-             {:blur?     true
-              :on-change #(reset! accepts-disclaimer? %)
-              :checked?  @accepts-disclaimer?}
-             (i18n/label :t/password-creation-disclaimer)]]]
+           [quo/disclaimer
+            {:blur?    true
+             :checked? @accepts-disclaimer?}
+            (i18n/label :t/password-creation-disclaimer)]]
 
           (when (= @focused-input :password)
             [help