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

@@ -196,13 +196,20 @@
                                     (deliver promise))))
                            (deliver promise (hiccup/raw temml))))
                        (catch Exception e
-                         (prn e)
+                         (lr/error e)
-                         (flush)
                          (throw e))))
                 (when (fs/exists? "/tmp/doerg-svgs")
                   (fs/delete-tree "/tmp/doerg-svgs"))
-                (fs/copy-tree svg-dir "/tmp/doerg-svgs"))))]
+                (fs/copy-tree svg-dir "/tmp/doerg-svgs"))))
-    (future-call (bound-fn* f))
+        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 +359,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/test/net/deertopia/doerg/render_test.clj

@@ -1,2 +1,6 @@
 (ns net.deertopia.doerg.render-test
-  (:require [net.deertopia.doerg.render :as sut]))
+  (:require [net.deertopia.doerg.render :as sut]
+            [com.rpl.specter :as sp]
+            [clojure.test :as t]))
+
+(defn )