feat: add new intro page

Author: J-Son89

resources/images/ui2/[email protected] resources/images/ui2/[email protected]resources/images/ui2/[email protected] renamed to resources/images/ui2/[email protected]

@@ -4,22 +4,24 @@
 (def outer-container {:height 216})
 
 (def top-card
-  {:flex               1
-   :padding-vertical   12
-   :padding-horizontal 20
-   :border-radius      20
-   :background-color   colors/neutral-80})
+  {:flex                    1
+   :padding-vertical        12
+   :padding-horizontal      20
+   :border-top-left-radius  20
+   :border-top-right-radius 20
+   :background-color        colors/neutral-80})
 
 (def bottom-card
-  {:position           :absolute
-   :top                80
-   :left               0
-   :right              0
-   :bottom             0
-   :padding-vertical   12
-   :padding-horizontal 20
-   :border-radius      20
-   :background-color   (colors/alpha colors/white 0.05)})
+  {:position                :absolute
+   :top                     80
+   :left                    0
+   :right                   0
+   :bottom                  0
+   :padding-vertical        12
+   :padding-horizontal      20
+   :border-top-left-radius  20
+   :border-top-right-radius 20
+   :background-color        (colors/alpha colors/white 0.05)})
 
 (def bottom-container
   {:flex-direction  :row

resources/images/ui2/welcome-1.png resources/images/ui2/[email protected]resources/images/ui2/welcome-1.png renamed to resources/images/ui2/[email protected]

@@ -39,13 +39,14 @@
     children))
 
 (defn card
-  [{:keys [on-press style heading gap top?]} children]
+  [{:keys [on-press style heading gap accessibility-label top?]} children]
   [rn/touchable-highlight
-   {:on-press       on-press
-    :border-radius  20
-    :style          style
-    :underlay-color (:background-color style)}
-   [rn/view {}
+   {:accessibility-label accessibility-label
+    :on-press            on-press
+    :border-radius       20
+    :style               style
+    :underlay-color      (:background-color style)}
+   [rn/view
     [text/text
      {:size   :heading-1
       :style  (style/heading-text gap)
@@ -60,9 +61,11 @@
    opts
    {:container-style  style-object
     :top-card         { :on-press event
-                        :heading  string}
+                        :heading  string
+                        :accessibility-label keyword}
     :bottom-card      { :on-press event
-                        :heading  string}}
+                        :heading  string
+                        :accessibility-label keyword}}
     child-1           string, keyword or hiccup
     child-2           string, keyword or hiccup
    "