From 21a50fb5aaccb28e164eaf7f1e1e4af19bfb0779 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 5 Mar 2023 18:42:18 -0800 Subject: Remove: pages.lisp, join-gaming-group.lisp; --- dnd.asd | 4 +++- src/pages.lisp | 17 ----------------- src/pages/join-gaming-group.lisp | 13 ------------- 3 files changed, 3 insertions(+), 31 deletions(-) delete mode 100644 src/pages.lisp delete mode 100644 src/pages/join-gaming-group.lisp diff --git a/dnd.asd b/dnd.asd index 2720764..032e37a 100644 --- a/dnd.asd +++ b/dnd.asd @@ -43,7 +43,9 @@ (:module "pages" :serial t :components ((:file "doorkeeper") + (:file "goddess-shrine") + (:file "join") (:file "tavern"))) - (:FILE "endpoints") + (:file "endpoints") (:file "init") (:file "dnd"))))) diff --git a/src/pages.lisp b/src/pages.lisp deleted file mode 100644 index e7e5673..0000000 --- a/src/pages.lisp +++ /dev/null @@ -1,17 +0,0 @@ -;;;; pages.lisp -- html generation functions for dnd - -(in-package :dnd) - - -;;; PAGES - - - - - - - - - - - diff --git a/src/pages/join-gaming-group.lisp b/src/pages/join-gaming-group.lisp deleted file mode 100644 index e758ec7..0000000 --- a/src/pages/join-gaming-group.lisp +++ /dev/null @@ -1,13 +0,0 @@ -;;;; pages/join-gaming-group.lisp - -(in-package :dnd) - -(defrender t ((page (eql :join-gaming-group))) - (with-page (:title "Register Player") - (:header - (:h1 "Choose a Nickname Player")) - (:form :method "POST" :action "/register" - (:label :for "NICK" "Choose a nickname. No spaces. Letters, Numbers, and -._") - (:input :name "NICK" :placeholder "superbob") - (:button :type "submit" "Register")))) - -- cgit v1.2.3