add most importtant pages

templates/footer.lisp

@@ -0,0 +1,5 @@
+(defun footer () 
+  `(footer () 
+           "page rendered at $[date +%s]"
+           (br)
+           ,(exec-command "include files/88x31/natalieee.net.html")))

templates/header.lisp

@@ -0,0 +1,14 @@
+(defun header () 
+  '(header () 
+           (nav () 
+                (ul ()
+                    (li () 
+                        (h1 () "$[(for i in {0..10}; do echo natalieee.net; done; echo catalieee.net) | shuf -n1]"))
+                    (li ()
+                        (a (:href "/") "home"))
+                    (li ()
+                        (a (:href "..") "back"))
+                    (li ()
+                        (a (:href "/html/site-info.html") "site info"))
+                    (li () 
+                        (a (:href "/html/natalie-info.html") "natalie info"))))))

templates/page.lisp

@@ -0,0 +1,15 @@
+(load "./templates/header.lisp")
+(load "./templates/footer.lisp")
+
+(defun page (title html)
+    `(html (:lang "en") 
+           (head ()
+                 (meta (:http-equiv "content-type" :content "text/html; charset=utf-8"))
+                 (meta (:name "viewport" :content "width=device-width, initial-scale=1"))
+                 (link (:rel "stylesheet" :href "/style.css"))
+                 (title () ,title))
+           (body () 
+                 ,(header)
+                 (main () 
+                       ,html)
+                 ,(footer))))