blob: e758ec7b7b384a0c556b2a4b07cdce3beac7b036 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
;;;; 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"))))
|
