Compare commits
4 commits
8f114c7da0
...
a1dcd6e9c0
| Author | SHA1 | Date | |
|---|---|---|---|
| a1dcd6e9c0 | |||
| 054dfdc7eb | |||
| 685af4956a | |||
| 30a3780663 |
12 changed files with 68 additions and 59 deletions
|
|
@ -30,9 +30,9 @@
|
||||||
"#lang cli"))
|
"#lang cli"))
|
||||||
(p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.dev-log"))
|
(p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.dev-log"))
|
||||||
"you can read about development here"))
|
"you can read about development here"))
|
||||||
(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/in-progress/.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/in-progress/in-progress"))
|
||||||
"or read works in progress here"))
|
"or read works in progress here"))
|
||||||
(p
|
(p
|
||||||
"the image in the header is a crop of the work "
|
"the image in the header is a crop of the work "
|
||||||
|
|
|
||||||
|
|
@ -176,7 +176,9 @@
|
||||||
(define (make-page resource static-write)
|
(define (make-page resource static-write)
|
||||||
(string->bytes/utf-8
|
(string->bytes/utf-8
|
||||||
(static-write
|
(static-write
|
||||||
(fragment->page resource))))
|
(string-append
|
||||||
|
"<!DOCTYPE html>\n"
|
||||||
|
(fragment->page resource)))))
|
||||||
|
|
||||||
(define (fragment->page resource)
|
(define (fragment->page resource)
|
||||||
(xexpr->string
|
(xexpr->string
|
||||||
|
|
|
||||||
|
|
@ -144,8 +144,8 @@
|
||||||
[resources (make-weak-hash)]
|
[resources (make-weak-hash)]
|
||||||
[posts (map (lambda (lookup/id)
|
[posts (map (lambda (lookup/id)
|
||||||
(if (hash-has-key? post-lookup lookup/id)
|
(if (hash-has-key? post-lookup lookup/id)
|
||||||
(hash-ref post-lookup lookup/id)
|
(append (list lookup/id) (rest (hash-ref post-lookup lookup/id)))
|
||||||
(get-post-data lookup/id resources post-lookup x)))
|
(append (list lookup/id) (rest (get-post-data lookup/id resources post-lookup x)))))
|
||||||
(filter non-empty-string? (rest tag-table-row)))]
|
(filter non-empty-string? (rest tag-table-row)))]
|
||||||
[make-index (read (open-input-file "source/make-index.scm"))]
|
[make-index (read (open-input-file "source/make-index.scm"))]
|
||||||
[new-index ((eval make-index ns) (~a "tagged/" tag) posts)]
|
[new-index ((eval make-index ns) (~a "tagged/" tag) posts)]
|
||||||
|
|
|
||||||
|
|
@ -1,6 +1,7 @@
|
||||||
(main
|
(article
|
||||||
|
((id "oxaliq-dot-net-index"))
|
||||||
(noscript
|
(noscript
|
||||||
(span
|
(div
|
||||||
((class "noscript"))
|
((class "noscript"))
|
||||||
(p "hey! yr not letting yr browser execute javascript served by my page.")
|
(p "hey! yr not letting yr browser execute javascript served by my page.")
|
||||||
(p "that's cool!")
|
(p "that's cool!")
|
||||||
|
|
@ -24,42 +25,48 @@
|
||||||
a nice time building this little thing ")
|
a nice time building this little thing ")
|
||||||
(p " i hope you have a nice time looking at things here")
|
(p " i hope you have a nice time looking at things here")
|
||||||
(hr)
|
(hr)
|
||||||
(p (span ((class "hx-target"))
|
(div ((class "hx-target"))
|
||||||
(a ((href "/this")
|
(p
|
||||||
(hx-get "/hx/this")
|
(a ((href "/this")
|
||||||
(hx-target "closest span")
|
(hx-get "/hx/this")
|
||||||
(hx-swap "innerHTML"))
|
(hx-target "closest div.hx-target")
|
||||||
"(how i build this little page)")))
|
(hx-swap "innerHTML"))
|
||||||
(p (span ((class "hx-target"))
|
"(how i build this little page)")))
|
||||||
(a ((href "/now")
|
(div ((class "hx-target"))
|
||||||
(hx-get "/hx/now")
|
(p
|
||||||
(hx-target "closest span")
|
(a ((href "/now")
|
||||||
(hx-swap "innerHTML"))
|
(hx-get "/hx/now")
|
||||||
|
(hx-target "closest div.hx-target")
|
||||||
|
(hx-swap "innerHTML"))
|
||||||
"(what i'm doing)")))
|
"(what i'm doing)")))
|
||||||
(p (span ((class "hx-target"))
|
(div ((class "hx-target"))
|
||||||
(a ((href "/about")
|
(p
|
||||||
(hx-get "/hx/about")
|
(a ((href "/about")
|
||||||
(hx-target "closest span")
|
(hx-get "/hx/about")
|
||||||
(hx-swap "innerHTML"))
|
(hx-target "closest div.hx-target")
|
||||||
"(who i am)")))
|
(hx-swap "innerHTML"))
|
||||||
(p (span ((class "hx-target"))
|
"(who i am)")))
|
||||||
(a ((href "/contact")
|
(div ((class "hx-target"))
|
||||||
(hx-get "/hx/contact")
|
(p
|
||||||
(hx-target "closest span")
|
(a ((href "/contact")
|
||||||
(hx-swap "innerHTML"))
|
(hx-get "/hx/contact")
|
||||||
|
(hx-target "closest div.hx-target")
|
||||||
|
(hx-swap "innerHTML"))
|
||||||
"(how to say hi to me)")))
|
"(how to say hi to me)")))
|
||||||
(p (span ((class "hx-target"))
|
(div ((class "hx-target"))
|
||||||
(a ((href "/very-earnest-disclaimer")
|
(p
|
||||||
(hx-get "/hx/very-earnest-disclaimer")
|
(a ((href "/very-earnest-disclaimer")
|
||||||
(hx-target "closest span")
|
(hx-get "/hx/very-earnest-disclaimer")
|
||||||
(hx-swap "innerHTML"))
|
(hx-target "closest div.hx-target")
|
||||||
|
(hx-swap "innerHTML"))
|
||||||
"(a very earnest disclaimer)")))
|
"(a very earnest disclaimer)")))
|
||||||
; (p (span ((class "hx-target"))
|
; (div ((class "hx-target"))
|
||||||
; (a ((href "/links")
|
; (p
|
||||||
; (hx-get "/hx/links")
|
; (a ((href "/links")
|
||||||
; (hx-target "closest span")
|
; (hx-get "/hx/links")
|
||||||
; (hx-swap "innerHTML"))
|
; (hx-target "closest div.hx-target")
|
||||||
; "(some things i think are neat)")))
|
; (hx-swap "innerHTML"))
|
||||||
|
; "(some things i think are neat)")))
|
||||||
(p (a ((href "static/license/license.txt"))
|
(p (a ((href "static/license/license.txt"))
|
||||||
"license"))
|
"license"))
|
||||||
(p (a ((href "/tagged"))
|
(p (a ((href "/tagged"))
|
||||||
|
|
|
||||||
|
|
@ -43,7 +43,7 @@
|
||||||
(h4 ,(second post))
|
(h4 ,(second post))
|
||||||
(p ,(third post))
|
(p ,(third post))
|
||||||
;; tagged posts will insert href instead of id
|
;; tagged posts will insert href instead of id
|
||||||
(a ((href ,(first post)))
|
(a ((href ,(~a "/" (first post))))
|
||||||
,(~a "go! to " (second post) " page")))))
|
,(~a "go! to " (second post) " page")))))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -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")))
|
||||||
|
|
@ -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 "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")))
|
'(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")))
|
||||||
|
|
@ -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 "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 "/unsettled/1")) "go! to beginning latl page")))
|
||||||
|
|
@ -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 "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 "/unsettled/1")) "go! to beginning latl page")))
|
||||||
|
|
@ -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 "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 "/settled/1")) "go! to feature-change-applier page")))
|
||||||
|
|
@ -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/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")))))
|
'(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")))))
|
||||||
|
|
@ -35,26 +35,26 @@ h1, h2, h3, h4, h5 {
|
||||||
font-family: 'Courier New', Courier, monospace;
|
font-family: 'Courier New', Courier, monospace;
|
||||||
color: var(--background-color);
|
color: var(--background-color);
|
||||||
background-color: var(--visited-link-color);
|
background-color: var(--visited-link-color);
|
||||||
padding: 2 10;
|
padding: 2px 10px;
|
||||||
}
|
}
|
||||||
|
|
||||||
h5 {
|
h5 {
|
||||||
margin: 2 0;
|
margin: 2px 0px;
|
||||||
}
|
}
|
||||||
|
|
||||||
span.noscript p {
|
div.noscript p {
|
||||||
font-family: 'Courier New', Courier, monospace;
|
font-family: 'Courier New', Courier, monospace;
|
||||||
font-size: small;
|
font-size: small;
|
||||||
}
|
}
|
||||||
|
|
||||||
span.hx-target section {
|
div.hx-target section {
|
||||||
border: solid 1px var(--link-color);
|
border: solid 1px var(--link-color);
|
||||||
border-radius: 4px;
|
border-radius: 4px;
|
||||||
padding: 5 10;
|
padding: 5px 10px;
|
||||||
margin: 3;
|
margin: 3px;
|
||||||
}
|
}
|
||||||
|
|
||||||
span.hx-target footer {
|
div.hx-target footer {
|
||||||
display: none;
|
display: none;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
@ -78,7 +78,7 @@ a:not(.ascii a):not(a[hx-get*="hx"])::before {
|
||||||
}
|
}
|
||||||
|
|
||||||
body {
|
body {
|
||||||
max-width: 600;
|
max-width: 600px;
|
||||||
margin: auto;
|
margin: auto;
|
||||||
font-size: medium;
|
font-size: medium;
|
||||||
font-family: sans-serif;
|
font-family: sans-serif;
|
||||||
|
|
@ -128,21 +128,21 @@ nav a {
|
||||||
}
|
}
|
||||||
|
|
||||||
p {
|
p {
|
||||||
margin: 12 0;
|
margin: 12px 0px;
|
||||||
}
|
}
|
||||||
|
|
||||||
ul.tag-list {
|
ul.tag-list {
|
||||||
display: flex;
|
display: flex;
|
||||||
flex-direction: row;
|
flex-direction: row;
|
||||||
flex-wrap: wrap;
|
flex-wrap: wrap;
|
||||||
margin: 6 0;
|
margin: 6px 0px;
|
||||||
padding: 0;
|
padding: 0px;
|
||||||
}
|
}
|
||||||
|
|
||||||
li.tag-item {
|
li.tag-item {
|
||||||
list-style-type: none;
|
list-style-type: none;
|
||||||
flex-basis: fit-content;
|
flex-basis: fit-content;
|
||||||
margin: 0 6;
|
margin: 0px 6px;
|
||||||
}
|
}
|
||||||
|
|
||||||
img {
|
img {
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue