render-html repl helper

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"]}

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)))