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