From b3851df8abfe7924e472d155fb132dd417431986 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Thu, 25 Apr 2024 21:38:04 -0500
Subject: [PATCH] trying to capitalize headers of camp form email

---
 src/main.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/main.lisp b/src/main.lisp
index 34203df..ae6a50d 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -356,7 +356,7 @@ with the image attached"
               (:table
                (loop for row in form
                      do (:tr
-                         (:th (car row))
+                         (:th (string-capitalize (car row)))
                          (:td (cdr row))))))))))))
 
 (tbnl:define-easy-handler (health-form :uri "/health-form") ()