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

Enable textbody property for about

Browse source
This commit is contained in:
Marcus Kammer 2023-07-16 12:11:42 +02:00
parent 979f8a5bb7
commit 796dff22ce
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
examples/album.lisp
View file

@ -11,10 +11,11 @@
(defvar *navbar-header-id* "navbarHeader") (defvar *navbar-header-id* "navbarHeader")
(defmacro about (&body body) (defmacro about ((&key (textbody "secondary")) &body body)
`(spinneret:with-html `(spinneret:with-html
(:h4 "About" (:h4 "About"
(:p :class "text-body-secondary" (:p :class ,(concatenate 'string
(if textbody (format nil "text-body-~a" textbody) ""))
,@body)))) ,@body))))
(defmacro contact (&rest rest) (defmacro contact (&rest rest)