refactor: more.

doerg/resources/net/deertopia/doerg/preview-template.tex

@@ -4,6 +4,8 @@
 \usepackage{fontspec}
 \usepackage{ifxetex}
 \usepackage{syd-plex}
+\usepackage{quiver}
+\usepackage{tikz-cd}
 
 \begin{document}
 \setlength\abovedisplayskip{0pt}

doerg/src/net/deertopia/doerg/render.clj

@@ -143,7 +143,7 @@
          #(element/of-keyword-type? % "LATEX_HEADER")
          (sp/view :value)])))
 
-(defn timeout-snippet-promises [snippet-promises fut]
+(defn- timeout-snippet-promises [snippet-promises fut]
   ;; Time out after eight seconds. With all the LaTeX and IPC, there
   ;; are so many opportunities for things to go wrong </3.
   (let [fut-res (deref fut (* 10 1000) ::timed-out)]
@@ -172,9 +172,6 @@
     (timeout-snippet-promises sp fut)
     r))
 
-(comment
- (render-tex-snippets doc))
-
 
 
 (defn- render-pprint

doerg/src/net/deertopia/doerg/repl.clj

@@ -14,11 +14,14 @@
   "/home/msyds/org/20250919114912-homepage.org"
   #_
   "/home/msyds/org/20251111182118-path_induction.org"
-  #_
+  ;; #_
   "/home/msyds/org/20250512144715-natural_transformation_category_theory.org"
   #_
   "/home/msyds/org/20251021155921-path_action.org"
-  "test/net/deertopia/doerg/render_test/fallbacks.org")
+  #_
+  "test/net/deertopia/doerg/render_test/fallbacks.org"
+  #_
+  "/home/msyds/org/20250910115311-men_who_would_make_stunning_dykes.org")
 
 (defn- force-create-sym-link [path target]
   (fs/delete-if-exists path)

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

@@ -38,15 +38,13 @@
                       (apply native/render svg-dir)))]
       (doseq [[snippet p] snippet-promises]
         (try (let [temml (temml/render snippet)]
-               (if (temml/erroneous-output? temml)
+               (->> (if (temml/erroneous-output? temml)
                       (let [tex (get @rendered-snippets snippet)]
                         (if (:errors tex)
-                     (deliver p (hiccup/raw temml))
-                     (->> tex
-                          read-and-patch-generated-svg
-                          hiccup/raw
-                          (deliver p))))
-                 (deliver p (hiccup/raw temml))))
+                          temml
+                          (read-and-patch-generated-svg tex)))
+                      temml)
+                    hiccup/raw (deliver p)))
              (catch Exception e
                (l/error e "Error in TeX thread")
                (throw e)))))))