close #3186 close #3235
@@ -887,7 +887,7 @@
(not (string/includes? s "."))
(page-reference (:html-export? config) s config label)
- (util/safe-re-find #"(?i)^http[s]?://" s)
+ (util/url? s)
(->elem :a {:href s
:data-href s
:target "_blank"}
@@ -1453,3 +1453,13 @@
button (gobj/get e "button")]
(or (= which 3)
(= button 2)))))
+
+#?(:cljs
+ (defn url?
+ [s]
+ (and (string? s)
+ (try
+ (js/URL. s)
+ true
+ (catch js/Error _e
+ false)))))