example.lisp

(defun insert-op (op)
  (setf *operations* (append *operations* op)))

; (insert-op (create-op "mail" "mail"))

(defmacro create-op (noun &body body)
  `(insert-op '((if (equal noun ,noun)
    ,@body))))

; (create-op "mail" "sending mail")
; (create-op "echo" (getf params :value))

(defmacro get-ops ()
  *operations*)

; *operations*

; (cond *operations*)
; (get-ops)
; (eval)

(defun post-request (route params)
   (let* ((path-elms (cl-utilities:split-sequence #\/ route :remove-empty-subseqs t))
          (verb (car path-elms))
          (noun (cadr path-elms)))
     (format *logs* "~%POST REQUEST: ~a ~a ~a~%" route params path-elms)
     (check-permissions verb noun params
                      (or
                        (if (equal verb "login")
                          (login-user params))
                        (if (equal verb "op")
                          (get-ops))