cleanup in prep for first publish

This commit is contained in:
sorrel 2024-01-18 21:45:31 -05:00
parent 7bc26d0864
commit a3823bf993
9 changed files with 24 additions and 43 deletions

View file

@ -33,4 +33,10 @@
(p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.idea-log")) (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.idea-log"))
"you can read about my vague plans here")) "you can read about my vague plans here"))
(p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/in-progress")) (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")))

View file

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

View file

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

View file

@ -61,7 +61,7 @@
; (hx-swap "innerHTML")) ; (hx-swap "innerHTML"))
; "(some things i think are neat)"))) ; "(some things i think are neat)")))
(p (a ((href "/tagged")) (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")) (p ((class "ascii but-normal-size"))
"︿︿ "︿︿

View file

@ -14,8 +14,8 @@
(p (em "a categorical mess for your perusal")))] (p (em "a categorical mess for your perusal")))]
[(string-prefix? res "tagged/") [(string-prefix? res "tagged/")
(let ([tag (string-replace 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 [else
'(hgroup (h1 "i'm lost") '(hgroup (h1 "i'm lost")
(p (em "you weren't meant to be here")))]) (p (em "you weren't meant to be here")))])

View file

@ -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"))
"︿︿
〰"))

View file

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

View file

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