From 18361b44a52ce8ef9c7691f2d9031a7bbd4fd05f Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Tue, 12 Sep 2023 17:06:05 +0200
Subject: [PATCH] Generate a select-multiple macro

---
 src/component/form.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/component/form.lisp b/src/component/form.lisp
index 4ab19d4..1ce9724 100644
--- a/src/component/form.lisp
+++ b/src/component/form.lisp
@@ -23,6 +23,7 @@
    :select
    :select-lg
    :select-sm
+   :select-multiple
    :checkable
    :ctrl
    :search-form))
@@ -158,7 +159,7 @@ LABEL: The label to display next to the control."
                     :type type
                     :name name-str)))))
 
-(defmacro select ((&key size multiple) &rest rest)
+(defmacro select (size multiple &rest rest)
   "This macro generates a Bootstrap select dropdown menu.
 
 SIZE: Specifies the size of the select menu. It can be a string indicating the
@@ -190,13 +191,16 @@ Example 2:
                           collect (destructuring-bind (&key content value) item
                                     `(:option :value ,value ,content)))))))
 
+(defmacro select-multiple (rows &body body)
+  `(select nil ,rows ,@body))
+
 (defmacro define-select (size)
   "Defines a new select macro tailored for a given size.
 
 SIZE: A string that specifies the size ('lg' for large, 'sm' for small)."
   (let ((macro-name (intern (string-upcase (concatenate 'string "SELECT-" size)))))
     `(defmacro ,macro-name (&body body)
-       `(select (:size ,,size) ,@body))))
+       `(select ,,size nil ,@body))))
 
 (defmacro define-selects (sizes)
   "Generates multiple select macros based on the provided list of sizes.