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

Update naming in album

Browse source
This commit is contained in:
Marcus Kammer 2023-07-18 16:56:00 +02:00
parent 8b45492ae1
commit 90b05cf3ec
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
examples/album.lisp
View file

@ -88,7 +88,7 @@ Example usage:
:href ,url :href ,url
,label))))))) ,label)))))))
(defmacro header (&body body) (defmacro navigation (&body body)
"Generates an HTML header for the album page. "Generates an HTML header for the album page.
This macro generates a header with a navigation bar and some predefined This macro generates a header with a navigation bar and some predefined
@ -155,15 +155,15 @@ Example usage:
(:a :href "/docs/5.3/getting-started/introduction/" "getting started guide")) (:a :href "/docs/5.3/getting-started/introduction/" "getting started guide"))
,@body)))) ,@body))))
(defmacro with-hero () (defmacro hero (&body body)
`(spinneret:with-html `(spinneret:with-html
(con (:spacing (:property :p :size 5)) (con (:spacing (:property :p :size 5))
(row (:spacing (:property :p :side :lg :size 5)) (row (:spacing (:property :p :side :lg :size 5))
(col (:breakpoint (:kind :col :md (8 nil) :lg (6 nil)) (col (:breakpoint (:kind :col :md (8 nil) :lg (6 nil))
:spacing (:property :p :size 5)) :spacing (:property :p :size 5))
"foo"))))) ,@body)))))
(defmacro album (title &body body) (defmacro page (title &body body)
`(with-page (:title ,title) `(with-page (:title ,title)
(header) (header)
(:main ,@body) (:main ,@body)
@ -175,4 +175,4 @@ Example usage:
(spinneret:*html-style* style) (spinneret:*html-style* style)
(spinneret:*fill-column* fc)) (spinneret:*fill-column* fc))
(write-string-to-file "album.html" (write-string-to-file "album.html"
(with-html-string (album "Album" (with-hero)))))) (with-html-string (page "Album" (hero))))))