feat: tests

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

@@ -156,7 +156,7 @@
   ;;     vertical-align in the style attribute
   ;;   • Viewbox: Must be removed entirely for correct positioning.
   (-> (slurp file)
-      (str/replace-first "<?xml version='1.0' encoding='UTF-8'?>" "")
+      (str/replace-first #"<\?xml version='1.0' encoding='UTF-8'\?>\n?" "")
       (str/replace-first #" height=['\"][^\"']+[\"']" "")
       (str/replace-first #" width=['\"][^\"']+[\"']" "")
       (str/replace-first
@@ -167,7 +167,10 @@
                  (format "height:%.4fem;vertical-align:%.4fem;display:inline-block"
                          height (- depth)))))))
 
-(defn- render-tex-snippets [doc]
+(defn render-tex-snippets
+  "Traverse doc, adorning each LaTeX node with a promise resolving to,
+  optimistically, Hiccup-rendered SVG or MathML code."
+  [doc]
   (let [promises (atom [])
         r (->> doc (sp/transform
                     [element/postorder-walker
@@ -196,13 +199,20 @@
                                     (deliver promise))))
                            (deliver promise (hiccup/raw temml))))
                        (catch Exception e
-                         (prn e)
-                         (flush)
+                         (lr/error e)
                          (throw e))))
                 (when (fs/exists? "/tmp/doerg-svgs")
                   (fs/delete-tree "/tmp/doerg-svgs"))
-                (fs/copy-tree svg-dir "/tmp/doerg-svgs"))))]
-    (future-call (bound-fn* f))
+                (fs/copy-tree svg-dir "/tmp/doerg-svgs"))))
+        fut (future-call (bound-fn* f))]
+    ;; 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)]
+      (if (= fut-res ::timed-out)
+        (do (future-cancel fut)
+            (doseq [{:keys [promise]} @promises]
+              (deliver promise ::timed-out)))
+        fut-res))
     r))
 
 (comment
@@ -352,11 +362,11 @@
 
 (defmethod org-element "latex-fragment" [{:keys [contents value] :as e}]
   [:span.latex-fragment
-   (-> e ::rendered (deref #_#_ 2000 "«timed out»"))])
+   (-> e ::rendered deref)])
 
 (defmethod org-element "latex-environment" [{:keys [value] :as e}]
   [:span.latex-fragment
-   (-> e ::rendered (deref #_#_ 2000 "«timed out»"))])
+   (-> e ::rendered deref)])
 
 (defmethod org-element "example-block" [{:keys [value]}]
   [:pre value])

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

@@ -18,7 +18,7 @@
   "/home/msyds/org/20250512144715-natural_transformation_category_theory.org"
   #_
   "/home/msyds/org/20251021155921-path_action.org"
-  "test/net/deertopia/doerg/tex-test.org")
+  "test/net/deertopia/doerg/render_test/fallbacks.org")
 
 (defn- force-create-sym-link [path target]
   (fs/delete-if-exists path)