Remove form-header function

This commit is contained in:
Marcus Kammer 2024-05-26 17:20:20 +02:00
parent 13956348ad
commit 2dee894ec7
Signed by: marcuskammer
GPG key ID: C374817BE285268F

View file

@ -1,15 +1,5 @@
(in-package :dev.metalisp.survey) (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 () (defun sus-form-en ()
(with-page (:title "SUS Form" :main-con t) (with-page (:title "SUS Form" :main-con t)
(navbar* (navbar*