From 6cf35dea02712861e588414db6177a5ac38d0e3e Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Thu, 25 Apr 2024 21:46:54 -0500
Subject: [PATCH] fixing the form fixer...

---
 src/main.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index ae6a50d..5d1c641 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -314,7 +314,9 @@ with the image attached"
               (:table
                (loop for row in form
                      do (:tr
-                         (:th (car row))
+                         (:th (string-capitalize
+                               (string-replace-all
+                                "-" (car row) " ")))
                          (:td (cdr row))))))))))))
 
 (defun mail-health-form (form attachment)
@@ -356,7 +358,9 @@ with the image attached"
               (:table
                (loop for row in form
                      do (:tr
-                         (:th (string-capitalize (car row)))
+                         (:th (string-capitalize
+                               (string-replace-all
+                                "-" (car row) " ")))
                          (:td (cdr row))))))))))))
 
 (tbnl:define-easy-handler (health-form :uri "/health-form") ()