diff options
Diffstat (limited to 'src/view-components.lisp')
| -rw-r--r-- | src/view-components.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
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)))))) |