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

fix: remove debug code
All checks were successful
build / build (push) Successful in 39s
Details

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-03-05 15:11:19 -07:00
parent e5b47898a5
commit fd9322740d
1 changed files with 17 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
doerg/src/net/deertopia/doerg/tex.clj
View File

@@ -37,30 +37,23 @@
(def ^:dynamic *save-snippets?* false) (def ^:dynamic *save-snippets?* false)
(defn render-snippets [snippet-promises] (defn render-snippets [snippet-promises]
(with-redefs [fs/delete-tree (fs/with-temp-dir [svg-dir {:prefix "doerg-svg-"}]
(fn (let [rendered-snippets
([path] (delay (->> snippet-promises
(l/warnf "refusing to delete %s" path)) (map first)
([path opts] (apply native/render svg-dir)))]
(lr/warnf "refusing to delete %s with opts %s" (doseq [[snippet p] snippet-promises]
path opts)))] (try (let [temml (temml/render snippet)]
(fs/with-temp-dir [svg-dir {:prefix "doerg-svg-"}] (->> (if (temml/erroneous-output? temml)
(let [rendered-snippets (let [tex (get @rendered-snippets snippet)]
(delay (->> snippet-promises (if (:errors tex)
(map first) temml
(apply native/render svg-dir)))] (read-and-patch-generated-svg tex)))
(doseq [[snippet p] snippet-promises] temml)
(try (let [temml (temml/render snippet)] hiccup/raw (deliver p)))
(->> (if (temml/erroneous-output? temml) (catch Exception e
(let [tex (get @rendered-snippets snippet)] (l/error e "Error in TeX thread")
(if (:errors tex) (throw e)))))))
temml
(read-and-patch-generated-svg tex)))
temml)
hiccup/raw (deliver p)))
(catch Exception e
(l/error e "Error in TeX thread")
(throw e))))))))
(comment (comment
(let [snippets (for [x ["\\(\\ifxetex blah \\fi\\)" (let [snippets (for [x ["\\(\\ifxetex blah \\fi\\)"