archive/about.txt

@@ -1,52 +0,0 @@
-(section
- (h2 "a λ.functional λ.gay")
- (p "i'm a gay lil nerd who's learning everyday about community, and ecology,
-     and computer; and trying hard to be good for the world with my gay lil
-     friends")
- (p "i was named after "
-    (a ((href "https://plants.usda.gov/home/plantProfile?symbol=OXOR"))
-       "a plant called sorrel")
-    " and i live in the mountains of southern appalachia on "
-    (span ((lang "chr")) "ᏣᎳᎩ")
-    " (tsalagi/cherokee) land. i live with some cats and a whole mess of plants
-    (most of them food) and a cordswain and i have sweet neighbors")
- (p
-  "i have never identified with the term 'hacker' but i have learned, in the
-   past few years, that i do like to orchestrate computer machines and i do
-   that with some cute friends at "
-  (a ((href "https://bunk.computer"))
-     "bunk computer club"))
- (p "some random things i believe/ i like/ i am/etc (in no particular order")
- ;; about me bullets
- (ul
-  ;; language bullet
-  (li (p "i like linguistics a whole lot. "
-         (span
-          ((class "hx-target"))
-          (a ((href "/tagged/conlang")
-              (hx-get "/hx/tagged/conlang")
-              (hx-target "closest span.hx-target")
-              ; swap for a tag? just a lil list inside a list?
-              (hx-swap "innerHTML"))
-             "i make languages (the human kind) for fun."))
-         " there's a whole bunch of people who do this! "
-         (a ((href "https://conlang.org/"))
-            "the language creation society")
-         " i'm even working on a "
-         (span
-          ((class "hx-target"))
-          (a ((href "/tagged/latl")
-              (hx-get "/hx/tagged/latl")
-              (hx-target "closest span.hx-target")
-              (hx-swap "innerHTML"))
-             "language (computer) to make languages (human)"))))
-  ;; mmt bullet
-  (li (p "mmt, but make it anarchist "
-         (small "and get rid of all that \"sovereignty\" stuff, ew")))
-  ;; neuroqueer bullet
-  (li (p "got a spicy brained, trans lady-fied experience. 
-          i have feelings about these things that inevitably weave thru
-          my projects and art and all that"))
-  ;; art bullet
-  (li (p "i used to make a lot more visual art than i do these days. some
-          sort of smth'll wind up here at some point"))))

data/atom.csv

@@ -1,2 +1 @@
 title,link,summary,published,updated
-about,https://oxaliq.net/about,about the bitch who made this site,2024-01-18T21:56:45,

data/root.csv

@@ -1,2 +1 @@
 id,headline,description,history->
-about,about,about the bitch who made this site,2024-01-18T21:56:45

data/tagged.csv

@@ -1,2 +1 @@
 tags,->
-about,root/about

in-progress/this.txt

@@ -33,10 +33,4 @@
  (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.idea-log"))
        "you can read about my vague plans here"))
  (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/in-progress"))
-       "or read works in progress here"))
- (p
-  "the image in the header is a crop of the work "
-  (em "'Oxalis acetosella', Otto Wilhelm Thomé (1885)")
-  " run through a generation tool on "
-  (a ((href "https://www.asciiart.eu/"))
-     "this art archive")))
+       "or read works in progress here")))

oxaliq.net.rkt

@@ -244,7 +244,8 @@
                (dispatch/servlet #:regexp #rx"^/hx/" httpx-app)
                (dispatch/servlet #:regexp #rx"^/feed.atom" rss-feed)
                (dispatch/servlet page-app)
-               (dispatch/servlet not-found))
+               (dispatch/servlet not-found)
+               )
    #:listen-ip "127.0.0.1"
    #:port 8000))
 

source/about.txt

@@ -1 +1,52 @@
-'(body (section (h2 "a λ.functional λ.gay") (p "i'm a gay lil nerd who's learning everyday about community, and ecology,\n     and computer; and trying hard to be good for the world with my gay lil\n     friends") (p "i was named after " (a ((href "https://plants.usda.gov/home/plantProfile?symbol=OXOR")) "a plant called sorrel") " and i live in the mountains of southern appalachia on " (span ((lang "chr")) "ᏣᎳᎩ") " (tsalagi/cherokee) land. i live with some cats and a whole mess of plants\n    (most of them food) and a cordswain and i have sweet neighbors") (p "i have never identified with the term 'hacker' but i have learned, in the\n   past few years, that i do like to orchestrate computer machines and i do\n   that with some cute friends at " (a ((href "https://bunk.computer")) "bunk computer club")) (p "some random things i believe/ i like/ i am/etc (in no particular order") (ul (li (p "i like linguistics a whole lot. " (span ((class "hx-target")) (a ((href "/tagged/conlang") (hx-get "/hx/tagged/conlang") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "i make languages (the human kind) for fun.")) " there's a whole bunch of people who do this! " (a ((href "https://conlang.org/")) "the language creation society") " i'm even working on a " (span ((class "hx-target")) (a ((href "/tagged/latl") (hx-get "/hx/tagged/latl") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "language (computer) to make languages (human)")))) (li (p "mmt, but make it anarchist " (small "and get rid of all that \"sovereignty\" stuff, ew"))) (li (p "got a spicy brained, trans lady-fied experience. \n          i have feelings about these things that inevitably weave thru\n          my projects and art and all that")) (li (p "i used to make a lot more visual art than i do these days. some\n          sort of smth'll wind up here at some point")))) (footer (section (h5 "tagged") (ul ((class "tag-list")) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/about") (hx-get "/hx/tagged/about") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "about"))))) (hr) (p ((class "doc-history")) (small "published: 2024-01-18T21:56:45")) (p ((class "license-info")) (small (a ((href "/license")) "license")))))
+(section
+ (h2 "a λ.functional λ.gay")
+ (p "i'm a gay lil nerd who's learning everyday about community, and ecology,
+     and computer; and trying hard to be good for the world with my gay lil
+     friends")
+ (p "i was named after "
+    (a ((href "https://plants.usda.gov/home/plantProfile?symbol=OXOR"))
+       "a plant called sorrel")
+    " and i live in the mountains of southern appalachia on "
+    (span ((lang "chr")) "ᏣᎳᎩ")
+    " (tsalagi/cherokee) land. i live with some cats and a whole mess of plants
+    (most of them food) and a cordswain and i have sweet neighbors")
+ (p
+  "i have never identified with the term 'hacker' but i have learned, in the
+   past few years, that i do like to orchestrate computer machines and i do
+   that with some cute friends at "
+  (a ((href "https://bunk.computer"))
+     "bunk computer club"))
+ (p "some random things i believe/ i like/ i am/etc (in no particular order")
+ ;; about me bullets
+ (ul
+  ;; language bullet
+  (li (p "i like linguistics a whole lot. "
+         (span
+          ((class "hx-target"))
+          (a ((href "/tagged/conlang")
+              (hx-get "/hx/tagged/conlang")
+              (hx-target "closest span.hx-target")
+              ; swap for a tag? just a lil list inside a list?
+              (hx-swap "innerHTML"))
+             "i make languages (the human kind) for fun."))
+         " there's a whole bunch of people who do this! "
+         (a ((href "https://conlang.org/"))
+            "the language creation society")
+         " i'm even working on a "
+         (span
+          ((class "hx-target"))
+          (a ((href "/tagged/latl")
+              (hx-get "/hx/tagged/latl")
+              (hx-target "closest span.hx-target")
+              (hx-swap "innerHTML"))
+             "language (computer) to make languages (human)"))))
+  ;; mmt bullet
+  (li (p "mmt, but make it anarchist "
+         (small "and get rid of all that \"sovereignty\" stuff, ew")))
+  ;; neuroqueer bullet
+  (li (p "got a spicy brained, trans lady-fied experience. 
+          i have feelings about these things that inevitably weave thru
+          my projects and art and all that"))
+  ;; art bullet
+  (li (p "i used to make a lot more visual art than i do these days. some
+          sort of smth'll wind up here at some point"))))

source/feed.atom

@@ -1 +1 @@
-<?xml version="1.0" encoding="utf-8"?><feed xmlns="http://www.w3.org/2005/Atom"><title>λ.oxaliq.net</title><link rel="self" href="https://oxaliq.net/feed.atom"/><updated>2024-01-18T21:56:45</updated><author><name>sorrel</name></author><id>https://oxaliq.net</id><entry><title>about</title><link href="https://oxaliq.net/about"/><id>https://oxaliq.net/about</id><content src="https://oxaliq.net/about" type="text/html"></content><summary>about the bitch who made this site</summary><published>2024-01-18T21:56:45</published><updated></updated></entry></feed>
+<?xml version="1.0" encoding="utf-8"?><feed xmlns="http://www.w3.org/2005/Atom"><title>λ.sorrel.dev</title><link rel="self" href="https://sorrel.dev/feed.atom"/><updated>2023-11-08T22:49:41</updated><author><name>sorrel</name></author><id>https://sorrel.dev</id>

source/head.txt

@@ -1,9 +1,6 @@
 (head
  (meta ((http-equiv "Content-Type")
         (content "text/html; charset=utf-8")))
- (meta ((name "ROBOTS")
-        (content "NOINDEX, NOFOLLOW")))
- (title "oxaliq.net - learning and making")
  (meta ((name "author")
         (content "sorrel")))
  (meta ((name "description")

source/index.txt

@@ -61,7 +61,7 @@
 ;              (hx-swap "innerHTML"))
 ;          "(some things i think are neat)")))
  (p (a ((href "/tagged"))
-          "all of the kinds of things on here so far"))
+          "-> all of the kinds of things on here so far"))
  
  (p ((class "ascii but-normal-size"))
 "︿︿

source/make-index.txt

@@ -14,8 +14,8 @@
                         (p (em "a categorical mess for your perusal")))]
               [(string-prefix? res "tagged/")
                (let ([tag (string-replace res "tagged/" "#")])
-                 `(hgroup (h1 "stuff what's tagged like " (em ,tag))
-                          (p (em "everything (or maybe just some things) i've ever said about " (strong ,tag)))))]
+                 `(hgroup (h1 ,(~a "stuff what's tagged like \"~a\"" tag))
+                          (p (em (~a "everything (or maybe just some things) i've ever said about \"~a\"" tag)))))]
               [else
                '(hgroup (h1 "i'm lost")
                         (p (em "you weren't meant to be here")))])

source/root/index.txt

@@ -0,0 +1,34 @@
+(article
+ (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 "
+    (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 " i hope you have  a nice time looking at things here.")
+ (p ((class "ascii but-normal-size"))
+"︿︿
+ 〰"))

source/root/not-found.txt

@@ -0,0 +1,3 @@
+(section
+ (h1 "404")
+ (p "hey, i couldn't find that. could ya try something else maybe?"))

source/tagged/about.txt

@@ -1 +0,0 @@
-'(article (hgroup (h1 "stuff what's tagged like " (em "#about")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#about")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "about") (p "about the bitch who made this site") (a ((href "about")) "go! to about page")))

source/tagged/index.txt

@@ -1 +1 @@
-'(article (hgroup (h1 "all the tags") (p (em "a categorical mess for your perusal"))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "about") (p "posts about about") (a ((href "/tagged/about")) "go! to about page")))
+'(article (hgroup (h1 "all the tags") (p (em "a categorical mess for your perusal"))) (h3 "the thoughts") (p "there's nothing here yet"))'(article (hgroup (h1 "all the tags") (p (em "a categorical mess for your perusal"))) (h3 "the thoughts") (p "there's nothing here yet"))'(article (hgroup (h1 "all the tags") (p (em "a categorical mess for your perusal"))) (h3 "the thoughts") (p "there's nothing here yet"))

static/style/styles.css

@@ -54,10 +54,6 @@ span.hx-target section {
   margin: 3;
 }
 
-span.hx-target footer {
-  display: none;
-}
-
 a {
   font-family: 'Courier New', Courier, monospace;
   font-size: small;
@@ -69,12 +65,6 @@ a:visited {
   text-decoration-color: var(--link-color);
 }
 
-a:not(a[hx-get*="hx"])::before {
-  content: ". -> . ";
-  color: var(--foreground-color);
-  font-weight: 900;
-}
-
 body {
   max-width: 600;
   margin: auto;