render-html repl helper

2026-02-02 16:59:23 -07:00
parent 30299ae0b1
commit b7ae1fb178
2 changed files with 16 additions and 1 deletions
--- a/doerg/src/net/deertopia/doerg/repl.clj
+++ 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)))