This commit is contained in:
@@ -37,13 +37,6 @@
|
||||
(def ^:dynamic *save-snippets?* false)
|
||||
|
||||
(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-"}]
|
||||
(let [rendered-snippets
|
||||
(delay (->> snippet-promises
|
||||
@@ -60,7 +53,7 @@
|
||||
hiccup/raw (deliver p)))
|
||||
(catch Exception e
|
||||
(l/error e "Error in TeX thread")
|
||||
(throw e))))))))
|
||||
(throw e)))))))
|
||||
|
||||
(comment
|
||||
(let [snippets (for [x ["\\(\\ifxetex blah \\fi\\)"
|
||||
|
||||
Reference in New Issue
Block a user