From 3f7620d1b9c56f0e4060b83444ab60c739fd659f Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Tue, 18 Jun 2024 17:43:53 +0200
Subject: [PATCH] Update HTML

---
 src/views/_navbar.lisp |  1 +
 src/views/survey.lisp  | 11 +++++------
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/views/_navbar.lisp b/src/views/_navbar.lisp
index 3646230..7377a64 100644
--- a/src/views/_navbar.lisp
+++ b/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))))
 
diff --git a/src/views/survey.lisp b/src/views/survey.lisp
index 3670951..94be2fb 100644
--- a/src/views/survey.lisp
+++ b/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)))))))