35 lines
739 B
Common Lisp
35 lines
739 B
Common 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!~%"))
|