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

Fix indentation

Browse source
This commit is contained in:
Marcus Kammer 2023-10-08 09:50:40 +02:00
parent 9279a3e7f3
commit 9e1c9f6a48
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/main.lisp
View file

@ -19,20 +19,20 @@
`(spinneret:with-html `(spinneret:with-html
(:doctype) (:doctype)
(:html :data-bs-theme ,theme (:html :data-bs-theme ,theme
(:head (:head
(:meta :charset "utf-8") (:meta :charset "utf-8")
(:meta :name "viewport" :content "width=device-width, initial-scale=1") (:meta :name "viewport" :content "width=device-width, initial-scale=1")
(:meta :name "author" :content ,author) (:meta :name "author" :content ,author)
(:meta :name "description" :content ,description) (:meta :name "description" :content ,description)
(:title ,pagetitle) (:title ,pagetitle)
(if ,cdn (if ,cdn
(:link :type "text/css" :rel "stylesheet" :href ,*cdn-css*) (:link :type "text/css" :rel "stylesheet" :href ,*cdn-css*)
(:link :type "text/css" :rel "stylesheet" :href "5.3.0/bootstrap.min.css"))) (:link :type "text/css" :rel "stylesheet" :href "5.3.0/bootstrap.min.css")))
(:body (:h1 :class "visually-hidden" ,pagetitle) (:body (:h1 :class "visually-hidden" ,pagetitle)
(:main ,@body)) (:main ,@body))
(if ,cdn (if ,cdn
(:script :src *cdn-js*) (:script :src *cdn-js*)
(:script :src "5.3.0/bootstrap.bundle.min.js"))))) (:script :src "5.3.0/bootstrap.bundle.min.js")))))
(defun write-html-to-file (filename string &key (lang "en") (style :tree) (fc 120)) (defun write-html-to-file (filename string &key (lang "en") (style :tree) (fc 120))
(let ((spinneret:*html-lang* lang) (let ((spinneret:*html-lang* lang)