nukashimika
2 years ago
6 changed files with 17 additions and 33 deletions
@ -1,5 +0,0 @@
|
||||
(ql:quickload "hunchentoot") |
||||
|
||||
|
||||
(defvar *acceptor* (make-instance 'hunchentoot:easy-acceptor :port 4242)) |
||||
(hunchentoot:start *acceptor*) |
@ -1,23 +0,0 @@
|
||||
(ql:quickload "spinneret") |
||||
(ql:quickload "lass") |
||||
|
||||
|
||||
|
||||
(defun generate-html () |
||||
(spinneret:with-html-string |
||||
(:html |
||||
(:head |
||||
(:link :rel "stylesheet" :href "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)))) |
@ -0,0 +1,2 @@
|
||||
# test |
||||
ooo sample text i have burned this damn project and remade it ooo |
@ -0,0 +1,13 @@
|
||||
<!-- "Borrowed from": https://www.arthurkoziel.com/convert-md-to-html-pandoc/" --> |
||||
<!DOCTYPE html> |
||||
<html lang="en"> |
||||
<head> |
||||
<meta charset="utf-8"> |
||||
<meta name="date" content='$date-meta$'> |
||||
<title>$title$</title> |
||||
</head> |
||||
<body> |
||||
<p>Date: $date$</p> |
||||
$body$ |
||||
</body> |
||||
</html> |
Loading…
Reference in new issue