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

Check types for view

Browse source
This commit is contained in:
Marcus Kammer 2024-06-02 14:38:27 +02:00
parent 2a314583d6
commit cdb8381dfe
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/views/survey.lisp
View file

@ -1,9 +1,9 @@
(in-package :ml-survey/views) (in-package :ml-survey/views)
(defun survey (survey) (defun survey (id properties)
"Generates the view to show the survey created." "Generates the view to show the survey created."
(let ((id (format nil "~a" (first survey))) (check-type id string)
(properties (first (rest survey)))) (check-type properties list)
(with-page (:title "Surveys") (with-page (:title "Surveys")
(navbar-en) (navbar-en)
(:section :class "container" (:section :class "container"
@ -21,4 +21,4 @@
(:td (if (string= key "questionnaire") (:td (if (string= key "questionnaire")
(:a :href (concatenate 'string "/survey/" id value) (:a :href (concatenate 'string "/survey/" id value)
value) value)
value)))))))))) value)))))))))