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

Add whitespace

Browse source
This commit is contained in:
Marcus Kammer 2024-06-02 22:52:47 +02:00
parent 10bc5347ff
commit 00df834718
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/handlers/survey.lisp
View file

@ -4,13 +4,16 @@
(labels ((survey-fn (action) (labels ((survey-fn (action)
(case action (case action
(id (second (split-uri uri))) (id (second (split-uri uri)))
(id-p (let ((ids (mapcar #'car (load-response (make-surveys-db-path))))) (id-p (let ((ids (mapcar #'car (load-response (make-surveys-db-path)))))
(if (member (parse-integer (survey-fn 'id)) ids) t nil))) (if (member (parse-integer (survey-fn 'id)) ids) t nil)))
(uri-p (let ((parts (split-uri uri))) (uri-p (let ((parts (split-uri uri)))
(and (= (length parts) 2) (and (= (length parts) 2)
(string= (first parts) "survey") (string= (first parts) "survey")
(every #'digit-char-p (second parts)) (every #'digit-char-p (second parts))
(survey-fn 'id-p)))) (survey-fn 'id-p))))
(properties (first (rest (assoc (parse-integer (survey-fn 'id)) (properties (first (rest (assoc (parse-integer (survey-fn 'id))
(load-response (make-surveys-db-path))))))))) (load-response (make-surveys-db-path)))))))))
#'survey-fn)) #'survey-fn))