blob: 5a3d07495f2371731f059c486ec3679c87ea038d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;;; views/player.lisp
(in-package :dnd)
(defrender :details ((player player))
(with-html
(:div :class "player details"
(:h3 "Welcome " (nickname player)))))
(defrender :option ((player player))
(with-html
(:option :value (uid player) (nickname player))))
(defrender :checkbox ((player player))
(with-html
(:input :type "checkbox" :id (uid player) :name "POSSIBLE-SEER" :value (uid player))
(:label :for (uid player) (nickname player))))
|