From 98c0be72e0485b1ff8fa9449edf43651d0e2de7b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Mon, 9 Feb 2026 17:00:08 -0700
Subject: [PATCH] different placeholders for unimplemented elements

---
 doerg/src/net/deertopia/doerg/render.clj | 29 ++++++++++++++++++++++--
 doerg/src/net/deertopia/doerg/repl.clj   |  3 +++
 2 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/doerg/src/net/deertopia/doerg/render.clj b/doerg/src/net/deertopia/doerg/render.clj
index 1ad75c2..f19ffff 100644
--- a/doerg/src/net/deertopia/doerg/render.clj
+++ b/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!"))
 
diff --git a/doerg/src/net/deertopia/doerg/repl.clj b/doerg/src/net/deertopia/doerg/repl.clj
index 072a18f..becbc1f 100644
--- a/doerg/src/net/deertopia/doerg/repl.clj
+++ b/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]