fix: open local url

pull/7052/head
Konstantinos Kaloutas 2022-10-19 11:02:02 +03:00 committed by Tienson Qin
parent c3b8c2edfa
commit 87cc0af3db
1 changed files with 3 additions and 4 deletions

View File

@ -112,10 +112,9 @@
[url default-open]
(let [URL (.-URL URL)
parsed-url (try (URL. url) (catch :default _ nil))]
(when parsed-url
(condp contains? (.-protocol parsed-url)
#{"https:" "http:" "mailto:"} (.openExternal shell url)
(default-open url)))))
(if (and parsed-url (contains? #{"https:" "http:" "mailto:"} (.-protocol parsed-url)))
(.openExternal shell url)
(when default-open (default-open url)))))
(defn setup-window-listeners!
[^js win]