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

Update html for index resource

Browse source
This commit is contained in:
Marcus Kammer 2024-06-22 15:38:18 +02:00
parent 64f901d232
commit e752e87e0c
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 22 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/views/surveys.lisp
View file

@ -12,15 +12,15 @@
(defun surveys (surveys) (defun surveys (surveys)
"Generates the view to show all surveys available." "Generates the view to show all surveys available."
(with-page (:title "Surveys") (with-page (:title "Surveys")
(navbar-en) (body-header "Surveys" (navbar-en))
(:section :class "container" (:main :id "main-content"
(:h2 :class "mb-3" :class "container"
"Your Surveys")
(:div :class "btn-toolbar my-3" (:div :class "btn-toolbar my-3"
(:div :class "btn-group me-2" (:div :class "btn-group me-2"
(:a :class "btn btn-primary" (:a :class "btn btn-primary"
:href "/new-survey" :href "/new-survey"
"New Survey"))) "New Survey")))
(:h2 :class "mb-3" "Overview")
(: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 = (extract-title survey) for title = (extract-title survey)