different placeholders for unimplemented elements

doerg/src/net/deertopia/doerg/render.clj

@@ -201,6 +201,12 @@
 (defmethod org-element "bold" [{:keys [children]}]
   [:b children])
 
+(defmethod org-element "italic" [{:keys [children]}]
+  [:em children])
+
+(defmethod org-element "verbatim" [{:keys [value]}]
+  value)
+
 (defmethod org-element "code" [{:keys [value]}]
   [:code value])
 
@@ -247,8 +253,21 @@
 (defmethod org-element "node-property" [{:keys [key value]}]
   [:tr [:th key] [:td value]])
 
-(defmethod org-element "citation" [{:keys [prefix suffix children]}]
-  [:div prefix children suffix])
+(defmethod org-element "citation" [{:keys [prefix suffix children] :as e}]
+  ;; TODO: Real citations.
+  [:span "[cite:" prefix children suffix "]"])
+
+(defmethod org-element "citation-reference" [{:keys [key]}]
+  (str "@" key))
+
+(defmethod org-element "latex-fragment" [{:keys [value]}]
+  [:span.latex-fragment value])
+
+(defmethod org-element "example-block" [{:keys [value]}]
+  [:pre value])
+
+(defmethod org-element "src-block" [{:keys [value]}]
+  [:pre [:code value]])
 
 (defmethod org-keyword "TITLE" [{:keys [value]}]
   [:h1 value])
@@ -256,6 +275,12 @@
 ;; Completely ignore the LATEX_COMPILER keyword.
 (defmethod org-keyword "LATEX_COMPILER" [_] nil)
 
+;; TODO: Real LatEx support.
+(defmethod org-keyword "LATEX_HEADER" [_] nil)
+
+;; Not sure how to deal with this one yet.
+(defmethod org-keyword "AUTHOR" [_] nil)
+
 (defmethod org-element :default [x]
   (render-pprint x :text "unimplemented!"))
 

doerg/src/net/deertopia/doerg/repl.clj

@@ -10,6 +10,9 @@
 (def some-org-file
   #_
   "/home/msyds/org/20251228003307-prerequisite_context_in_korean.org"
+  #_
+  "/home/msyds/org/20250919114912-homepage.org"
+  ;; #_
   "/home/msyds/org/20251111182118-path_induction.org")
 
 (defn- force-create-sym-link [path target]