moving to using htmx and the lisp server on camp forms

src/main.lisp

@@ -381,6 +381,26 @@ with the image attached"
                          (:th (car row))
                          (:td (cdr row))))))))))))
 
+(hunchentoot:define-easy-handler (respond :uri "/camp-api") ()
+  (uiop:println "hey")
+  (setf (hunchentoot:content-type*) "plain/text")
+  (let* ((request-type (hunchentoot:request-method hunchentoot:*request*))
+         (data (hunchentoot:post-parameters* hunchentoot:*request*)))
+    (uiop:println (assoc "registration" data :test 'string=))
+    (uiop:println (tbnl:headers-out*))
+    (if (string= (cdr (assoc "registration" data :test 'string=)) "now")
+        (progn (uiop:println "did it")
+               (setf (hunchentoot:header-out "HX-Redirect") "https://secure.myvanco.com/L-Z772/campaign/C-13JPJ")
+               (uiop:println (tbnl:headers-out*))
+               (uiop:println (hunchentoot:return-code*))
+               (with-html-string
+                 (:div
+                  (:p "Payment"))))
+        (progn
+          (with-html-string
+            (:div
+             (:p "Thank You")))))))
+
 (defun define-post-form-handler (uri mail-function)
   "Take a uri and a mailer function and define a handler in hunchentoot
 for forms to POST to."