From cdf694734c329d3344cc0204cb91103739bdef5f Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Thu, 23 May 2024 09:15:15 +0200
Subject: [PATCH] Remove name parameter

---
 main.cl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/main.cl b/main.cl
index d9a7f24..c4ec140 100644
--- a/main.cl
+++ b/main.cl
@@ -15,7 +15,7 @@
 
 (defvar *company-logo* "company_logo.png")
 
-(defun sus-form-en (name)
+(defun sus-form-en ()
   (with-page (:title "SUS Form" :main-con t)
     (:nav :class "navbar bg-body-tertiary"
           (:div :class "container"
@@ -26,7 +26,6 @@
     (:form :action "/submit"
            :method "post"
            :class (spacing :property "m" :side "y" :size 5)
-           (:input :type "text" :name "name" :value name :style "display:none")
            (multi-form
              (:ask "I’d like to use this system frequently."
               :group "sus-1"
@@ -160,7 +159,7 @@
 (define-easy-handler (sus :uri "/") ((lang) (name))
   (setf *html-lang* lang)
   (cond ((string= lang "en")
-         (sus-form-en name))))
+         (sus-form-en))))
 
 (define-easy-handler (submit :uri "/submit") nil
   (setf (content-type*) "text/plain")