render exceptions

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

@@ -1,5 +1,6 @@
 (ns net.deertopia.doerg.render
   (:require [net.deertopia.doerg.element :as element]
+            [clojure.stacktrace]
             [clojure.tools.logging :as l]
             [clojure.tools.logging.readable :as lr]
             [net.deertopia.doerg.html :as doerg-html]
@@ -71,4 +72,15 @@
 (defn- renderer-error
   "Render a `Throwable` to display within the document."
   [e]
-  "aaaa an error!")
+  [:details
+   [:summary "Renderer error!"]
+   [:div
+    [:samp {:style {:overflow "scroll"
+                    :display "block"
+                    :white-space "pre"}}
+     (with-out-str
+       (clojure.stacktrace/print-stack-trace e))]]])
+
+(defmethod org-element "org-data"
+  [{:keys [children]}]
+  children)