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