From cbc3d3ae9ae3c493c4df0b1fd30e32cd3f0227bf Mon Sep 17 00:00:00 2001 From: Chris Cochrun Date: Wed, 24 Apr 2024 21:52:48 -0500 Subject: [PATCH] add a thank you response --- src/main.lisp | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/src/main.lisp b/src/main.lisp index e11ee68..d3b55a1 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -399,7 +399,18 @@ with the image attached" ((string= registration "full") (setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE") (uiop:println (tbnl:headers-out*)) - (mail-camp-form data nil)))) + (mail-camp-form data nil)) + ((string= registration "later") + (let ((first-name (cdr (assoc "firstname" data :test 'string=))) + (last-name (cdr (assoc "lastname" data :test 'string=)))) + (with-html-string + (:div + :class "mt-8" + (:p :class "text-lg" + (format nil + "Thank You ~A, can't wait to see you at camp!!" + (concat + first-name " " last-name))))))))) (progn (uiop:println "Health now") (setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form?registration=~A" registration))