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

fix: use raw defun httpd/add for proper redirect handling

Browse Source
This commit is contained in:
James Brechtel
2026-06-21 08:21:53 -04:00
parent 9259c1139d
commit 16bbccf67b
1 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
spine.el
+16 -14
View File
@@ -312,27 +312,29 @@ Set by test harnesses that only need the model functions.")
(spine-index-model books (cadr (assoc "id" query)))))
(insert (spine-render-empty-state)))))
(defservlet add text/html (path query request)
(let ((method (cadr (car request))))
(defun httpd/add (proc uri-path query request)
"Handle /add: GET shows form, POST creates a book."
(let ((method (caar request)))
(if (equal method "POST")
(progn
(spine-add-book
:title (cdr (assoc "title" query))
:author (cdr (assoc "author" query))
:category (cdr (assoc "category" query))
:format (cdr (assoc "format" query))
:isbn (cdr (assoc "isbn" query))
:cover (cdr (assoc "cover" query))
:rec_by (cdr (assoc "rec_by" query))
:rec_note (cdr (assoc "rec_note" query))
:date_added (cdr (assoc "date_added" query))
:initial_note (cdr (assoc "initial_note" query)))
(httpd-redirect t "/index" 303))
:title (cadr (assoc "title" query))
:author (cadr (assoc "author" query))
:category (cadr (assoc "category" query))
:format (cadr (assoc "format" query))
:isbn (cadr (assoc "isbn" query))
:cover (cadr (assoc "cover" query))
:rec_by (cadr (assoc "rec_by" query))
:rec_note (cadr (assoc "rec_note" query))
:date_added (cadr (assoc "date_added" query))
:initial_note (cadr (assoc "initial_note" query)))
(httpd-redirect proc "/index" 303))
(httpd-with-buffer proc "text/html"
(let* ((books (spine-books))
(model (if books
(spine-add-form-model books)
(ht ("app_title" "spine")))))
(insert (spine-render "add.mustache" model))))))
(insert (spine-render "add.mustache" model)))))))
(defun httpd/ (proc uri-path query request)
"Redirect root to /index."