From 187fce76197031dba1112bd6023b41166f039f3e Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 6 Mar 2023 19:44:53 -0800 Subject: Add: adventure creation --- src/views/components.lisp | 21 ++++++++++++++++++++- src/views/player.lisp | 10 ++++++++++ 2 files changed, 30 insertions(+), 1 deletion(-) (limited to 'src/views') diff --git a/src/views/components.lisp b/src/views/components.lisp index 95ed062..de4cc5c 100644 --- a/src/views/components.lisp +++ b/src/views/components.lisp @@ -17,7 +17,26 @@ the class string for the contained list items." (with-html (:ol :class class (dolist (item data) - (:li :calss item-class (render :list-item item)))))) + (:li :class item-class (render :list-item item)))))) + +(defrender :select ((data list) (multiple "false") name class) + (with-html + (when data + (:select :multiple multiple + :name (or name (format nil "select-~a" (class-of (first data)))) + :class (or class (format nil "select ~a" (class-of (first data)))) + (dolist (item data) + (render :option item)))))) + +(defrender :checkboxes ((data list) id class) + (with-html + (when data + (:div :class (or class (format nil "checkboxes ~a" (class-of (first data)))) + :id (or id (format nil "checkboxes-~a" (class-of (first data)))) + (dolist (item data) + (render :checkbox item) + (:br)))))) + ;;;; PAGE ELEMENTS 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)))) -- cgit v1.2.3