Add media log

1 files changed, 19 insertions, 3 deletions

diff --git a/home/src/pages.clj b/home/src/pages.clj
index 6515f34..b2f773b 100644
--- a/home/src/pages.clj
+++ b/home/src/pages.clj
@@ -7,6 +7,7 @@
 
 (def home-uri "/")
 (def media-queue-uri "/media-queue")
+(def media-log-uri "/media-log")
 (def books-2026-uri "/books-2026")
 (def books-2025-uri "/books-2025")
 (def films-2025-uri "/films-2025")
@@ -26,7 +27,8 @@
        (fn [[uri name]]
          (html
           [:li [:a {:href (str uri)} name]]))
-       [[media-queue-uri "My media queue"]
+       [[media-log-uri "My media log"]
+        [media-queue-uri "My media queue"]
         [books-2026-uri "Favorite reads of 2026"]
         [books-2025-uri "Favorite reads of 2025"]
         [films-2025-uri "Films I enjoyed in 2025"]
@@ -83,8 +85,21 @@
      [:ul
       [:li "Introduction to Algorithms (Thomas H. Cormen, Charles E. Leiserson, Ronald L. Rivest, and Clifford Stein)"]
       [:li
-       [:a {:href "https://www.youtube.com/watch?v=jdn617M3-P4"}
-        "Exotic Functional Data Structures: Hitchhiker Trees by David Greenberg (YouTube)"]]]])))
+       [:s
+        [:a {:href "https://www.youtube.com/watch?v=jdn617M3-P4"}
+         "Exotic Functional Data Structures: Hitchhiker Trees by David Greenberg (YouTube)"]]]]])))
+
+(defn media-log
+  []
+  (page
+   (html
+    [:<>
+     [:h1 "My media log"]
+     [:section
+      [:h2 "Exotic Functional Data Structures: Hitchhiker Trees by David Greenberg (YouTube)"]
+      [:a {:href "https://www.youtube.com/watch?v=jdn617M3-P4"} "URL"]
+      [:p "Focused on the implementation of the Hitchhiker Tree data structure. I was hoping
+to learn a bit more about how Greenberg had been using Hitchhiker Trees."]]])))
 
 (defn past-work
   []
@@ -112,6 +127,7 @@
 (defn pages []
   {home-uri home
    media-queue-uri media-queue
+   media-log-uri media-log
    books-2026-uri books-2026
    books-2025-uri books-2025
    films-2025-uri films-2025