feat: navbar

src/net/deertopia/doerg/render.clj

@@ -63,7 +63,7 @@
 
 (defn org-document
   "Recursively render an Org-mode document to Hiccup."
-  [doc & {:as opts :keys [postamble]}]
+  [doc & {:as opts :keys [postamble header]}]
   (binding [*opts* opts]
     (tex-temml/binding-worker
       (let [rendered (-> doc gather-footnotes render-tex-snippets
@@ -73,6 +73,8 @@
           [:title "org document"]
           doerg-html/head]
          [:body {:lang default-language}
+          (when header
+            [:header header])
           [:article
            rendered
            (when postamble
@@ -273,6 +275,9 @@
 (defmethod org-element "bold" [{:keys [children]}]
   [:b children])
 
+(defmethod org-element "strike-through" [{:keys [children]}]
+  [:s children])
+
 (defmethod org-element "subscript" [{:keys [children]}]
   [:sub children])