feat: node title

src/net/deertopia/doerg/render.clj

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

src/net/deertopia/doerg/server.clj

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