From 2b6e1eec2bf5c27223fbf2d09cd10a322fc09909 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 1 Apr 2023 18:04:45 -0700 Subject: Add: I dunno. lots of little things --- src/view-components.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/view-components.lisp') diff --git a/src/view-components.lisp b/src/view-components.lisp index 1c21952..ee88628 100644 --- a/src/view-components.lisp +++ b/src/view-components.lisp @@ -27,13 +27,13 @@ the class string for the contained list items." (dolist (item data) (render :option item)))))) -(defrender :checkboxes ((data list) id class) +(defrender :checkboxes ((data list) id class item-name) (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)))) + (:div :class (or class (format nil "checkboxes ~a" (class-name (class-of (first data))))) + :id (or id (format nil "checkboxes-~a" (class-name (class-of (first data))))) (dolist (item data) - (render :checkbox item) + (render :checkbox item :name item-name) (:br)))))) -- cgit v1.2.3