|
- ;;;;
- ;;;; 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!~%"))
|