cleanup in prep for first publish

in-progress/this.txt

@@ -33,4 +33,10 @@
  (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")))
+       "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")))

oxaliq.net.rkt

@@ -244,8 +244,7 @@
                (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/head.txt

@@ -1,6 +1,9 @@
 (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 ,(~a "stuff what's tagged like \"~a\"" tag))
+                 `(hgroup (h1 "stuff what's tagged like " (em ,tag))
-                          (p (em (~a "everything (or maybe just some things) i've ever said about \"~a\"" tag)))))]
+                          (p (em "everything (or maybe just some things) i've ever said about " (strong ,tag)))))]
               [else
                '(hgroup (h1 "i'm lost")
                         (p (em "you weren't meant to be here")))])

source/root/index.txt

@@ -1,34 +0,0 @@
-(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

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

static/style/styles.css

@@ -54,6 +54,10 @@ span.hx-target section {
   margin: 3;
 }
 
+span.hx-target footer {
+  display: none;
+}
+
 a {
   font-family: 'Courier New', Courier, monospace;
   font-size: small;
@@ -65,6 +69,12 @@ 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;