49 lines
3.6 KiB
Common Lisp
49 lines
3.6 KiB
Common Lisp
(defun html ()
|
|
(page "site info"
|
|
`((section ()
|
|
(h1 () "information about this website"))
|
|
(section ()
|
|
(h2 () "/(.*\\.)?natalieee.net/")
|
|
(h3 () "why?")
|
|
(p () "I was displeased with my former status of not having a website")
|
|
(h3 () "how?")
|
|
(p () "requests to /(.*\\.)?natalieee.net/ get routed to nginx, which acts as a proxy for my subdomains. "
|
|
"nginx routes requests to /^natalieee.net/ to this webserver, which is named "
|
|
(a (:href "https://git.natalieee.net/nat/sludge") "sludge") ". "
|
|
"requests to /.*\\.natalieee.net/ are routed according to the /.*\\.natalieee.net/ section."))
|
|
(section ()
|
|
(h2 () "/^natalieee.net/")
|
|
(p () "the root domain of this website, which you are currently observing, is running sludge. "
|
|
"the colors of both the light and dark mode are based off of the colorscheme of my laptop."))
|
|
(section ()
|
|
(h2 () "sludge")
|
|
(h3 () "what is a sludge?")
|
|
(p () "s[ite][k]ludge is my from-scratch webserver. it has features.")
|
|
(h3 () "why?")
|
|
(p () "I dislike \"web development\". also, I was bored.")
|
|
(h3 () "what does sludge do?")
|
|
(ul ()
|
|
(li () "send data")
|
|
(li () "receive data")
|
|
(li () "process data")
|
|
(li () "create new data")
|
|
(li () "move data")
|
|
(li () "coerce data[types]")
|
|
(li () "other verbs prepended to data"))
|
|
(h3 () "how does sludge?")
|
|
(p () "sludge receives requests for paths. if these paths are in the routing table, it determines what it should respond with. "
|
|
"generally, if the path starts with /html/, it will read an html document from the filesystem. "
|
|
"following this, it will locate any instance of \"{key}\" and replace these instances with a value determined by a function associated to the route being requested in the routing table. "
|
|
"after substituting these values, it will find any instances of the pattern \"$[echo \\$[...]]\", where ... is a valid bash expression. "
|
|
"for each match, it replaces the original matching text with the output of said text executed in bash. "
|
|
"this functions as a static sight generator. an example of this is the headers on this site, which are included via the following expression: \"$[echo \\$[include ./html/header.html]]\"")
|
|
(p () "sludge also has the ability to apply arbitrary edits to outgoing data prior to said data being sent, but after it has been generated. "
|
|
"you may observe this "
|
|
(a (:href "?uwu=true") "here") "."))
|
|
(section ()
|
|
(h2 () "/.*\\.natalieee.net/")
|
|
(ul ()
|
|
(li () ,(exec-command "make-link https://git.natalieee.net") ": Gitea instance. You may use it if you feel so inclined for some reason. I wouldn't.")
|
|
(li () ,(exec-command "make-link https://dns.natalieee.net") ": Pointless CNAME record to my main domain so that entities using my dns (A number greater than 0!) can put dns.natalieee.net down as their nameserver instead of natalieee.net."))))))
|
|
|