From 24fc3ae9367fab7468cd3600cc4c3f61ad9506f6 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 9 Sep 2026 23:09:18 -0700
Subject: view/book: Show some info about the book

---
 src/controller/routes.phel | 16 ++++++++++++++--
 src/view/book.phel         | 13 ++++++++++++-
 2 files changed, 26 insertions(+), 3 deletions(-)

diff --git a/src/controller/routes.phel b/src/controller/routes.phel
index 6e825fe..d891ec4 100644
--- a/src/controller/routes.phel
+++ b/src/controller/routes.phel
@@ -26,6 +26,15 @@
         (pdo/execute params)
         (pdo/fetch-all))))
 
+(defn- get-sessions-by-book [book]
+  (let [[query params] (sql/format
+                        {:select [:*]
+                         :from [:books_sessions]
+                         :where [:= :book_id (:id book)]})]
+    (-> (pdo/prepare conn query)
+        (pdo/execute params)
+        (pdo/fetch-all))))
+
 (defn- create-book [fields]
   (pdo/insert conn :books fields))
 
@@ -90,9 +99,12 @@
                           :body (index-html books router)})))
 
 (defn book-view-handler [request]
-  (let [id (get-in request [:attributes :match :path-params :id])]
+  (let [id (get-in request [:attributes :match :path-params :id])
+        book (get-book-by-id id)]
     (h/response-from-map {:status 200
-                          :body (book-html (get-book-by-id id))})))
+                          :body (book-html (conj book
+                                                 {:authors (get-authors-by-book book)
+                                                  :sessions (get-sessions-by-book book)}))})))
 
 (defn book-create-handler [request]
   (let [title (get-in request [:parsed-body "title"])
diff --git a/src/view/book.phel b/src/view/book.phel
index 79341ad..802c46f 100644
--- a/src/view/book.phel
+++ b/src/view/book.phel
@@ -8,4 +8,15 @@
     [:head
      [:title (str "Book: " (:title book) " - Lezer")]]
     [:body
-     [:h1 (:title book)]]]))
+     [:h1 (:title book)]
+     [:h2 "Authors"]
+     [:ul
+      (for [author :in (:authors book)]
+        [:li (:name author)])]
+     [:h2 "Sessions"]
+     [:ul
+      (for [session :in (:sessions book)]
+        [:li
+         (:status session)
+         ": "
+         (:started_at session)])]]]))
-- 
cgit v1.3-2-g0d8e