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

Optimize code readability

Browse source
This commit is contained in:
Marcus Kammer 2024-06-27 08:42:56 +02:00
parent 0d52cbec2b
commit 0199a2ca81
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/handlers/main.lisp
View file

@ -24,6 +24,9 @@
(local-time:now) (local-time:now)
:format '((:hour 2) ":" (:min 2) ":" (:sec 2)))) :format '((:hour 2) ":" (:min 2) ":" (:sec 2))))
(defun today+now ()
(format nil "~a ~a" (today) (now)))
(defun generate-uuid () (defun generate-uuid ()
(parse-integer (format nil "~A~A~A" (parse-integer (format nil "~A~A~A"
(sb-posix:getpid) (sb-posix:getpid)

10
src/handlers/questionnaire.lisp
View file

@ -17,11 +17,11 @@
(ml-survey/views:sus-form)) (ml-survey/views:sus-form))
(defun process-questionnaire-post (request survey) (defun process-questionnaire-post (request survey)
(let ((post-params (post-parameters* request)) (let* ((post-params (post-parameters* request))
(questionnaire-id (generate-uuid))) (questionnaire-id (generate-uuid))
(store-response (ensure-data-file-exist (ml-survey:survey-id survey) (questionnaire-data-file (ensure-data-file-exist (ml-survey:survey-id survey)
questionnaire-id) questionnaire-id)))
(push (format nil "~aT~a" (today) (now)) post-params)) (store-response questionnaire-data-file (push (today+now) post-params))
(ml-survey/views:questionnaire-submit))) (ml-survey/views:questionnaire-submit)))
(define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang) (define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)