From a92b387e6331341f676033378cea55057a4ce313 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Mon, 2 Mar 2026 15:17:37 -0700
Subject: [PATCH] refactor: more.

---
 .../net/deertopia/doerg/preview-template.tex     |  2 ++
 doerg/src/net/deertopia/doerg/render.clj         |  5 +----
 doerg/src/net/deertopia/doerg/repl.clj           |  7 +++++--
 doerg/src/net/deertopia/doerg/tex.clj            | 16 +++++++---------
 4 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/doerg/resources/net/deertopia/doerg/preview-template.tex b/doerg/resources/net/deertopia/doerg/preview-template.tex
index 9ecc15a..b250e4b 100644
--- a/doerg/resources/net/deertopia/doerg/preview-template.tex
+++ b/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}
diff --git a/doerg/src/net/deertopia/doerg/render.clj b/doerg/src/net/deertopia/doerg/render.clj
index e415548..8e2eb06 100644
--- a/doerg/src/net/deertopia/doerg/render.clj
+++ b/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
diff --git a/doerg/src/net/deertopia/doerg/repl.clj b/doerg/src/net/deertopia/doerg/repl.clj
index 956fbc5..7da4afa 100644
--- a/doerg/src/net/deertopia/doerg/repl.clj
+++ b/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)
diff --git a/doerg/src/net/deertopia/doerg/tex.clj b/doerg/src/net/deertopia/doerg/tex.clj
index b4d8da7..e72a10f 100644
--- a/doerg/src/net/deertopia/doerg/tex.clj
+++ b/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)
-                 (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))))
+               (->> (if (temml/erroneous-output? temml)
+                      (let [tex (get @rendered-snippets snippet)]
+                        (if (:errors tex)
+                          temml
+                          (read-and-patch-generated-svg tex)))
+                      temml)
+                    hiccup/raw (deliver p)))
              (catch Exception e
                (l/error e "Error in TeX thread")
                (throw e)))))))