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

Use filepath as argument

Browse source
This commit is contained in:
Marcus Kammer 2023-07-20 08:03:47 +02:00
parent 8852ff5428
commit 14d41a4b82
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/album.lisp
View file

@ -193,9 +193,11 @@ Example usage:
(cl-sbt/btn:btn-secondary "Secondary action")))) (cl-sbt/btn:btn-secondary "Secondary action"))))
(footer ()))) (footer ())))
(defun write-page (&key (lang "de") (style :tree) (fc 120)) (defun write-page (filepath &key (lang "de") (style :tree) (fc 120))
(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 "~/quicklisp/local-projects/cl-sbt/examples/album.html" (write-string-to-file filepath
(with-html-string (page "Album"))))) (with-html-string (page "Album")))))
; (cl-sbt/album:write-page "~/quicklisp/local-projects/cl-sbt/public/examples/album.html")