blob: b48d102ba8c5c10bd736ad470bb35d92907fe490 (
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 Nickname Player"))
(:form :method "POST" :action "/join"
(:label :for "NICKNAME" "Choose a nickname. No spaces. Letters, Numbers, and -._")
(:input :name "NICKNAME" :placeholder "superbob")
(:button :type "submit" "Register"))))
|
