70 lines
2.5 KiB
Scheme
70 lines
2.5 KiB
Scheme
(main
|
|
(noscript
|
|
(span
|
|
((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)
|
|
(p (span ((class "hx-target"))
|
|
(a ((href "/this")
|
|
(hx-get "/hx/this")
|
|
(hx-target "closest span")
|
|
(hx-swap "innerHTML"))
|
|
"(how i build this little page)")))
|
|
(p (span ((class "hx-target"))
|
|
(a ((href "/now")
|
|
(hx-get "/hx/now")
|
|
(hx-target "closest span")
|
|
(hx-swap "innerHTML"))
|
|
"(what i'm doing)")))
|
|
(p (span ((class "hx-target"))
|
|
(a ((href "/about")
|
|
(hx-get "/hx/about")
|
|
(hx-target "closest span")
|
|
(hx-swap "innerHTML"))
|
|
"(who i am)")))
|
|
(p (span ((class "hx-target"))
|
|
(a ((href "/contact")
|
|
(hx-get "/hx/contact")
|
|
(hx-target "closest span")
|
|
(hx-swap "innerHTML"))
|
|
"(how to say hi to me)")))
|
|
(p (span ((class "hx-target"))
|
|
(a ((href "/very-earnest-disclaimer")
|
|
(hx-get "/hx/very-earnest-disclaimer")
|
|
(hx-target "closest span")
|
|
(hx-swap "innerHTML"))
|
|
"(a very earnest disclaimer)")))
|
|
; (p (span ((class "hx-target"))
|
|
; (a ((href "/links")
|
|
; (hx-get "/hx/links")
|
|
; (hx-target "closest span")
|
|
; (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"))
|
|
"︿︿
|
|
〰"))
|