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

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

@@ -37,13 +37,6 @@
(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
(fn
([path]
(l/warnf "refusing to delete %s" path))
([path opts]
(lr/warnf "refusing to delete %s with opts %s"
path opts)))]
(fs/with-temp-dir [svg-dir {:prefix "doerg-svg-"}] (fs/with-temp-dir [svg-dir {:prefix "doerg-svg-"}]
(let [rendered-snippets (let [rendered-snippets
(delay (->> snippet-promises (delay (->> snippet-promises
@@ -60,7 +53,7 @@
hiccup/raw (deliver p))) hiccup/raw (deliver p)))
(catch Exception e (catch Exception e
(l/error e "Error in TeX thread") (l/error e "Error in TeX thread")
(throw e)))))))) (throw e)))))))
(comment (comment
(let [snippets (for [x ["\\(\\ifxetex blah \\fi\\)" (let [snippets (for [x ["\\(\\ifxetex blah \\fi\\)"