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

Update page with navigation

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

20
examples/album.lisp
View file

@ -100,17 +100,10 @@ to the macro. The BODY content will be included in the header after the
predefined content."
`(spinneret:with-html
(:header (collapsible ,*navbar-header-id*
(col (:breakpoint (:kind :col :sm (8 nil) :md (7 nil))
:spacing (:property :p :side :y :size 4))
(about () "Add some information about the album below, the author, or any other background context. Make it a few sentences long so folks can pick up some informative tidbits. Then, link them off to some social networking sites or contact information."))
(col (:breakpoint (:kind :col :sm (8 nil) :md (nil 1)))
(contact (:url "#" :label "Follow on Twitter")
(:url "#" :label "Like on Facebook")
(:url "#" :label "Email me"))))
,@body)
(navbar (:fluid nil)
(brand () "Album")
(toggler ,*navbar-header-id*))
,@body)))
(toggler ,*navbar-header-id*)))))
(defmacro footer ((&key (color '(:text :body-secondary))
(spacing '(:property :p :size 5))) &body body)
@ -163,7 +156,14 @@ Example usage:
(defmacro page (title &body body)
`(with-page (:title ,title)
(header)
(navigation
(col (:breakpoint (:kind :col :sm (8 nil) :md (7 nil))
:spacing (:property :p :side :y :size 4))
(about () "Add some information about the album below, the author, or any other background context. Make it a few sentences long so folks can pick up some informative tidbits. Then, link them off to some social networking sites or contact information."))
(col (:breakpoint (:kind :col :sm (8 nil) :md (nil 1)))
(contact (:url "#" :label "Follow on Twitter")
(:url "#" :label "Like on Facebook")
(:url "#" :label "Email me"))))
(:main ,@body)
(footer ())))