add a thank you response

2024-04-24 21:52:48 -05:00 · 2024-04-24 21:52:48 -05:00 · cbc3d3ae9a
commit cbc3d3ae9a
parent 1993554db0
1 changed files with 12 additions and 1 deletions
--- 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))