marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Update HTML

Browse source
This commit is contained in:
Marcus Kammer 2024-06-18 17:43:53 +02:00
parent bec6208f32
commit 3f7620d1b9
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/views/_navbar.lisp
View file

@ -34,6 +34,7 @@
(defmacro navbar (&body body) (defmacro navbar (&body body)
`(spinneret:with-html `(spinneret:with-html
(:nav :class "navbar bg-body-tertiary navbar-expand-sm mb-5" (:nav :class "navbar bg-body-tertiary navbar-expand-sm mb-5"
:aria-label "Primary Navigation"
(:div :class "container" (:div :class "container"
,@body)))) ,@body))))

9
src/views/survey.lisp
View file

@ -6,11 +6,10 @@
(with-page (:title "Survey Details") (with-page (:title "Survey Details")
(navbar-en) (navbar-en)
(:section :class "container" (:section :class "container"
(:h2 (format nil "Survey ID: ~a" (ml-survey:survey-id survey))) (:p (format nil "Survey ID: ~a" (ml-survey:survey-id survey)))
(:h3 "Properties") (:h2 "Properties")
(ml-survey:survey-html survey) (ml-survey:survey-html survey)
(when results (when results
(:h3 "Questionnaire Results") (:h2 "Questionnaire Results")
(:ul (:ul (loop for result in results do
(loop for result in results do
(:li result))))))) (:li result)))))))