diff options
Diffstat (limited to 'src/player.lisp')
-rw-r--r-- | src/player.lisp | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/player.lisp b/src/player.lisp index 11cd2b9..6533f59 100644 --- a/src/player.lisp +++ b/src/player.lisp @@ -42,6 +42,11 @@ ;;; HELPERS + +(defmethod unique-name ((player player)) + (nickname player)) + + ;;; QUERIES (defun all-players () @@ -76,7 +81,6 @@ (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)) @@ -86,6 +90,13 @@ (with-html (nickname player))) +(defrender :link-to ((player player)) + (render :inline player)) + +(defrender :inline ((player player)) + (with-html (:a :href (urlpath player) (nickname player))) + ) + ;;; PAGES & PAGE CLASSES (defclass/std doorkeeper () |