From 595501c4eecff492ce4152a6d5dff68ab2314020 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 9 Aug 2024 22:06:56 +0200 Subject: [PATCH] Update surveys view --- src/surveys.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/surveys.lisp b/src/surveys.lisp index 1b7e089..b796f9c 100644 --- a/src/surveys.lisp +++ b/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)