From 2dee894ec73df0956a85343908a40538a3e5028c Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 26 May 2024 17:20:20 +0200
Subject: [PATCH] Remove form-header function

---
 src/pages.lisp | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/src/pages.lisp b/src/pages.lisp
index 3a88f11..bb7c74e 100644
--- a/src/pages.lisp
+++ b/src/pages.lisp
@@ -1,15 +1,5 @@
 (in-package :dev.metalisp.survey)
 
-(defun form-header ()
-  (spinneret:with-html
-    (:nav :class (concatenate 'string
-                              "navbar bg-body-tertiary"
-                              " "
-                              (spacing :property "m" :side "b" :size 5))
-          (:div :class "container"
-                (:a :class "navbar-brand" :href "#"
-                    (:img :src *company-logo* :alt "Company Logo" :width 100))))))
-
 (defun sus-form-en ()
   (with-page (:title "SUS Form" :main-con t)
     (navbar*