fix: ????

doerg/src/net/deertopia/doerg/tex.clj

@@ -35,22 +35,23 @@
       (str/replace #"stroke=['\"]#000['\"]" "stroke=\"currentColor\"")))
 
 (defn render-snippets [snippet-promises]
-  (let [rendered-snippets
+  (fs/with-temp-dir [svg-dir {:prefix "doerg-svg-"}]
-        (delay (->> snippet-promises
+    (let [rendered-snippets
-                    (map first)
+          (delay (->> snippet-promises
-                    (apply native/render svg-dir)))]
+                      (map first)
-    (doseq [[snippet p] snippet-promises]
+                      (apply native/render svg-dir)))]
-      (try (let [temml (temml/render snippet)]
+      (doseq [[snippet p] snippet-promises]
-             (->> (if (temml/erroneous-output? temml)
+        (try (let [temml (temml/render snippet)]
-                    (let [tex (get @rendered-snippets snippet)]
+               (->> (if (temml/erroneous-output? temml)
-                      (if (:errors tex)
+                      (let [tex (get @rendered-snippets snippet)]
-                        temml
+                        (if (:errors tex)
-                        (read-and-patch-generated-svg tex)))
+                          temml
-                    temml)
+                          (read-and-patch-generated-svg tex)))
-                  hiccup/raw (deliver p)))
+                      temml)
-           (catch Exception e
+                    hiccup/raw (deliver p)))
-             (l/error e "Error in TeX thread")
+             (catch Exception e
-             (throw e))))))
+               (l/error e "Error in TeX thread")
+               (throw e)))))))
 
 (comment
   (let [snippets (for [x ["\\(\\ifxetex blah \\fi\\)"