marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Use local var for constructing class str

Browse source
This commit is contained in:
Marcus Kammer 2023-09-02 09:11:32 +02:00
parent b7d0007535
commit a8996b1a75
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/layout/grid.lisp
View file

@ -269,14 +269,14 @@ Examples:
(col (:spacing (:property :p :size 2)) \"Hello, world!\")
; This will generate a column that has a padding of 2 units on all sides,
; containing the text 'Hello, world!'."
`(spinneret:with-html
(:div :class
,(string-clean
(concatenate 'string
(if (null cols) "col " (format nil "col-~d " cols))
(if (null breakpoint) ""
(apply #'breakpoint-class breakpoint))
(if (null alignself) "" (format nil "align-self-~a " alignself))
(if (null spacing) ""
(apply #'cl-sbt/utility:spacing spacing))))
,@body)))
(let ((class-str (string-clean
(concatenate 'string
(if (null cols) "col " (format nil "col-~d " cols))
(if (null breakpoint) ""
(apply #'breakpoint-class breakpoint))
(if (null alignself) "" (format nil "align-self-~a " alignself))
(if (null spacing) ""
(apply #'cl-sbt/utility:spacing spacing))))))
`(spinneret:with-html
(:div :class ,class-str
,@body)))