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

render-html repl helper

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-02-02 16:59:23 -07:00
parent 30299ae0b1
commit b7ae1fb178
2 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
doerg/deps.edn
View File

@@ -4,5 +4,6 @@
cheshire/cheshire {:mvn/version "6.1.0"} cheshire/cheshire {:mvn/version "6.1.0"}
babashka/process {:mvn/version "0.6.25"} babashka/process {:mvn/version "0.6.25"}
io.github.msyds/spec-dict io.github.msyds/spec-dict
{:git/sha "531d629b7f05f37232261cf9e8927a4b5915714f"}} {:git/sha "531d629b7f05f37232261cf9e8927a4b5915714f"}
hiccup/hiccup {:mvn/version "2.0.0-RC4"}}
:paths ["src" "resources" "test"]} :paths ["src" "resources" "test"]}

14
doerg/src/net/deertopia/doerg/repl.clj Normal file
View File

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