oxaliq.net/source/index.scm

78 lines
2.6 KiB
Scheme

(article
((id "oxaliq-dot-net-slash-index"))
(h1 "oxaliq [dot] net [slash] index")
(noscript
(div
((class "noscript"))
(p "hey! yr not letting yr browser execute javascript served by my page.")
(p "that's cool!")
(p "browser (by google?) as arbitrary code execution platform is one of the
weird, regrettable (at least as it is currently implemented)
consequences of our political economy.")
(p "anyway, feel free to browse! yr experience won't be much different,
you'll just get bigger html blob.")
(p "the only js i deliver is "
(a ((href "https://htmx.org"))
"this little REST tool called htmx")
" if you want to see what that's about.")
(p "o! and if you want to hear/read "
(a ((href "/tagged/javascript"))
"what i have to say about javascript")
" you could do that maybe")
(p "/noscript")))
(p "hey! i'm sorrel.")
(p "(called like the plant up there)")
(p "this is my new-fangled website computer page on the world wide web. i had
a nice time building this little thing ")
(p " i hope you have a nice time looking at things here")
(hr)
(div ((class "hx-target"))
(p
(a ((href "/this")
(hx-get "/hx/this")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
"(how i build this little page)")))
(div ((class "hx-target"))
(p
(a ((href "/now")
(hx-get "/hx/now")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
"(what i'm doing)")))
(div ((class "hx-target"))
(p
(a ((href "/about")
(hx-get "/hx/about")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
"(who i am)")))
(div ((class "hx-target"))
(p
(a ((href "/contact")
(hx-get "/hx/contact")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
"(how to say hi to me)")))
(div ((class "hx-target"))
(p
(a ((href "/very-earnest-disclaimer")
(hx-get "/hx/very-earnest-disclaimer")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
"(a very earnest disclaimer)")))
; (div ((class "hx-target"))
; (p
; (a ((href "/links")
; (hx-get "/hx/links")
; (hx-target "closest div.hx-target")
; (hx-swap "innerHTML"))
; "(some things i think are neat)")))
(p (a ((href "static/license/license.txt"))
"license"))
(p (a ((href "/tagged"))
"all of the kinds of things on here so far"))
(p ((class "ascii but-normal-size"))
"︿︿
〰"))