oxaliq/oxaliq.net
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Compare commits

base: oxaliq:8f114c7da091ce8127c6a4c2a093c062a8a7a3c5
Branches Tags
oxaliq:main
oxaliq:in-progress
oxaliq:maren/more-ci-work
oxaliq:publish
..
compare: oxaliq:2f7fc40901b010d1ada49c0da624f0bb6b2fafaf
Branches Tags
oxaliq:main
oxaliq:in-progress
oxaliq:maren/more-ci-work
oxaliq:publish

No commits in common. "8f114c7da091ce8127c6a4c2a093c062a8a7a3c5" and "2f7fc40901b010d1ada49c0da624f0bb6b2fafaf" have entirely different histories.
8f114c7da0 ... 2f7fc40901

15 changed files with 62 additions and 71 deletions
Show stats Expand all files Collapse all files

2
archive/beginning-latl.scm
View file

@ -65,7 +65,7 @@
for a multi-purpose conlanging tool that was beginning to take shape in my head")
(p "i tried anyway")
(p "and i made "
(a ((href "/settled/1"))
(a ((href "settled/1"))
"a bad first draft of a sound change tool"))
(p
"there's an e-bnf grammar in that project somewhere! the hubris i

4
archive/this.scm
View file

@ -30,9 +30,9 @@
"#lang cli"))
(p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.dev-log"))
"you can read about development here"))
(p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/in-progress/.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"))
(p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/in-progress/in-progress"))
(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 "

6
oxaliq.net.rkt
View file

@ -175,10 +175,8 @@
;; constructs entire page for each response
(define (make-page resource static-write)
(string->bytes/utf-8
(string-append
"<!DOCTYPE html>\n"
(static-write
(fragment->page resource)))))
(static-write
(fragment->page resource))))
(define (fragment->page resource)
(xexpr->string

4
publish.rkt
View file

@ -144,8 +144,8 @@
[resources (make-weak-hash)]
[posts (map (lambda (lookup/id)
(if (hash-has-key? post-lookup lookup/id)
(append (list lookup/id) (rest (hash-ref post-lookup lookup/id)))
(append (list lookup/id) (rest (get-post-data lookup/id resources post-lookup x)))))
(hash-ref post-lookup lookup/id)
(get-post-data lookup/id resources post-lookup x)))
(filter non-empty-string? (rest tag-table-row)))]
[make-index (read (open-input-file "source/make-index.scm"))]
[new-index ((eval make-index ns) (~a "tagged/" tag) posts)]

77
source/index.scm
View file

@ -1,7 +1,6 @@
(article
((id "oxaliq-dot-net-index"))
(main
(noscript
(div
(span
((class "noscript"))
(p "hey! yr not letting yr browser execute javascript served by my page.")
(p "that's cool!")
@ -25,48 +24,42 @@
a nice time building this little thing ")
(p " i hope you have a nice time looking at things here")
(hr)
(div ((class "hx-target"))
(p
(a ((href "/this")
(hx-get "/hx/this")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
"(how i build this little page)")))
(div ((class "hx-target"))
(p
(a ((href "/now")
(hx-get "/hx/now")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
(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)")))
(div ((class "hx-target"))
(p
(a ((href "/about")
(hx-get "/hx/about")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
"(who i am)")))
(div ((class "hx-target"))
(p
(a ((href "/contact")
(hx-get "/hx/contact")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
(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)")))
(div ((class "hx-target"))
(p
(a ((href "/very-earnest-disclaimer")
(hx-get "/hx/very-earnest-disclaimer")
(hx-target "closest div.hx-target")
(hx-swap "innerHTML"))
(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)")))
; (div ((class "hx-target"))
; (p
; (a ((href "/links")
; (hx-get "/hx/links")
; (hx-target "closest div.hx-target")
; (hx-swap "innerHTML"))
; "(some things i think are neat)")))
; (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"))

2
source/make-index.scm
View file

@ -43,7 +43,7 @@
(h4 ,(second post))
(p ,(third post))
;; tagged posts will insert href instead of id
(a ((href ,(~a "/" (first post))))
(a ((href ,(first post)))
,(~a "go! to " (second post) " page")))))

2
source/tagged/about.scm
View file

@ -1 +1 @@
'(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 "now") (p "what the author of this site is up to (not computer things)") (a ((href "/now")) "go! to now page")) (div ((class "post-preview")) (h4 "contact") (p "how to talk to me") (a ((href "/contact")) "go! to contact page")) (div ((class "post-preview")) (h4 "very earnest disclaimer") (p "being earnest in the streets") (a ((href "/very-earnest-disclaimer")) "go! to very earnest disclaimer page")) (div ((class "post-preview")) (h4 "this") (p "the site this bitch made") (a ((href "/this")) "go! to this page")) (div ((class "post-preview")) (h4 "about") (p "about the bitch who made this site") (a ((href "/about")) "go! to about page")))
'(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 "now") (p "what the author of this site is up to (not computer things)") (a ((href "now")) "go! to now page")) (div ((class "post-preview")) (h4 "contact") (p "how to talk to me") (a ((href "contact")) "go! to contact page")) (div ((class "post-preview")) (h4 "very earnest disclaimer") (p "being earnest in the streets") (a ((href "very-earnest-disclaimer")) "go! to very earnest disclaimer page")) (div ((class "post-preview")) (h4 "this") (p "the site this bitch made") (a ((href "this")) "go! to this page")) (div ((class "post-preview")) (h4 "about") (p "about the bitch who made this site") (a ((href "about")) "go! to about page")))

2
source/tagged/conlang.scm
View file

@ -1 +1 @@
'(article (hgroup (h1 "stuff what's tagged like " (em "#conlang")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#conlang")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "feature-change-applier") (p "a first attempt at a conlanging tool") (a ((href "/settled/1")) "go! to feature-change-applier page")) (div ((class "post-preview")) (h4 "beginning latl") (p "beginning the process of thinking through an environment for conlanging and other language shenanigans") (a ((href "/unsettled/1")) "go! to beginning latl page")))
'(article (hgroup (h1 "stuff what's tagged like " (em "#conlang")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#conlang")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "feature-change-applier") (p "a first attempt at a conlanging tool") (a ((href "1")) "go! to feature-change-applier page")) (div ((class "post-preview")) (h4 "beginning latl") (p "beginning the process of thinking through an environment for conlanging and other language shenanigans") (a ((href "1")) "go! to beginning latl page")))

2
source/tagged/latl.scm
View file

@ -1 +1 @@
'(article (hgroup (h1 "stuff what's tagged like " (em "#latl")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#latl")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "beginning latl") (p "beginning the process of thinking through an environment for conlanging and other language shenanigans") (a ((href "/unsettled/1")) "go! to beginning latl page")))
'(article (hgroup (h1 "stuff what's tagged like " (em "#latl")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#latl")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "beginning latl") (p "beginning the process of thinking through an environment for conlanging and other language shenanigans") (a ((href "1")) "go! to beginning latl page")))

2
source/tagged/programming-language.scm
View file

@ -1 +1 @@
'(article (hgroup (h1 "stuff what's tagged like " (em "#programming-language")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#programming-language")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "beginning latl") (p "beginning the process of thinking through an environment for conlanging and other language shenanigans") (a ((href "/unsettled/1")) "go! to beginning latl page")))
'(article (hgroup (h1 "stuff what's tagged like " (em "#programming-language")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#programming-language")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "beginning latl") (p "beginning the process of thinking through an environment for conlanging and other language shenanigans") (a ((href "1")) "go! to beginning latl page")))

2
source/tagged/tool.scm
View file

@ -1 +1 @@
'(article (hgroup (h1 "stuff what's tagged like " (em "#tool")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#tool")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "feature-change-applier") (p "a first attempt at a conlanging tool") (a ((href "/settled/1")) "go! to feature-change-applier page")))
'(article (hgroup (h1 "stuff what's tagged like " (em "#tool")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#tool")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "feature-change-applier") (p "a first attempt at a conlanging tool") (a ((href "1")) "go! to feature-change-applier page")))

2
source/this.scm
View file

@ -1 +1 @@
'(body (section (hgroup (h2 "how this site") (p "some kind of colophon")) (p "all of the code for the website is hosted and deployed from tree, " (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net")) "bunk computer club's git forge") "i do almost everything in the main branch, cause it's just me and that way\n i can add links below to the in-progress stuff real easy") (p "first, this website doesn't do anything to know who you are or anything.\n this website is a ~20MB binary and some static resources. it is built\n primarily with " (a ((href "https://docs.racket-lang.org/web-server/")) "racket web-server")) (p "this website serves ~46kB of javascript in the form of " (a ((href "https://htmx.org/")) "the htmx library (minified.)") " i don't love serving minified code. forking the library and removing\n features that are of no use to me is on the agenda for 2024") (p "everything here is hosted on turtle, " (a ((href "https://wiki.bunk.computer/hypha/servers")) "bunk computer club's shared application server")) (p "there's some racket scripts i use for tooling that were made with " (a ((href "https://docs.racket-lang.org/cli/")) "#lang cli")) (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.dev-log")) "you can read about development here")) (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/in-progress/.idea-log")) "you can read about my vague plans here")) (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/in-progress/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"))) (footer (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/this.scm")) "view source") (hr) (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-18T22:19:43")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))
'(body (section (hgroup (h2 "how this site") (p "some kind of colophon")) (p "all of the code for the website is hosted and deployed from tree, " (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net")) "bunk computer club's git forge") "i do almost everything in the main branch, cause it's just me and that way\n i can add links below to the in-progress stuff real easy") (p "first, this website doesn't do anything to know who you are or anything.\n this website is a ~20MB binary and some static resources. it is built\n primarily with " (a ((href "https://docs.racket-lang.org/web-server/")) "racket web-server")) (p "this website serves ~46kB of javascript in the form of " (a ((href "https://htmx.org/")) "the htmx library (minified.)") " i don't love serving minified code. forking the library and removing\n features that are of no use to me is on the agenda for 2024") (p "everything here is hosted on turtle, " (a ((href "https://wiki.bunk.computer/hypha/servers")) "bunk computer club's shared application server")) (p "there's some racket scripts i use for tooling that were made with " (a ((href "https://docs.racket-lang.org/cli/")) "#lang cli")) (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.dev-log")) "you can read about development here")) (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"))) (footer (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/this.scm")) "view source") (hr) (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-18T22:19:43")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))

2
source/unsettled/1.scm
View file

File diff suppressed because one or more lines are too long

BIN
static/img/settled/1/fca.jpg
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 20 KiB

After

Width:  |  Height:  |  Size: 44 KiB

24
static/style/styles.css
View file

@ -35,26 +35,26 @@ h1, h2, h3, h4, h5 {
font-family: 'Courier New', Courier, monospace;
color: var(--background-color);
background-color: var(--visited-link-color);
padding: 2px 10px;
padding: 2 10;
}
h5 {
margin: 2px 0px;
margin: 2 0;
}
div.noscript p {
span.noscript p {
font-family: 'Courier New', Courier, monospace;
font-size: small;
}
div.hx-target section {
span.hx-target section {
border: solid 1px var(--link-color);
border-radius: 4px;
padding: 5px 10px;
margin: 3px;
padding: 5 10;
margin: 3;
}
div.hx-target footer {
span.hx-target footer {
display: none;
}
@ -78,7 +78,7 @@ a:not(.ascii a):not(a[hx-get*="hx"])::before {
}
body {
max-width: 600px;
max-width: 600;
margin: auto;
font-size: medium;
font-family: sans-serif;
@ -128,21 +128,21 @@ nav a {
}
p {
margin: 12px 0px;
margin: 12 0;
}
ul.tag-list {
display: flex;
flex-direction: row;
flex-wrap: wrap;
margin: 6px 0px;
padding: 0px;
margin: 6 0;
padding: 0;
}
li.tag-item {
list-style-type: none;
flex-basis: fit-content;
margin: 0px 6px;
margin: 0 6;
}
img {