msyds/net-deertopia
1
0
Fork 0
Code Issues 13 Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-02-26 11:15:05 -07:00
parent e67f62e5b0
commit ee86f0d643
2 changed files with 24 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
doerg/resources/net/deertopia/doerg/tuftesque.css
View File

@@ -542,3 +542,7 @@ figure.fullwidth figcaption {
; max-width: 55% ; max-width: 55%
; font-size: 1.5rem ; font-size: 1.5rem
} }
.latex-fragment
{ fill: currentColor
}

11
doerg/src/net/deertopia/doerg/render.clj
View File

@@ -138,11 +138,11 @@
(swap! promises #(conj % {:promise p :node node})) (swap! promises #(conj % {:promise p :node node}))
(assoc node ::rendered p))))) (assoc node ::rendered p)))))
f (fn [] f (fn []
(fs/with-temp-dir [svg-dir {:prefix "doerg-svg"}]
(let [rendered-snippets (let [rendered-snippets
(delay (->> @promises (delay (->> @promises
(map #(-> % :node :value)) (map #(-> % :node :value))
(apply tex/render-xelatex (apply tex/render-xelatex svg-dir)))]
"/tmp/doerg-test/svg")))]
(def the-rendered-snippets rendered-snippets) (def the-rendered-snippets rendered-snippets)
(doseq [{:keys [promise node]} @promises] (doseq [{:keys [promise node]} @promises]
(try (let [{:keys [value contents]} node (try (let [{:keys [value contents]} node
@@ -151,14 +151,13 @@
(let [{:keys [file]} (get @rendered-snippets value)] (let [{:keys [file]} (get @rendered-snippets value)]
(deliver (deliver
promise promise
[:object.latex-fragment [:div.latex-fragment
{:data (format "svg/%s" (fs/file-name file)) (hiccup/raw (slurp file))]))
:type "image/svg+xml"}]))
(deliver promise (hiccup/raw temml)))) (deliver promise (hiccup/raw temml))))
(catch Exception e (catch Exception e
(prn e) (prn e)
(flush) (flush)
(throw e))))))] (throw e)))))))]
(future-call (bound-fn* f)) (future-call (bound-fn* f))
r)) r))