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

Code cleanup. Optimize readability

Browse source
This commit is contained in:
Marcus Kammer 2025-02-15 21:52:32 +01:00
parent 2b07af0a00
commit f337a9ac73
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/create/handler.lisp
View file

@ -1,10 +1,10 @@
;;; -*- mode: lisp; coding: utf-8; -*-
(in-package :ml-survey/create)
(defun process-new-survey-get ()
(defun process-get ()
(view))
(defun process-new-survey-post (request)
(defun process-post (request)
(let ((post-params (hunchentoot:post-parameters* request))
(uid (ml-survey/app:generate-uuid))
(stored-surveys (ml-survey/fileops:read-from-file (ml-survey/fileops:make-surveys-db-file))))
@ -12,8 +12,10 @@
(push (list uid post-params) stored-surveys))
(view uid)))
(define-easy-handler (new-survey-handler :uri "/create") nil
(cond ((eq (hunchentoot:request-method*) :get)
(process-new-survey-get))
((eq (hunchentoot:request-method*) :post)
(process-new-survey-post hunchentoot:*request*))))
(defun process-request (request)
(ecase (hunchentoot:request-method*)
(:get (process-get))
(:post (process-post request))))
(define-easy-handler (create-handler :uri "/create") nil
(process-request hunchentoot:*request*))