blob: f1ebeffea800a81c71c8739c4b97401f0cb61688 (
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)))
(with-page (:title "Register Player")
(:header
(:h1 "Choose a Player Nickname"))
(:form :method "POST" :action "/join"
(:label :for "NICKNAME" "Choose a nickname using only letters, numbers, and -._ (no spaces)") (:br)
(:input :name "NICKNAME" :placeholder "superbob")
(:button :type "submit" "Register"))))
|