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)
-                 (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)))))))

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

@@ -55,15 +55,18 @@
   (command-worker [s]))
 
 (defn render [s]
-  (if-let [[_ inner] (re-matches #"(?s)\\[(.*)\\]" s)]
-    (render-display inner)
-    (if (re-matches #"(?s)\\begin\{.+?}(.*?)\\end\{.+?}" s)
-      (render-display s)
-      (if-let [[_ inner] (re-matches #"(?s)\\\((.*)\\\)" s)]
-        (render-inline inner)
-        (throw (IllegalArgumentException.
-                (str "`net.deertopia.doerg.tex.temml` argument should"
-                     " be enclosed in math delimiters.")))))))
+  (let [s (str/trim s)]
+    (if-let [[_ inner] (re-matches #"(?s)\\\[(.*)\\]" s)]
+      (render-display inner)
+      (if (re-matches #"(?s)\\begin\{.+?}(.*?)\\end\{.+?}" s)
+        (render-display s)
+        (if-let [[_ inner] (re-matches #"(?s)\\\((.*)\\\)" s)]
+          (render-inline inner)
+          (throw (IllegalArgumentException.
+                  (ex-info
+                   (str "`net.deertopia.doerg.tex.temml` argument should"
+                        " be enclosed in math delimiters.")
+                   {:arg s}))))))))
 
 ;; hackky....
 (defn erroneous-output? [s]