fix(pdf): invalid external win for the pdf viewer

This commit is contained in:
charlie
2024-10-18 14:13:31 +08:00
parent 14c0a8314c
commit 8c266d5293

View File

@@ -9,11 +9,14 @@
(defn resolve-styles!
[^js doc]
(doseq [r ["./css/style.css"]]
(let [^js link (js/document.createElement "link")]
(set! (.-rel link) "stylesheet")
(set! (.-href link) r)
(.appendChild (.-head doc) link))))
(when-let [styles (keep #(when (some-> % (.-href) (.endsWith "style.css"))
(.-href %))
(seq js/document.styleSheets))]
(doseq [r styles]
(let [^js link (js/document.createElement "link")]
(set! (.-rel link) "stylesheet")
(set! (.-href link) r)
(.appendChild (.-head doc) link)))))
(defn resolve-own-document
[^js viewer]