feat: wire up / index handler replacing /hello

2026-06-20 16:59:19 -04:00
parent 94c310a0b3
commit 794ef3ffc9
1 changed files with 6 additions and 4 deletions
@@ -227,10 +227,12 @@ Set by test harnesses that only need the model functions.")

 ;; --- handlers ---------------------------------------------------------

-(defservlet hello text/html ()
-  (insert (spine-render "hello.mustache"
-            (ht ("title"   "Spine")
-                ("message" "Hello from Emacs.")))))
+(defservlet index text/html ()
+  (let ((books (spine-books)))
+    (if books
+        (insert (spine-render-index books
+                  (ht-get (ht-from-query-string (httpd-query-string)) "id")))
+      (insert (spine-render-empty-state)))))

 ;; --- start ------------------------------------------------------------
 (unless spine-skip-server-start