From efa771e3cc363dae68b57dfcc5c67c511a1d3331 Mon Sep 17 00:00:00 2001 From: colin Date: Tue, 7 Mar 2023 19:15:12 -0800 Subject: Add: reporting rumors --- src/views/components.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/views/components.lisp') diff --git a/src/views/components.lisp b/src/views/components.lisp index de4cc5c..bb9772d 100644 --- a/src/views/components.lisp +++ b/src/views/components.lisp @@ -19,11 +19,10 @@ the class string for the contained list items." (dolist (item data) (:li :class item-class (render :list-item item)))))) -(defrender :select ((data list) (multiple "false") name class) +(defrender :select ((data list) name class) (with-html (when data - (:select :multiple multiple - :name (or name (format nil "select-~a" (class-of (first data)))) + (:select :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)))))) -- cgit v1.2.3