From 9a858d4ef85da57e3e1381a179a7f7980faecd8a Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Tue, 18 Jul 2023 20:14:10 +0200 Subject: [PATCH] Replace textbody with color --- examples/album.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/album.lisp b/examples/album.lisp index 2cee39c..205369e 100644 --- a/examples/album.lisp +++ b/examples/album.lisp @@ -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)