53 lines
4.4 KiB
Common Lisp
53 lines
4.4 KiB
Common Lisp
(defun html ()
|
|
(page "natalie info" `((section ()
|
|
(h1 () "what is a \"natalie\"?")
|
|
(span () "I am <a href='/html/natalie-sightings.html'>natalie</a>. obviously.")
|
|
(p () "words are not a thing I am good at. this is exacerbaited when the words are about myself. "
|
|
"despite this, I shall attempt a suitable description of myself.")
|
|
(br)
|
|
(p ()
|
|
"ideally, I am to be referred to as an \"it\" or a \"she\".",(exec-command "make-footnote \" the former is preferred.\"") "I suppose I may reasonably be described as asexual. " (br)
|
|
"timezone I am in: PST/PDT" (br)
|
|
"age: $[echo $(( $(date +%s) - $(date -d \"2007-04-01\" +%s) ))] seconds. that is $[echo \"scale=8; ($(date +%s) - $(date -d '2007-04-01' +%s)) / (365.25*24*3600)\" | bc] [earth] years." (br)
|
|
"I am kind of a college student. it is complicated. I will be a college student with less complicated circumstances by fall of 2025, barring unforseen circumstances." (br)
|
|
"I like systems. particularly ones that have reasonably consistent behavior based on a set of rules. this is omnipresent in my interests." (br)
|
|
"list of interests (incomplete):"
|
|
(ul ()
|
|
(li () "technical computer things, so long as they do not involve javascript")
|
|
(li () "infrastructure, particularly pertaining to trains")
|
|
(li () "languistics, especially conlangs")
|
|
(li () "key making and lock picking")
|
|
(li () "math"))
|
|
"things that I enjoy:"
|
|
(ul ()
|
|
(li () "friends")
|
|
(li () "going on long walks")
|
|
(li () "utilizing public transportation")
|
|
(li () "train tracks"))
|
|
"things that I find displeasing:"
|
|
(ul ()
|
|
(li () "grease or oil on my skin")
|
|
(li () "non friend people")
|
|
(li () "ultraviolet radiation")
|
|
(li () "busywork")))
|
|
,(exec-command "put-footnotes"))
|
|
(section ()
|
|
(h2 () "somewhat irregular natalie facts")
|
|
(ul ()
|
|
(li () "I own 12 thinkpads, all of which were manufactured prior to 2014")
|
|
(li () "the number of people that can effectively use my computer is, to my knowledge, 1 (me)" ,(exec-command "make-footnote \"the number of people I know who can type on it is 3, including myself\""))
|
|
(li () "I can replace the screen on my first generation iphone se a1662 in 70 seconds"))
|
|
,(exec-command "put-footnotes"))
|
|
(section ()
|
|
(h2 () "contact information")
|
|
(a (:href "/html/discord.html") "discord: _natalieeee_")
|
|
"email: natalie at natalieee.net" (br)
|
|
"xmpp: nat@natalieee.net")
|
|
(section ()
|
|
(h2 () "some of my computers")
|
|
(p () "I own many computers, none of them are normal. particularly notable instances of this phenomenon will be noted below:")
|
|
(ul ()
|
|
(li () ,(exec-command "make-link /html/my-laptop.html 'my framework 16'")
|
|
(li () ,(exec-command "make-link /html/my-old-laptop.html 'my old {w,t}530'"))
|
|
(li () ,(exec-command "make-link /html/server-migration.html 'the server this runs on'"))))))))
|