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

Update surveys view

Browse source
This commit is contained in:
Marcus Kammer 2024-08-09 22:06:56 +02:00
parent 0a2ca1e9b2
commit 595501c4ee
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/surveys.lisp
View file

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