(cl:in-package :cl-user)
(defpackage :fwoar.intercooler
  (:use :cl )
  (:import-from :fw.lu defclass+)
  (:import-from :araneus controller)
  (:export #:partial-request
           #:full-request
           #:intercooler-route
           #:intercooler-request
           #:request))
(in-package :fwoar.intercooler)

(defclass+ intercooler-request ()
  ((%request :initarg :request :reader request)))
(defclass+ partial-request ((intercooler-request (request)))
  ())
(defclass+ full-request ((intercooler-request (request)))
  ())
(defclass intercooler-route ()
  ())
(defmethod controller :around ((route intercooler-route) params &key)
  (funcall (if (equal (serapeum:assocdr "ic-request" params
                                        :test 'equal)
                      "true")
               'partial-request
               'full-request)
           (call-next-method)))