diff options
Diffstat (limited to 'src/views/player.lisp')
| -rw-r--r-- | src/views/player.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/views/player.lisp b/src/views/player.lisp index 087848e..5a3d074 100644 --- a/src/views/player.lisp +++ b/src/views/player.lisp @@ -6,3 +6,13 @@ (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)))) |