Fix the handle of predefined key arguments

This commit is contained in:
Marcus Kammer 2023-07-18 20:23:51 +02:00
parent 8aeb530d71
commit 1acef32ac9
Signed by: marcuskammer
GPG key ID: C374817BE285268F

View file

@ -130,10 +130,8 @@ Example usage:
; 'custom-class' and text 'Custom content here' will be added to the footer."
`(spinneret:with-html
(:footer :class ,(concatenate 'string
(if (null color) ""
(apply #'cl-sbt/utility:color color))
(if (null spacing) ""
(apply #'cl-sbt/utility:spacing spacing)))
(if color (apply #'cl-sbt/utility:color color) "")
(if spacing (apply #'cl-sbt/utility:spacing spacing) ""))
(con ()
(:p :class "float-end mb-1"
(:a :href "#" "Back to top"))