Update HTML

src/views/_navbar.lisp

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

src/views/survey.lisp

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