Add: I dunno. lots of little thingsmini-marathon

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))))))