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

Fix naming

Browse source
This commit is contained in:
Marcus Kammer 2023-08-26 08:42:08 +02:00
parent 6a069db61b
commit 229e1af869
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/album.lisp
View file

@ -35,7 +35,7 @@
(:import-from :cl-sbt/btn :btn-primary) (:import-from :cl-sbt/btn :btn-primary)
(:import-from :cl-sbt/navbar :navbar :brand :toggler :collapsible) (:import-from :cl-sbt/navbar :navbar :brand :toggler :collapsible)
(:import-from :cl-sbt/utility :color) (:import-from :cl-sbt/utility :color)
(:import-from :cl-sbt :write-string-to-file :with-page) (:import-from :cl-sbt :write-html-to-file :with-page)
(:import-from :spinneret :with-html-string) (:import-from :spinneret :with-html-string)
(:export (:export
:contact :contact
@ -233,7 +233,7 @@ to the respective component macros."
(let ((spinneret:*html-lang* lang) (let ((spinneret:*html-lang* lang)
(spinneret:*html-style* style) (spinneret:*html-style* style)
(spinneret:*fill-column* fc)) (spinneret:*fill-column* fc))
(write-string-to-file filepath (write-html-to-file filepath
(with-html-string (page "Album" t))))) (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")