From 9d4733413c791c8e4f589a197a0da91dad279740 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 25 Aug 2026 23:02:08 -0700
Subject: Add author page

---
 src/app.phel | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

(limited to 'src/app.phel')

diff --git a/src/app.phel b/src/app.phel
index ac3b94e..8bb61c1 100644
--- a/src/app.phel
+++ b/src/app.phel
@@ -3,14 +3,19 @@
   (:require phel.router :as r)
   (:require phel.http :as h))
 
+(def- router
+  (r/router
+   [["/" {:handler (fn [req]
+                     (routes/index-handler req router))}]
+    ["/ping" {:name ::ping
+              :get {:handler routes/ping-handler}
+              :post {:handler routes/ping-handler}}]
+    ["/book" {:post {:handler routes/book-create-handler}}]
+    ["/author/{id}" {:name :author
+                     :get {:handler routes/author-view-handler}}]]))
+
 (def app
-  (r/handler
-   (r/router
-    [["/" {:handler routes/index-handler}]
-     ["/ping" {:name ::ping
-               :get {:handler routes/ping-handler}
-               :post {:handler routes/ping-handler}}]
-     ["/book" {:post {:handler routes/book-create-handler}}]])))
+  (r/handler router))
 
 (when-not *build-mode*
   (h/emit-response (app (h/request-from-globals))))
-- 
cgit v1.3-2-g0d8e