From 0e6f92e321ebbb4001713d1e70749e1c56ce04b7 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 20 Jul 2023 08:33:03 +0200 Subject: [PATCH] Update use of cdn --- examples/album.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/album.lisp b/examples/album.lisp index b281590..3969ff4 100644 --- a/examples/album.lisp +++ b/examples/album.lisp @@ -177,8 +177,8 @@ Example usage: (:p :class ,(format nil "lead ~a" (if color (apply #'color color))) ,@body))) -(defmacro page (title) - `(with-page (:cdn t :title ,title) +(defmacro page (title cdn) + `(with-page (:cdn ,cdn :title ,title) (navigation (col (:breakpoint (:kind :col :sm (8 nil) :md (7 nil)) :spacing (:property :p :side :y :size 4)) @@ -198,6 +198,6 @@ Example usage: (spinneret:*html-style* style) (spinneret:*fill-column* fc)) (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")