oxaliq.net/source/index.scm

(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 "/tagged"))
          "all of the kinds of things on here so far"))
 
 (p ((class "ascii but-normal-size"))
"︿︿
 〰"))