src/middleware/core.lisp @ c8a2b5ade9f8

Fix quickutil fuckery
author Steve Losh <steve@stevelosh.com>
date Sun, 20 Nov 2016 18:02:44 +0000
parents ca726222b6f1
children (none)
(in-package :nrepl)

(defvar *middleware* (fset:empty-map))


(defmacro handle-op (message op fallback &rest body)
  `(if (equal ,op (fset:lookup ,message "op"))
    (progn ,@body)
    (funcall ,fallback ,message)))

(defmacro define-middleware (name op message-binding &body body)
  "Define a middleware at the symbol `name` to handle `op`.

  As the body is executing `message-binding` will be bound to the message map.

  "
  (with-gensyms (fallback)
    `(defun ,name (,fallback)
      (lambda (,message-binding)
        (handle-op ,message-binding ,op ,fallback
                   ,@body)))))