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

Replace textbody with color

Browse source
This commit is contained in:
Marcus Kammer 2023-07-18 20:14:10 +02:00
parent a6c8d2679b
commit 9a858d4ef8
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/album.lisp
View file

@ -49,10 +49,10 @@
(defvar *navbar-header-id* "navbarHeader")
(defmacro about ((&key (textbody "secondary")) &body body)
(defmacro about ((&key (color '(:text :body-secondary))) &body body)
"Generates an HTML 'About' section with the provided content.
TEXTBODY: Specifies the color scheme of the text body. Default is 'secondary'.
COLOR: Specifies the color scheme of the text.
BODY: Specifies the HTML content to be included in the 'About' section. This
can be any valid HTML content that spinneret:with-html can parse.
@ -64,7 +64,7 @@ Example usage:
`(spinneret:with-html
(:h4 "About"
(:p :class ,(concatenate 'string
(if textbody (format nil "text-body-~a" textbody) ""))
(if color (apply #'cl-sbt/utility:color color) ""))
,@body))))
(defmacro contact (&rest rest)