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

Create a hero and a function to write html to file

Browse source
This commit is contained in:
Marcus Kammer 2023-07-18 16:46:13 +02:00
parent 875e0ce016
commit 6570714aec
1 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
examples/album.lisp
View file

@ -125,8 +125,24 @@ 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 album-page (title &body body) (defmacro with-hero ()
`(spinneret:with-html
(con (:spacing (:property :p :size 5))
(row (:spacing (:property :p :side :lg :size 5))
(col (:breakpoint (:kind :col :md (8 nil) :lg (6 nil))
:spacing (:property :p :size 5))
"foo")))))
(defmacro album (title &body body)
`(with-page (:title ,title) `(with-page (:title ,title)
(header) (header)
(:main ,@body) (:main ,@body)
(footer (:color (:text "body-secondary") :spacing (:property :p :side :y :size 5))))) (footer (:spacing (:property :p :side :y :size 5)
:color (:text "secondary")))))
(defun write-album (&key (lang "de") (style :tree) (fc 120))
(let ((spinneret:*html-lang* lang)
(spinneret:*html-style* style)
(spinneret:*fill-column* fc))
(write-string-to-file "album.html"
(with-html-string (album "Album" (with-hero))))))