addressing changes

status-im · Apr 27, 2023 · ddbe0e0 · ddbe0e0
1 parent 5c45bcd
commit ddbe0e0
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 18 deletions.
diff --git a/src/status_im2/contexts/quo_preview/share/qr_code.cljs b/src/status_im2/contexts/quo_preview/share/qr_code.cljs
@@ -21,8 +21,7 @@
               {:key   :quart
                :value "Quart"}
               {:key   :highest
-               :value "Highest"}]}
-  ])
+               :value "Highest"}]}])
 
 (defn cool-preview
   []
@@ -46,12 +45,14 @@
                   :flex-direction   :row
                   :justify-content  :center}}
          [rn/view
-          [rn/text {:style {:padding 20 :flex-shrink 1}} "Media server url -> " @media-server-uri]
           [quo/qr-code
            {:source {:uri @media-server-uri}
             :height 250
             :width  250}]
-         ]]]])))
+
+          [rn/view
+           [rn/text {:style {:padding 20 :flex-shrink 1}} "Media server url -> "
+            @media-server-uri]]]]]])))
 
 (defn preview-qr-code
   []
@@ -63,5 +64,4 @@
     {:flex                         1
      :keyboard-should-persist-taps :always
      :header                       [cool-preview]
-     :key-fn                       str}]
-  ])
+     :key-fn                       str}]])
diff --git a/src/utils/image_server.cljs b/src/utils/image_server.cljs
@@ -16,6 +16,15 @@
     :light 1
     :dark  2))
 
+(defn correction-level->index
+  [level]
+  (case (keyword level)
+    :low     1
+    :medium  2
+    :quart   3
+    :highest 4
+    4))
+
 (defn get-identicons-uri
   [port public-key theme]
   (str image-server-uri-prefix
@@ -66,7 +75,7 @@
   (let [profile-qr-url         (str status-profile-base-url public-key)
         base-64-qr-url         (js/btoa profile-qr-url)
         profile-image-type     "large"
-        error-correction-level 4
+        error-correction-level (correction-level->index :highest)
         superimpose-profile?   true
         media-server-url       (str image-server-uri-prefix
                                     port
@@ -85,20 +94,10 @@
                                     profile-image-type)]
     media-server-url))
 
-;for an input string label of error correction level
-;this fn must return the appropriate corresponding index #
-(defn get-error-correction-index-for-level
-  [level]
-  (case level
-    :low     1
-    :medium  2
-    :quart   3
-    :highest 4))
-
 (defn get-qr-image-uri-for-any-url
   [{:keys [url port qr-size error-level]}]
   (let [qr-url-base64          (js/btoa url)
-        error-correction-level (get-error-correction-index-for-level error-level)
+        error-correction-level (correction-level->index error-level)
         superimpose-profile?   false
         media-server-url       (str image-server-uri-prefix
                                     port