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

Generate functions to download bs dependencies

Browse source
This commit is contained in:
Marcus Kammer 2024-03-08 21:40:52 +01:00
parent 86204623c8
commit 4f6ac8a4c5
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/main.lisp
View file

@ -77,8 +77,12 @@
(write-string content stream)))
filepath))
(defun download-bs-css (&optional (directory *bs-path*))
(download-file *cdn-css-url* directory))
(defmacro define-download-function (name url directory)
`(defun ,name (&optional (directory ,directory))
(download-file ,url directory)))
(define-download-function download-bs-css *cdn-css-url* *bs-path*)
(define-download-function download-bs-js *cdn-js-url* *bs-path*)
(defun write-html-str-to-file (filename string &key (lang "en") (style :tree) (fc 120))
(let ((spinneret:*html-lang* lang)