diff --git a/src/net/deertopia/doerg/render.clj b/src/net/deertopia/doerg/render.clj index 4a6b73e..ee38c0e 100644 --- a/src/net/deertopia/doerg/render.clj +++ b/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 diff --git a/src/net/deertopia/doerg/server.clj b/src/net/deertopia/doerg/server.clj index 03c4fcd..8a230f0 100644 --- a/src/net/deertopia/doerg/server.clj +++ b/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")))