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

Update use of cdn

Browse source
This commit is contained in:
Marcus Kammer 2023-07-20 08:33:03 +02:00
parent 26658c5106
commit 0e6f92e321
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/album.lisp
View file

@ -177,8 +177,8 @@ Example usage:
(:p :class ,(format nil "lead ~a" (if color (apply #'color color))) (:p :class ,(format nil "lead ~a" (if color (apply #'color color)))
,@body))) ,@body)))
(defmacro page (title) (defmacro page (title cdn)
`(with-page (:cdn t :title ,title) `(with-page (:cdn ,cdn :title ,title)
(navigation (navigation
(col (:breakpoint (:kind :col :sm (8 nil) :md (7 nil)) (col (:breakpoint (:kind :col :sm (8 nil) :md (7 nil))
:spacing (:property :p :side :y :size 4)) :spacing (:property :p :side :y :size 4))
@ -198,6 +198,6 @@ Example usage:
(spinneret:*html-style* style) (spinneret:*html-style* style)
(spinneret:*fill-column* fc)) (spinneret:*fill-column* fc))
(write-string-to-file filepath (write-string-to-file filepath
(with-html-string (page "Album"))))) (with-html-string (page "Album" t)))))
; (cl-sbt/album:write-page "~/quicklisp/local-projects/cl-sbt/public/examples/album.html") ; (cl-sbt/album:write-page "~/quicklisp/local-projects/cl-sbt/public/examples/album.html")