nukashimika
2 years ago
2 changed files with 25 additions and 0 deletions
@ -0,0 +1,23 @@ |
|||||||
|
(ql:quickload "spinneret") |
||||||
|
(ql:quickload "lass") |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(defun generate-html () |
||||||
|
(spinneret:with-html-string |
||||||
|
(:html |
||||||
|
(:head |
||||||
|
(:link :rel "style.css") |
||||||
|
(:body |
||||||
|
(:div :class "body" |
||||||
|
(:h1 "welcome") |
||||||
|
(:p "hello, im cath and i exist"))))))) |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(defun write-html-to-file () |
||||||
|
(with-open-file (output "index.html" |
||||||
|
:direction :output |
||||||
|
:if-exists :overwrite |
||||||
|
:if-does-not-exist :create) |
||||||
|
(format output (generate-html)))) |
Loading…
Reference in new issue