From f337a9ac739323f3afbc9cae9d66a59fe32a1759 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sat, 15 Feb 2025 21:52:32 +0100 Subject: [PATCH] Code cleanup. Optimize readability --- src/create/handler.lisp | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/src/create/handler.lisp b/src/create/handler.lisp index ab46dcc..9e002c2 100644 --- a/src/create/handler.lisp +++ b/src/create/handler.lisp @@ -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*))