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

Add default values for footer

Browse source
This commit is contained in:
Marcus Kammer 2023-07-18 19:06:38 +02:00
parent 97c13ef2fb
commit df1cfc4504
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
examples/album.lisp
View file

@ -115,7 +115,7 @@ predefined content."
(toggler ,*navbar-header-id*)) (toggler ,*navbar-header-id*))
,@body))) ,@body)))
(defmacro footer ((&key (color nil) (spacing nil)) &body body) (defmacro footer ((&key (color '(:text :body-secondary)) (spacing '(:property :p :size 5))) &body body)
"Generates an HTML footer with Bootstrap classes. "Generates an HTML footer with Bootstrap classes.
COLOR: Specifies the color scheme of the footer. It's a list containing keyword COLOR: Specifies the color scheme of the footer. It's a list containing keyword
@ -167,8 +167,7 @@ Example usage:
`(with-page (:title ,title) `(with-page (:title ,title)
(header) (header)
(:main ,@body) (:main ,@body)
(footer (:spacing (:property :p :side :y :size 5) (footer ())))
:color (:text "body-secondary")))))
(defun write-album (&key (lang "de") (style :tree) (fc 120)) (defun write-album (&key (lang "de") (style :tree) (fc 120))
(let ((spinneret:*html-lang* lang) (let ((spinneret:*html-lang* lang)