(defun join-strings-with-br (strings)
  (reduce (lambda (acc str)
            (if (string= acc "")
                str
                (concatenate 'string acc "<br>" str)))
          strings
          :initial-value ""))

(defun html ()
  (page "site info" 
        `((section () 
                   (h1 () "information about this website"))
          (section ()
                   (h2 () "/(.*\\.)?natalieee.net/")
                   (h3 () "why?")
                   (p () "natalie was displeased with its former status of not having a website")
                   (h3 () "how?")
                   (p () "requests to /(.*\\.)?natalieee.net/ get routed to nginx, which acts as a proxy for various 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.")
                   (p () "note: <a href=\"http://natalieee.net.1.b.1.0.b.0.0.0.0.7.4.0.1.0.0.2.ip6.arpa\">natalieee.net.1.b.1.0.b.0.0.0.0.7.4.0.1.0.0.2.ip6.arpa</a> is a CNAME to natalieee.net"))
          (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 this one's laptop.")
                   (p () 
                      "the html for this website is generated using <a href=\"https://git.natalieee.net/nat/htmlgen\">htmlgen</a>."
                      "if you are curious as to why, please see the posts from 2024-08-21 and 2024-09-01 <a href=\"/html/random-thoughts.html\">here</a>."))
          (section ()
                   (h2 () "sludge")
                   (h3 () "what is a sludge?")
                   (p () "s[ite][k]ludge is natalie's from-scratch webserver. it has features.")
                   (h3 () "why?")
                   (p () "it dislikes \"web development\". also, it 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 () "webocodynamics of natalieee.net")
                   (p ()
                      "the means by which this website runs involves an unreasonable number of symlinks. here is a textual description of a graph of them:")
                   (pre ()
                      (code ()
                            ,(join-strings-with-br '(
                                                     "site -> s&#x200B;ludge [label=s&#x200B;ludge]"
                                                     "s&#x200B;ludge -> site [label=site]"
                                                     "htmlgen -> site [label=out]"
                                                     "htmlgen -> site [label=site]"))))
                   (p ()
                      "one may ask: why?"
                      (br) (br)
                      "the answer to such a question is that sludge runs with a working directory of ~/site, but scripts in ~/site/scripts must be able to import files from ~/sludge (specifically ~/site/scripts/include). "
                      "htmlgen needs to be able to read scripts in ~/site/scripts to run commands at compile time. htmlgen writes html to ~/htmlgen/out, thus the double symlink to ~/site. "
                      "technically, this could all be done without symlinks. this is vaguely more robust because in the event that natalie moves something, it simply need to change the symlinks instead of the paths in arbitrarily many files. "
                      "nevertheless" ,(exec-command "make-footnote \"nevertheless is a stupid word\"") ", the number of symlinks is amusing.")
                   ,(exec-command "put-footnotes"))

          (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. it vaguely advises against this.")
                       (li () "dns.natalieee.net" ": Pointless CNAME record to its main domain so that entities using its dns (once a number greater than 0!) can put dns.natalieee.net down as their nameserver instead of natalieee.net.")
                       (li () "mpd.natalieee.net: mpd server that its friend asked it to create. it can probably be bothered in to giving arbitrary people credentials if they for some reason wish to listen to the music that it is listening to in such a roundabout way")
                       (li () ,(exec-command "make-link https://files.natalieee.net") ": a slightly worse and personal 0x0.st-like server. created because it was annoyed by discord's upload limit.")
                       (li () ,(exec-command "make-link https://status.natalieee.net") ": <a href='https://git.osmarks.net/osmarks/onstat'>osmarks status thingy</a>. runs on the server that runs <a href='https://puppygirl.systems'>puppygirl.systems</a>"))))))