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

feat: node title

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-04-18 16:55:10 -06:00
parent 5472d93cff
commit 32a45b3a16
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/net/deertopia/doerg/render.clj
View File

@@ -63,14 +63,15 @@
(defn org-document (defn org-document
"Recursively render an Org-mode document to Hiccup." "Recursively render an Org-mode document to Hiccup."
[doc & {:as opts :keys [postamble header]}] [doc & {:as opts :keys [postamble header title]}]
(binding [*opts* opts] (binding [*opts* opts]
(tex-temml/binding-worker (tex-temml/binding-worker
(let [rendered (-> doc gather-footnotes render-tex-snippets (let [rendered (-> doc gather-footnotes render-tex-snippets
org-element-recursive)] org-element-recursive)]
[:html [:html
[:head [:head
[:title "org document"] (when title
[:title title])
doerg-html/head] doerg-html/head]
[:body {:lang default-language} [:body {:lang default-language}
(when header (when header

3
src/net/deertopia/doerg/server.clj
View File

@@ -111,7 +111,8 @@
:compute #(doerg-render/to-html :compute #(doerg-render/to-html
org-file org-file
:postamble (backlinks-postamble node) :postamble (backlinks-postamble node)
:header navbar)) :header navbar
:title (roam/title node)))
(-> (str html-file) (-> (str html-file)
response/file-response response/file-response
(response/content-type "text/html"))) (response/content-type "text/html")))