jbrechtel/spine
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: route / to /index, use cadr for query alist, rename lambda t param

Browse Source
This commit is contained in:
James Brechtel
2026-06-20 17:02:57 -04:00
parent 794ef3ffc9
commit 24f24620d3
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
spine.el
+7 -4
View File
@@ -165,7 +165,7 @@ Returns nil if the file is missing or cannot be parsed."
(let ((tags (plist-get book :tags))) (let ((tags (plist-get book :tags)))
(when tags (when tags
(insert (format "<span class=\"tags\">%s</span>\n" (insert (format "<span class=\"tags\">%s</span>\n"
(mapconcat (lambda (t) (concat ":" t ":")) (mapconcat (lambda (tag) (concat ":" tag ":"))
tags " "))))) tags " ")))))
;; Recommendation trail ;; Recommendation trail
(let ((rec-by (plist-get book :rec_by)) (let ((rec-by (plist-get book :rec_by))
@@ -227,13 +227,16 @@ Set by test harnesses that only need the model functions.")
;; --- handlers --------------------------------------------------------- ;; --- handlers ---------------------------------------------------------
(defservlet index text/html () (defservlet index text/html (path query request)
(let ((books (spine-books))) (let ((books (spine-books)))
(if books (if books
(insert (spine-render-index books (insert (spine-render-index books (cadr (assoc "id" query))))
(ht-get (ht-from-query-string (httpd-query-string)) "id")))
(insert (spine-render-empty-state))))) (insert (spine-render-empty-state)))))
(defun httpd/ (proc uri-path query request)
"Redirect root to /index."
(httpd-redirect proc "/index" 302))
;; --- start ------------------------------------------------------------ ;; --- start ------------------------------------------------------------
(unless spine-skip-server-start (unless spine-skip-server-start
(setq httpd-host spine-host) (setq httpd-host spine-host)