fix: hide the pin sheet before showing the connection sheet

This commit is contained in:
Cristian Lungu 2024-11-22 14:45:20 +02:00
parent 41734778cb
commit f8908c2006
No known key found for this signature in database
GPG Key ID: FBF86D630661E2CE
1 changed files with 17 additions and 13 deletions

View File

@ -27,14 +27,16 @@
(fn [{:keys [db]} [{:keys [keycard-pin sign-data on-success on-fail]}]]
(let [address (get-in db [:wallet-connect/current-request :address])
{:keys [path key-uid]} (get-in db [:wallet :accounts address])]
{:fx [[:dispatch
[:keycard/sign-hash
{:key-uid key-uid
:pin keycard-pin
:path path
:hash (hex/normalize-hex sign-data)
:on-success on-success
:on-failure on-fail}]]]})))
;; NOTE: give time to the keycard-pin sheet to hide before showing the next one
{:fx [[:dispatch-later
{:ms 300
:dispatch [:keycard/sign-hash
{:key-uid key-uid
:pin keycard-pin
:path path
:hash (hex/normalize-hex sign-data)
:on-success on-success
:on-failure on-fail}]}]]})))
(rf/reg-event-fx
:wallet-connect/authorized-signing
@ -48,11 +50,13 @@
(if keycard-sign?
{:fx [[:dispatch
[:standard-auth/authorize-with-keycard
{:on-complete #(rf/dispatch [:wallet-connect/sign-message-with-keycard
{:keycard-pin %
:sign-data sign-data
:on-success on-success
:on-fail on-fail}])}]]]}
{:on-complete (fn [pin]
(rf/dispatch [:hide-bottom-sheet])
(rf/dispatch [:wallet-connect/sign-message-with-keycard
{:keycard-pin pin
:sign-data sign-data
:on-success on-success
:on-fail on-fail}]))}]]]}
{:fx [[:effects.wallet/sign-message
{:message sign-data
:address address