73 lines
5.6 KiB
Common Lisp
73 lines
5.6 KiB
Common Lisp
(defun html ()
|
|
(page "{adjective} websites" `((section ()
|
|
(h1 () "{adjective} websites")
|
|
(ul ()
|
|
(li ()
|
|
(a (:href "https://eightyeightthirty.one/") "eightyeightthirty.one")
|
|
" a graph of website badges.")
|
|
(li ()
|
|
(a (:href "http://lena.kiev.ua/") "lena.kiev.ua")
|
|
(li ()
|
|
(a (:href "https://www.webcoves.com/tgring.html") "transgendering")
|
|
" this one is interesting to explore.")
|
|
(li ()
|
|
(a (:href "https://ftp.cdc.gov/pub/GOODMAN/") "ftp.cdc.gov/pub/GOODMAN/")
|
|
" cdc saul goodman.")
|
|
(li ()
|
|
(a (:href "https://wiki.alquds.edu/?query=Main_Page") "wiki.alquds.edu/?query=Main_Page")
|
|
" weird wikipedia mirror.")
|
|
(li ()
|
|
(a (:href "https://lhohq.info/") "lhohq.info")
|
|
" who knows.")
|
|
(li ()
|
|
(a (:href "http://plaza.ufl.edu/virus86") "plaza.ufl.edu/virus86")
|
|
" a random ufl student's files sitting on some university server somewhere, for some reason.")
|
|
(li ()
|
|
(a (:href "https://www.cs.arizona.edu/icon") "www.cs.arizona.edu/icon")
|
|
" a cool programming language.")
|
|
(li ()
|
|
(a (:href "https://observatory.db.erau.edu/generators/signs/") "observatory.db.erau.edu/generators/signs/")
|
|
" warning sign generator.")
|
|
(li ()
|
|
(a (:href "https://adams.nrc.gov/wba/") "adams.nrc.gov/wba")
|
|
" nuclear regulatory commission agencywide documents access and management system.")
|
|
(li ()
|
|
(a (:href "https://owd.tcnj.edu/~hofmann/") "owd.tcnj.edu/~hofmann")
|
|
" random professor's homepage.")
|
|
(li ()
|
|
(a (:href "https://citrons.xyz") "citrons.xyz")
|
|
" this entity seems odd.")
|
|
(li ()
|
|
(a (:href "https://w3.pppl.gov") "w3.pppl.gov")
|
|
" i quite like the w3 subdomain of the princeton plasma physics laboratory.")
|
|
(li ()
|
|
(a (:href "https://eda.gay") "eday.gay")
|
|
" she owns less thinkpads than this one does. brainwormed.")
|
|
(li ()
|
|
(a (:href "https://www.yourworldoftext.com/apionet") "https://www.yourworldoftext.com/apionet")
|
|
" buzzzzzzzzzzzzzzzzzzz")))
|
|
"this website compelled natalie to put it somewhere:"
|
|
(a (:href "https://citrons.xyz/a/memetic-apioform-page.html") (img (:src "https://citrons.xyz/a/static/apiopage.png"))))
|
|
(section ()
|
|
(h2 () "entities that it sometimes interact with physically")
|
|
(span ()
|
|
"winter: "
|
|
(a (:href "https://bunbun.dev") "bunbun.dev")
|
|
(a (:href "https://bunbun.dev")
|
|
(img (:style "float: right" :src "../files/88x31/bunbun.dev.gif"))))
|
|
(span ()
|
|
"odette: "
|
|
(a (:href "http://puppygirl.systems") "puppygirl.systems (stupid idiot who types <hr/>)")
|
|
" Semi functional now")
|
|
(span ()
|
|
"albert: "
|
|
(a (:href "https://iso-9995-9.com") "iso-9995-9.com")
|
|
" (down? dns issue maybe)")
|
|
(span ()
|
|
"sam: "
|
|
(a (:href "https://hellzone.org") "hellzone.org")
|
|
(a (:href "https://hellzone.org")
|
|
(img (:style "float: right" :src "https://hellzone.org/src/images/88x31.gif"))))))))
|
|
|
|
|