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

Add rowp

Browse source
This commit is contained in:
Marcus Kammer 2025-01-12 18:38:53 +01:00
parent 6c9b989c25
commit 4a65cb5557
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/section.lisp
View file

@ -32,6 +32,10 @@ Example:
,(when items ,(when items
`(btn-group-outline-primary ,@items))))) `(btn-group-outline-primary ,@items)))))
(defun rowp (string)
"Return T if 'row' is present as a substring in STRING, NIL otherwise."
(some (lambda (x) (string= "row" x)) (uiop:split-string string)))
(defmacro section (class (&key xs sm md lg xl xxl) &body body) (defmacro section (class (&key xs sm md lg xl xxl) &body body)
"Creates a Bootstrap-styled section. "Creates a Bootstrap-styled section.