diff options
author | colin <colin@cicadas.surf> | 2023-04-01 09:48:08 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-04-01 09:48:08 -0700 |
commit | cc3f850c514967ae2f9effef7e68e1d4965c6865 (patch) | |
tree | 6d0b52c3a65d53f247f4c8272667aca5a4e05bac /src/pages/doorkeeper.lisp | |
parent | 56a584ab1b13ff9510dd5145a778000169901a76 (diff) |
Refactor to make cooperative hacking nicer
Diffstat (limited to 'src/pages/doorkeeper.lisp')
-rw-r--r-- | src/pages/doorkeeper.lisp | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/pages/doorkeeper.lisp b/src/pages/doorkeeper.lisp deleted file mode 100644 index 15774fb..0000000 --- a/src/pages/doorkeeper.lisp +++ /dev/null @@ -1,19 +0,0 @@ -;;;; pages/doorkeeper.lisp -- announce yourself and enter the hero's tavern - -(in-package :dnd) - -;;; DOORKEEPER CLASS -(defclass/std doorkeeper () - ((message))) - -;; the t specialization works for all render targets -(defrender t ((page doorkeeper)) - (with-page (:title "Tavern Door") - (:h1 (message page)) - (:form :method "POST" :action "/tavern-door" - (:label :for "NICKNAME" "Wut's yer handle?:") - (:input :name "NICKNAME") (:br) - (:button :type "submit" "Announce Thyself")) - (:h2 "Eh? Ye need to register for admission?") - (:a :href "/join" "Follow me..."))) - |