From abe58a545392fa06b054ec12789ecd183c477bc7 Mon Sep 17 00:00:00 2001
From: Alex Karle <alex@alexkarle.com>
Date: Mon, 14 Nov 2022 20:46:13 -0500
Subject: [PATCH] rsvp: Allow updating the guest names in a party

---
 src/handler.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/handler.scm b/src/handler.scm
index 196ade6..5f836a3 100644
--- a/src/handler.scm
+++ b/src/handler.scm
@@ -64,8 +64,10 @@
     ("meal-choice" . ,guest-meal-choice)))
 
 (define (guest-to-form g)
+  (define (input-name key)
+    `(name ,(conc (number->string (guest-id g)) "__" key)))
   (define (get-attrs key val)
-    `((name ,(conc (number->string (guest-id g)) "__" key))
+    `(,(input-name key)
       (value ,val)
       (type "radio")
       (required "true")
@@ -76,6 +78,8 @@
   ;; TODO: add notes section for allergies, etc
   `((div (@ (class "guest"))
 	 (h4 ,(guest-name g))
+         (label "Name: "
+                (input (@ ,(input-name "name") (required "true") (value ,(guest-name g)))))
 	 (fieldset
 	  (legend "Will You be Attending?")
 	  (label (input (@ ,@(get-attrs "going" 1))) "Yes!")
--
libgit2 1.1.1