From b7ae1fb1782eec37180d7eb87ac69b8d68beeb07 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Mon, 2 Feb 2026 16:59:23 -0700
Subject: [PATCH] render-html repl helper

---
 doerg/deps.edn                         |  3 ++-
 doerg/src/net/deertopia/doerg/repl.clj | 14 ++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)
 create mode 100644 doerg/src/net/deertopia/doerg/repl.clj

diff --git a/doerg/deps.edn b/doerg/deps.edn
index ad4373c..1d8c4ea 100644
--- a/doerg/deps.edn
+++ b/doerg/deps.edn
@@ -4,5 +4,6 @@
         cheshire/cheshire {:mvn/version "6.1.0"}
         babashka/process {:mvn/version "0.6.25"}
         io.github.msyds/spec-dict
-        {:git/sha "531d629b7f05f37232261cf9e8927a4b5915714f"}}
+        {:git/sha "531d629b7f05f37232261cf9e8927a4b5915714f"}
+        hiccup/hiccup {:mvn/version "2.0.0-RC4"}}
  :paths ["src" "resources" "test"]}
diff --git a/doerg/src/net/deertopia/doerg/repl.clj b/doerg/src/net/deertopia/doerg/repl.clj
new file mode 100644
index 0000000..a572a64
--- /dev/null
+++ b/doerg/src/net/deertopia/doerg/repl.clj
@@ -0,0 +1,14 @@
+(ns net.deertopia.doerg.repl
+  (:require [net.deertopia.doerg.element :as element]
+            [net.deertopia.doerg.render :as render]
+            [hiccup2.core :as h]))
+
+(def some-org-file
+  "/home/msyds/org/20251228003307-prerequisite_context_in_korean.org")
+
+(defn render-html [& {:keys [src dest]
+                      :or {src some-org-file
+                           dest "/tmp/t.html"}}]
+  (->> (h/html (-> src
+                   slurp element/read-string render/org-document))
+       str (spit dest)))