Yu-Gi-Oh! Deck Building and Card Inventory Management web interface written in Common Lisp, utilizing HTMX.
25개 이상의 토픽을 선택하실 수 없습니다.
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
- ;;;;
- ;;;; 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!~%"))
|