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

Fix code formating

Browse source
This commit is contained in:
Marcus Kammer 2024-12-01 09:48:57 +01:00
parent 50844eb0c2
commit 0069b5e723
2 changed files with 22 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dev.metalisp.survey.asd
View file

@ -2,7 +2,7 @@
(defsystem "dev.metalisp.survey"
:description "Create questionnaires and analyze the results."
:version "0.5.2"
:version "0.5.3"
:author "Marcus Kammer <marcus.kammer@metalisp.dev>"
:source-control (:git "git@git.sr.ht:~marcuskammer/dev.metalisp.survey")
:licence "MIT"

42
src/surveys.lisp
View file

@ -32,27 +32,27 @@
SURVEYS: List of survey objects."
(check-type surveys surveys-list)
(with-page (:title "Surveys")
(body-header "fluid" "Surveys"
(with-navbar "fluid" "Home"
"Home" "/" "New Survey" "/new-survey"))
(body-main "fluid"
(when 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)
for description = (ml-survey/survey:survey-properties-description survey)
for id = (ml-survey/survey:survey-id survey) do
(:li :class "list-group-item d-flex justify-content-between align-items-start"
(:div :class "ms-2 me-auto"
(:a :class "fw-bold clearfix"
:href (format nil "/survey/~a" id)
title)
(if description
(:span description)
nil))))))))))
(with-page (:title "Surveys")
(body-header "fluid" "Surveys"
(with-navbar "fluid" "Home"
"Home" "/" "New Survey" "/new-survey"))
(body-main "fluid"
(when 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)
for description = (ml-survey/survey:survey-properties-description survey)
for id = (ml-survey/survey:survey-id survey) do
(:li :class "list-group-item d-flex justify-content-between align-items-start"
(:div :class "ms-2 me-auto"
(:a :class "fw-bold clearfix"
:href (format nil "/survey/~a" id)
title)
(if description
(:span description)
nil))))))))))
(define-easy-handler (surveys-handler :uri "/") nil
(let* ((list-of-surveys (mapcar (lambda (x)