Update surveys view

src/surveys.lisp

@@ -7,7 +7,8 @@
   (:import-from #:ml-sbt/navbar
                 #:with-navbar)
   (:import-from #:ml-sbt/section
-                #:with-section)
+                #:with-section
+                #:with-title-bar)
   (:import-from #:ml-sbt/btn
                 #:btn)
   (:import-from #:ml-sbt
@@ -35,12 +36,13 @@
 SURVEYS: List of survey objects."
   (check-type surveys surveys-list)
   (with-page (:title "Surveys")
-    (body-header "Surveys"
+    (body-header t "Surveys"
       (with-navbar (:brand "ml-survey" :active-item "Home")
                    "Home" "/" "New Survey" "/new-survey"))
     (body-main t
       (when surveys
-        (with-section "All Surveys"
+        (with-section
+          (with-title-bar "All Surveys")
           (:ol :class "list-group list-group-numbered"
                (loop for survey in surveys
                      for title = (ml-survey/survey:survey-properties-title survey)