From 9538f5713ef495dc6bb673b7f7c1913c3a0d5a89 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Wed, 16 Aug 2023 09:41:50 +0200 Subject: [PATCH] Fix indentation --- src/component/form.lisp | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/src/component/form.lisp b/src/component/form.lisp index b5a2c99..1779c2a 100644 --- a/src/component/form.lisp +++ b/src/component/form.lisp @@ -103,15 +103,14 @@ BODY: The contents of the select menu, typically options. Example: (select (:size \"sm\") - (select-option (:content \"Option 1\" :value \"opt1\")))" - (let ((class-attr (cond - ((null size) "form-select") - ((numberp size) "form-select") - ((and (stringp size) - (string= size "multiple")) "form-select") - ((stringp size) - (format nil "form-select form-select-~a" size)) - (t (error "Invalid size specification: ~a" size))))) + (:content \"Option 1\" :value \"opt1\"))" + (let ((class-attr (cond ((null size) "form-select") + ((numberp size) "form-select") + ((and (stringp size) + (string= size "multiple")) "form-select") + ((stringp size) + (format nil "form-select form-select-~a" size)) + (t (error "Invalid size specification: ~a" size))))) `(spinneret:with-html (:select :class ,class-attr ,@(when (numberp size) `(:size ,size))