From 24f24620d3b12ece37cd0925649b55373ea4936b Mon Sep 17 00:00:00 2001 From: James Brechtel Date: Sat, 20 Jun 2026 17:02:57 -0400 Subject: [PATCH] fix: route / to /index, use cadr for query alist, rename lambda t param --- spine.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/spine.el b/spine.el index cc194d5..f90118d 100644 --- a/spine.el +++ b/spine.el @@ -165,7 +165,7 @@ Returns nil if the file is missing or cannot be parsed." (let ((tags (plist-get book :tags))) (when tags (insert (format "%s\n" - (mapconcat (lambda (t) (concat ":" t ":")) + (mapconcat (lambda (tag) (concat ":" tag ":")) tags " "))))) ;; Recommendation trail (let ((rec-by (plist-get book :rec_by)) @@ -227,13 +227,16 @@ Set by test harnesses that only need the model functions.") ;; --- handlers --------------------------------------------------------- -(defservlet index text/html () +(defservlet index text/html (path query request) (let ((books (spine-books))) (if books - (insert (spine-render-index books - (ht-get (ht-from-query-string (httpd-query-string)) "id"))) + (insert (spine-render-index books (cadr (assoc "id" query)))) (insert (spine-render-empty-state))))) +(defun httpd/ (proc uri-path query request) + "Redirect root to /index." + (httpd-redirect proc "/index" 302)) + ;; --- start ------------------------------------------------------------ (unless spine-skip-server-start (setq httpd-host spine-host)