diff --git a/doerg/src/net/deertopia/doerg/render.clj b/doerg/src/net/deertopia/doerg/render.clj index b90258e..0ab6f81 100644 --- a/doerg/src/net/deertopia/doerg/render.clj +++ b/doerg/src/net/deertopia/doerg/render.clj @@ -196,13 +196,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 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]) diff --git a/doerg/test/net/deertopia/doerg/render_test.clj b/doerg/test/net/deertopia/doerg/render_test.clj index ab6df2d..14a186e 100644 --- a/doerg/test/net/deertopia/doerg/render_test.clj +++ b/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 )