Slide Button - on-cancel handler

2024-02-19 14:00:13 +05:30
2 changed files with 6 additions and 4 deletions
@@ -58,15 +58,16 @@

 (re-frame/reg-fx
 :biometric/authenticate
- (fn [{:keys [on-success on-fail prompt-message]}]
+ (fn [{:keys [on-success on-fail prompt-message on-cancel]}]
   (-> (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))))
+                (if not-canceled?
+                  (when on-success (on-success))
+                  (when on-cancel (on-cancel)))))
       (.catch (fn [err]
                 (when on-fail
                   (on-fail err)))))))
@@ -54,7 +54,8 @@
                                                   (when on-auth-fail (on-auth-fail error))
                                                   (password-login {:on-press-biometrics
                                                                    #(on-press-biometrics
-                                                                      on-press-biometrics)}))}]))]
+                                                                      on-press-biometrics)}))
+                                 :on-cancel      #(on-close)}]))]
    (if biometric-auth?
      (-> (biometrics/get-supported-type)
          (.then (fn [biometric-type]