Update html for index resource
This commit is contained in:
parent
64f901d232
commit
e752e87e0c
1 changed files with 22 additions and 22 deletions
|
@ -12,15 +12,15 @@
|
|||
(defun surveys (surveys)
|
||||
"Generates the view to show all surveys available."
|
||||
(with-page (:title "Surveys")
|
||||
(navbar-en)
|
||||
(:section :class "container"
|
||||
(:h2 :class "mb-3"
|
||||
"Your Surveys")
|
||||
(body-header "Surveys" (navbar-en))
|
||||
(:main :id "main-content"
|
||||
:class "container"
|
||||
(:div :class "btn-toolbar my-3"
|
||||
(:div :class "btn-group me-2"
|
||||
(:a :class "btn btn-primary"
|
||||
:href "/new-survey"
|
||||
"New Survey")))
|
||||
(:h2 :class "mb-3" "Overview")
|
||||
(:ol :class "list-group list-group-numbered"
|
||||
(loop for survey in surveys
|
||||
for title = (extract-title survey)
|
||||
|
|
Loading…
Add table
Reference in a new issue