cl-deck-builder2/old/web-route-test.lisp

;;;;
;;;; src/web/web-test.lisp
;;;;
;;;; This is a test for Lack.Middleware.Mount
;;;;
;;;; Eventually I want all the web routes to be their own package,
;;;; maybe integrated better with the models.
;;;;

(in-package #:cl-user)

;; TODO I could probably start moving all this stuff into packages.lisp

(defpackage #:cl-deck-builder2.web.web-test
  (:use :cl
        :caveman2)
  (:local-nicknames
   (#:v #:org.shirakumo.verbose))
  (:import-from :cl-deck-builder2.view
                :render)
  (:export :*web-test*))

(in-package #:cl-deck-builder2.web.web-test)

;;
;; Application
;;

(defclass <web> (<app>) ())
(defvar *web-test* (make-instance '<web>))
(clear-routing-rules *web-test*)

(defroute "/" ()
  (format nil "Test!~%"))