Browse Source

0.1 Initit stub made

master
nukashimika 2 years ago
parent
commit
6e8bd66c90
  1. 2
      .gitignore
  2. 23
      src/index.lisp

2
.gitignore vendored

@ -0,0 +1,2 @@
src/*.html
src/*.css

23
src/index.lisp

@ -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…
Cancel
Save