Yu-Gi-Oh! Deck Building and Card Inventory Management web interface written in Common Lisp, utilizing HTMX.
Du kan inte välja fler än 25 ämnen
Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
|
- ;;;;
- ;;;; 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!~%"))
|