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

Remove index view

Browse source
This commit is contained in:
Marcus Kammer 2024-05-31 15:23:49 +02:00
parent 1a81ba6bbe
commit b13b2949cb
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 1 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
dev.metalisp.survey.asd
View file

@ -14,8 +14,7 @@
((:file "sus"))) ((:file "sus")))
(:module "src/views" (:module "src/views"
:components :components
((:file "index") ((:file "create-survey")
(:file "create-survey")
(:file "new-survey") (:file "new-survey")
(:file "survey") (:file "survey")
(:file "surveys"))) (:file "surveys")))

17
src/views/index.lisp
View file

@ -1,17 +0,0 @@
(in-package :ml-survey/views)
(defun index ()
(let ((collection '("English" ("/sus?lang=en" "System Usability Scale")
"Deutsch" ("/sus?lang=de" "System Usability Scale"
"/demographics?lang=de" "Demografie"))))
(with-page (:title "Survey")
(ml-survey/partials:navbar-en)
(:section :class "container"
(:h2 :class "mb-3" "Surveys")
(loop for (lang anchors) on collection by #'cddr do
(:section :class "container-fluid mb-3"
(:h3 :class "mb-3" lang)
(:ul :class "list-group"
(loop for (url name) on anchors by #'cddr do
(:li :class "list-group-item"
(:a :href url name))))))))))