msyds/net-deertopia
1
0
Fork 0
Code Issues 13 Pull Requests Actions Packages Projects Releases Wiki Activity

render exceptions

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-02-04 11:21:01 -07:00
parent 5dce0a143a
commit 8f0de99443
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
doerg/src/net/deertopia/doerg/render.clj
View File

@@ -1,5 +1,6 @@
(ns net.deertopia.doerg.render (ns net.deertopia.doerg.render
(:require [net.deertopia.doerg.element :as element] (:require [net.deertopia.doerg.element :as element]
[clojure.stacktrace]
[clojure.tools.logging :as l] [clojure.tools.logging :as l]
[clojure.tools.logging.readable :as lr] [clojure.tools.logging.readable :as lr]
[net.deertopia.doerg.html :as doerg-html] [net.deertopia.doerg.html :as doerg-html]
@@ -71,4 +72,15 @@
(defn- renderer-error (defn- renderer-error
"Render a `Throwable` to display within the document." "Render a `Throwable` to display within the document."
[e] [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)