point ci scripts to the farm

This reverts commit d47b443d45
and commit 5b0abcc8fe.

.woodpecker/build-and-deploy.yml

@@ -16,13 +16,13 @@ steps:
   deploy:
     image: alpine:latest
     secrets:
-      - deploy_ssh_key
+      - oxaliq_deploy_ssh
     commands:
       - echo "SETTING UP SSH"
       - apk add openssh-client
       - mkdir -p $HOME/.ssh
-      - ssh-keyscan -t ed25519 turtle.hup.is >> $HOME/.ssh/known_hosts
-      - echo "$DEPLOY_SSH_KEY" > $HOME/.ssh/id_ed25519
+      - ssh-keyscan -t ed25519 oxaliq.net >> $HOME/.ssh/known_hosts
+      - echo "$oxaliq_deploy_ssh" > $HOME/.ssh/id_ed25519
       - chmod 0600 $HOME/.ssh/id_ed25519
       - echo "SSH SETUP DONE"
       - echo "RUNNING DEPLOY SCRIPT"

.woodpecker/deploy.sh

@@ -1,7 +1,7 @@
 #!/bin/sh -e
 
 # hello variables
-host=deploy@turtle.hup.is
+host=root@oxaliq.net
 
 # organize the files
 echo "ORGANIZING THE FILES NICELY"
@@ -34,15 +34,15 @@ scp -r oxaliq "$host":~/
 # TODO make this not remove the old-working version until
 # the new version is confirmed working
 echo "SETTING OWNERSHIP AND PERMISSIONS"
-ssh $host 'sudo chown -R oxaliqdotnet:oxaliqdotnet oxaliq/'
-ssh $host 'sudo chmod -R 755 oxaliq/'
+ssh $host 'chown -R oxaliqdotnet:oxaliqdotnet oxaliq/'
+ssh $host 'chmod -R 755 oxaliq/'
 
 echo "REPLACING PREVIOUS DEPLOYMENT"
-ssh $host 'sudo rm -rf /srv/oxaliq || true'
-ssh $host 'sudo mv oxaliq /srv/.'
+ssh $host 'rm -rf /srv/oxaliq || true'
+ssh $host 'mv oxaliq /srv/.'
 
 echo "RESTARTING SERVICE"
-ssh $host 'sudo systemctl restart oxaliqdotnet.service'
+ssh $host 'systemctl restart oxaliqdotnet.service'
 
 echo "SUCCESS!"
 exit 0

archive/about.scm

@@ -8,8 +8,7 @@
        "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")
+    " (tsalagi/cherokee) land")
  (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
@@ -42,9 +41,15 @@
              "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")))
+         (small "-- get rid of all that \"sovereignty\" stuff, ew")))
+  ;; library bullet
+  (li (p "make everything a library and everyone a librarian"))
+  ;; end user programming bullet
+  (li (p "do things that aren't computer. compute more with regular computer ppl
+          and less with tech-brained ppl. most ppl know how to compute, and don't
+          need to know what is an abstract factory factory"))
   ;; neuroqueer bullet
-  (li (p "got a spicy brained, trans lady-fied experience. 
+  (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

archive/latl-primitives.scm

@@ -1,5 +1,6 @@
 '(article
-  ((id "latl-primitives"))
+  ((id "latl-primitives")
+   (class "composed-article"))
   ;; brief intro - restate the problem
   (section
    ((id "intro"))

archive/notes-from-rc.scm

@@ -0,0 +1,44 @@
+(article
+ ((id "oxaliq-at-rc"))
+ (hgroup
+  (h1 "oxaliq at rc")
+  (p (em "dispatches from the edge of my abilities")))
+ (section
+  ((id "week-1"))
+  (h2 "week 1")
+  (p "well, i'm here. at " (a ((href "https://recurse.com")) "recurse center") " very recent life events had me unsure if this would be possible. but, here i am! writing about my feelings, and putting the "
+     (a ((href "https://www.recurse.com/self-directives")) "self directives") " here, so i can reference them as i reflect")
+  (p (strong "work at the edge of yr abilities") (br)
+     "be ambitions about what you can achieve and honest in yr current capacity")
+  (p (strong "build yr volitional muscles") (br)
+     "practice making decisions based on intrinsic motivators, yr curiosity and joy")
+  (p (strong "learn generously") (br)
+     "seek support when needed, offer when asked, share, share, share yr interests yr struggles yr successes yr enthusiasm for others")
+  (p "it's funny. there are a lot of ways i feel less-than as a developer. in more than a few workplaces i've been shunted to the corner to figure things out on my own, because i am generally 'autodidactic' as a former boss called me. but, i have not felt free to share my enthusiasm or my struggles in professional contexts. i'm absolutely a generalist of the higher end of the stack, with no particular specialization and i ... have feelings ... about that. however, the larger impediment to my growth has been this feeling of isolation -- of needing to figure things out on my own")
+  (p "i came into this experience certain i was going to work on " (a ((href "/tagged/latl")) "latl") " but as the time to start my batch drew nearer and as the flood of new ideas came on during my first week, that certainty evaporated. dreaming up grand plans is not difficult for me; i am even occassionally honest enough about my capacity to take the lots of baby steps to get there. there were some themes tho, in evaluating the bubbling froth of ideas of where to put my energy for the next eleven weeks. and the most resonant were social utility and the potential of not-working-alone. while i'm at rc, i will be not-working-alone no matter what i do. but the latl idea is so niche that my explanation '(a dsl for conlangers) expanded into '(a racket-hosted domain specific language . for creating tools to construct human languages) into '(a domain-specific programming language . hosted in a technology designed around language oriented programming . treating linguistic data and procedures to manipulate that data homoiconically . allowing for the definition of phonology & phonotactics, lexicon, morphosyntax -- if you believe in that sort of thing --, pragmatics and hopefully even semantics of a given language in the same program as the history of that language's change and any resulting languages in the family). which i still think is really cool! but it's an idea that's been tickling me for years, and it's maybe too niche for this moment in my life. too difficult to associate with the work of other's here. and even worse1 tho i really love the hobby of conlanging and the creativity that tools like this could engender..., the social utility piece just isn't there for me")
+  (p "okay, so a new idea. " (a ((href "/tagged/uf-library")) "lending library software") ". but for scrappy community projects, not powerful institutions. and with the ability for any library member to be a lendor. and any lendor to lend to any member of any library they'd like for as long as they like. similar to fediverse but for physical stuff. this is definitely an idea too ambitious for me to achieve in the next eleven weeks (and maybe at all.) but, maybe if i tell myself this is the goal i'm working towards i can learn a lot from building a piece of this idea. and maybe if i talk about it enough it'll inspire others to contribute to making it something more powerful than the nebulous thing in my head and maybe not")
+  (p "also! i want to use this project as a kind of curriculum. i might not actually write any code that goes into any eventual project that exists. but, what would i need to deeply understand to achieve this? obviously there's some networking involved, clients talking to servers. servers talking to servers. ")
+  (p (strong "so! learning goals scoped to my time at rc:"))
+  (ul
+   (li "stream 1: network. to begin with i want to focus on networking from a lower level than i am used to. no frameworks, just building a server -- i have to think about protocol here, depending on how much i want to focus on the federation thing i might want to do rpc and not http. but either way, there are internals that i have soared over in my abstraction-glider")
+   (li "stream 2: database. i take for granted database connections. i take for granted that someone on my team will have a better knowledge of the query scheduler or more excitement about cte's. exactly what this looks like also depends on the architecture (does every client maintain it's own state? or do member/donor's collections live on a home server). whatever the case, i want to spend less time in abstractions and more in db internals")
+   (li "stream 3: extracurriculurs. i still want to give myself some unstructured time to finally work through the back chapters of sicp, compose goofy little orca pieces, talk about politics and human-computer interaction, and work through the propagation networks in clojure side project. my time here is finite, but having some side-projects helps me from falling into ruts"))
+  (p "altho this is still very fuzzy, narrowing the scope a tiny bit feels good. i've been riding high on excitement all week, and this weekend i definitely crashed hard into feelings of self doubt. i could absolutely engross myself in working through someone else's curriculum for this time, but that's not what any of this is about. i'll maybe post here mid week 2 as my own curriculum starts to cohere")
+  (p "i think that's all i've got for the first week. it's time to get working"))
+ (section
+  ((id "week-2"))
+  (hgroup
+   (h2 "week 2")
+   (p (em "drinking-from-firehose intensifies")))
+  (p "ok, there's a lot going on here. i may need to start making some decisions about where to focus my time. i've got a pretty full schedule and have done at least a couple hours of head-down coding each day. the problem is stuff like... a creative coding thing. i wanted to spend a couple hours each week just making beep-boop noises in some esoteric live-coding environments. ("
+     (a ((href "https://100r.co/site/orca.html")) "orca") " and " (a ((href "https://overtone.github.io/")) "overtone")
+     "). there's a new prompt each week, i open up my tools (which themselves are somewhat newt o me--i've only done little things with them. but i'm on a relatively new system (new to linux and using mint on one machine and nixos on another) and i haven't entirely figured out how to patch midi messages from one process to another. so i'll go read about pipewire and now i'm building some programs to help me create pipewire patches and i'm racing through this process wondering if this is what i want to be doing right now. i don't want to just spend a couple hours building dependencies for the tools i intend to use to creatively code, i want to understand what i'm doing. but understanding alsa wasn't really the point of the prompt -- so i need to either slow down and dive deep or pivot to something else")
+  (p "i guess that's kinda how i wound up focusing more on this project than i intended this week: "
+     (a ((href "https://git.bunk.computer/oxaliq/prop-net")) "propagation networks in clojure")
+          ". it's fun--it's challenging enough that i'm learning more about the language than i would just following a tutorial. i'm also convincing myself that this is part of the curriculum. i do an intro project to learn the language, this weekend and into next week i put it behind a server. next week i see if i can find someone interested in helping with a rough graph manipulation gui frontend. by next weekend, i package and deploy it--in whatever state it happens to be in.")
+  (p "and i think on week 4 i assess whether to continue building the concepts in the paper or shift my focus to uf-library")
+  (p "okay, so more thinkings from the week and more goals for the next. the other streams have been some thinking with people on human computer interaction (next week we're talking end user programming yay!) the beginnings of a group to talk about doing computer in ways that are more socially oriented, and some study groups--working through the wizard book, the missing cs semester course, and a 'tool time' group as well. both of these are building on some things that i'm already pretty comfortable with and it's nice to have a group to work through the back half of the wizard book + the shell,git,vim tricks i haven't figured out for myself yet and the debugging and profiling stuff i know too little about and the data wrangling techniques that make logs so powerful. excited for tool time too! gonna do some ide hacking maybe? so i've got some homework to that end for the weekend, plus i think i want to do a little spreadsheet side project that (if it works decently) i'd like to present on next week")
+  (p "o! and to do way more pairing. i haven't gotten up to daily pairing sessions yet, but that's definitely something i want to hold myself to next week! leaning on pairing-bot for sure, but also reaching out and being open to impromptu pairing sessions. (plus some pairing sessions with partners on projects outside of rc)")
+  (p "i think that's a wrap for this week's notes. feeling more secure, but also less settled"))
+ ;; -- week-3
+ )

archive/now.scm

@@ -6,34 +6,29 @@
   (hgroup
    (h3 "read")
    (p "stuff i'm taking in"))
-  (ul (li "the paying guests, sarah waters")
-      (li "females, andrea long chu")
-      (li "palo alto, malcolm harris")
-      (li "desolation's flower, ragana")     
-      (li "his happiness shall come first even though we are suffering, backxwash")
-      (li "salesforce, lauren bousfield")
-      (li "el mal querer, rosalía")
-      (li "land and freedom, alex knight")
-      (li "guacamelee, drinkbox")))
+  (ul
+   (li "palo alto, malcolm harris")
+   (li "paul takes the form of a mortal girl, andrea lawlor")
+   (li "annihilation, jeff vandermeer")
+   (li "let the right one in, tomas alfredson")
+   (li "the limits of control, jim jarmusch")
+   (li "the matrices, wachowskis")))
  (section
   (hgroup
    (h3 "eval")
    (p "stuff i'm crunching on"))
-  (ul (li "winter garden chores")
-      (li "winter sweets cooking and eating")
-      (li "starting a community maker space")
-      (li "going on more hikes")
-      (li "body stuff")))
+  (ul
+   (li "starting a community maker space")
+   (li "mostly just spending all my time moving")
+   (li "skating again")))
  (section
   (hgroup
    (h3 "print")
    (p "stuff i'm putting out"))
-  (ul (li "some basic sewing stuff")
-      (li "relearning how to draw")))
+  (ul (li "doing more sewing")
+      (li "baby's first letterpress")))
  (section
   (hgroup
    (h3 "loop")
    (p "stuff what's on the horizon"))
-  (ul (li "being in the northeastern us")
-      (li "putting my labor on the market")
-      (li "maybe making some music again?"))))
+  (ul (li "putting my labor on the market"))))

archive/pre-introducing-uf-library.scm

@@ -0,0 +1,35 @@
+(article
+ ((id "pre-introducing-uf-library"))
+ (hgroup
+  (h1 "pre-introducing uf-library")
+  (p (em "what if you were a library?")))
+ (section
+  ((id "quick-story"))
+  (h2 "part 1: a quick story")
+  (p "i volunteer at a tool library. it's a scrappy project that technically fits the non-profit designation, but has managed to cultivate a do-it-together ethos. there are numerous working groups devoted to tool maintenance, educational workshops, community outreach, developing an on-site print shop, and much more. and we do it all on a pretty slim budget with almost entirely unpaid labor")
+  (p "i also love physical media. i recently had to pack most of my posessions into storage for a short time and was struck by the high percentage of my belongings that are physical media. (yet, i always feel like i'm not looking hard enough for new stuff to read or listen to!) floating out amongst my friends are probably a dozen books -- some of which i've maybe forgotten the location of -- but i've been increasingly feeling that more of them should be circulating. what if i made my little media collection a library for my friends?"))
+ (section
+  ((id "software"))
+  (h2 "part 2: software")
+  (p "there's some foss library software out there :"
+     (a ((href "https://koha-community.org/")) "koha ils") ", "
+     (a ((href "https://evergreen-ils.org/")) "evergreen ils") ", "
+     (a ((href "https://openbiblio.de/")) "openbiblio") " (and more.) the only tool or 'thing' oriented software i know of are the foss (unfinished) "
+     (a ((href "https://github.com/chicago-tool-library/circulate")) "circulate") " by the chicago tool library and the closed-source "
+     (a ((href "https://myturn.com/")) "myturn")
+  ". i'm not interested in critiquing existing software here, except to say that none of the things i've seen support the kind of library i want to become")
+  (p "i want to be a library amongst libraries. i want my friends and communities to add their collections to the library network and to lend and borrow and restore and maintain more than they ever could as individuals lending and borrowing amongst friends. and i don't care about the distinction between traditional media-library *and* library-of-things/tool-library models. i want library as community platform. i want applied library sciences")
+  (p "wait that wasn't about software. that was about human networking. but the software to represent this kind of social technology doesn't yet exist. and i think it should. and i think it should be as lean and easy to deploy and administer as possible")
+  (p "i don't have the capacity to build this vision at this moment, but i think i can build some of it and build the capacity to build more.
+      i'm participating in "
+     (a ((href "https://recurse.com")) "recurse center hacking retreat") " and " (a ((href "/tagged/rc")) "i'm writing about my rc experience")
+     ". that'll be more focused on the 'building my capacity' piece. a lot of that will be about thinking through stuff that doesn't wind up being ultimately implemented. i'll write more "
+     (a ((href "/tagged/uf-library")) "about building library") " separately. (of course there's going to be a lot of interleaving)")
+  (p "the thing to do before hacking next week is to look at the protocols available. (the working-name 'uf-library' is a contraction of 'usufruct', a social-good-oriented property model (can't be giving things latin names tho), but it could also be 'ur-favorite' or 'user-friendly' (what's friendlier than being engaged in community?))"))
+ (section
+  ((id "dreaming"))
+  (h2 "part 3: dreaming")
+  (p "this is an experiment. and kind of a long-shot one at that. i hope that it inspires similar experiments, regardless of the success of this iteration. (there might even already be a project out there that hit on the same idea, however it appears to be abandoned (and a dao))")
+  (p "if this is interesting to you "
+     (a ((href "/contact")) "let's talk about it!")
+     " otherwise, wish me luck :)")))

data/atom.csv

@@ -1,4 +1,9 @@
 title,link,summary,published,updated
+notes from rc,https://oxaliq.net/unsettled/notes-from-rc,dispatches from the edge of my abilities,2024-04-01T13:02:09,2024-04-05T13:48:39
+pre-introducing uf-library,https://oxaliq.net/unsettled/pre-introducing-uf-library,what if you were a library?,2024-04-01T13:04:37,
+notes from rc,https://oxaliq.net/unsettled/notes-from-rc,dispatches from the edge of my abilities,2024-04-01T13:02:09,
+now,https://oxaliq.net/now,what the author of this site is up to (not computer things),2024-01-18T22:22:03,2024-03-23T16:29:58
+about,https://oxaliq.net/about,about the bitch who made this site,2024-01-18T21:56:45,2024-03-23T16:29:13
 latl-primitives_what-is-language,https://oxaliq.net/unsettled/latl-primitives_what-is-language,thinking about language from the perspective of latl,2024-02-25T21:36:03,
 latl-primitives,https://oxaliq.net/unsettled/latl-primitives,designing the primitives to be provided by latl,2024-02-25T21:33:06,
 feature-change-applier,https://oxaliq.net/settled/1,a first attempt at a conlanging tool,2024-01-25T16:26:10,

data/root.csv

@@ -1,6 +1,6 @@
 id,headline,description,history->
-now,now,what the author of this site is up to (not computer things),2024-01-18T22:22:03
+now,now,what the author of this site is up to (not computer things),2024-03-23T16:29:58,2024-01-18T22:22:03
 contact,contact,how to talk to me,2024-01-18T22:21:26
 very-earnest-disclaimer,very earnest disclaimer,being earnest in the streets,2024-01-18T22:20:50
 this,this,the site this bitch made,2024-01-18T22:19:43
-about,about,about the bitch who made this site,2024-01-18T21:56:45
+about,about,about the bitch who made this site,2024-03-23T16:29:13,2024-01-18T21:56:45

data/tagged.csv

@@ -4,4 +4,8 @@ latl,unsettled/latl-primitives_what-is-language,unsettled/latl-primitives,unsett
 conlang,unsettled/latl-primitives,settled/1,unsettled/1
 programming-language,unsettled/latl-primitives,unsettled/1
 tool,settled/1
-linguistics,unsettled/latl-primitives_what-is-language
+linguistics,unsettled/latl-primitives_what-is-language
+rc,unsettled/pre-introducing-uf-library,unsettled/notes-from-rc
+uf-library,unsettled/pre-introducing-uf-library,unsettled/notes-from-rc
+diary,unsettled/notes-from-rc
+library,unsettled/pre-introducing-uf-library

data/unsettled.csv

@@ -1,4 +1,6 @@
 id,headline,description,history->
+pre-introducing-uf-library,pre-introducing uf-library,what if you were a library?,2024-04-01T13:04:37
+notes-from-rc,notes from rc,dispatches from the edge of my abilities,2024-04-05T13:48:39,2024-04-01T13:02:09
 latl-primitives_what-is-language,latl-primitives_what-is-language,thinking about language from the perspective of latl,2024-02-25T21:36:03
 latl-primitives,latl-primitives,designing the primitives to be provided by latl,2024-02-25T21:33:06
 1,beginning latl,beginning the process of thinking through an environment for conlanging and other language shenanigans,2024-01-18T22:39:00

modify.rkt

@@ -1,7 +1,7 @@
 #lang cli
 
 (require (only-in racket/date current-date date->string date-display-format)
-         (only-in racket/string string-join non-empty-string?)
+         (only-in racket/string string-join string-split non-empty-string?)
          (only-in racket/list first second third fourth fifth last take drop flatten add-between)
          (only-in racket/format ~a)
          (only-in racket/exn exn->string)
@@ -27,7 +27,7 @@
 
 ;; example
 ;; modify -input-file in-progress/beginning-latl.scm --resource-type unsettled
-;; --headline "Beginning LATL" 
+;; --headline "Beginning LATL"
 ;; publish -i in-progress/beginning-latl.scm -r unsettled -l "Beginning LATL"
 
 (help (usage "modify is here to update existing posts with new content."))
@@ -40,7 +40,7 @@
                        [(equal? t "unsettled") "unsettled"]
                        [(equal? t "root") "root"]
                        [else (error 'failure "couldn't recognize resource. please use one of 'settled' 'unsettled' 'root'")])))
-       
+
 (flag (input #:param [input ""] i)
       ("-i" "--input-file" "file to publish")
       (input (if (file-exists? i)
@@ -66,8 +66,8 @@
        [update-time (date->string (current-date) (date-display-format 'iso-8601))]
        [rollback-thunks (list)])
    (displayln "running modify")
-   
-   
+
+
    ;; getting existing file ports
    ;; ---------------------------
    ;; if any of these fail to match, exit modify
@@ -75,19 +75,19 @@
    ;; this throws an exception if the file does not exist, but it must be manually
    ;; truncated. using #:exists 'must-truncate guarantees file exists, but truncates
    ;; prior to data being read from file
-   
+
    ;; locate existing post in source
    ;; (. -> . input-port? output-port?)
    (define (get-source-ports)
-     (let ([file-handle  (path-add-extension
-       (if (equal? r-type "root")
-           (if x-test
-               (build-path "publish-test" "source" l-head)
-               (build-path "source" l-head))
-           (if x-test
-               (build-path "publish-test" "source" r-type l-head)
-               (build-path "source" r-type l-head)))
-       #".scm")])
+     (let*
+         ([file-id (last (string-split n-in "/"))]
+          [file-handle (if (equal? r-type "root")
+                           (if x-test
+                               (build-path "publish-test" "source" file-id)
+                               (build-path "source" file-id))
+                           (if x-test
+                               (build-path "publish-test" "source" r-type file-id)
+                               (build-path "source" r-type file-id)))])
        (values
         (open-input-file file-handle)
         (open-output-file file-handle #:exists 'update))))
@@ -137,8 +137,8 @@
                              (build-path "data" "make-atom"))
                          #".scm")])
        (open-input-file file-handle)))
-     
-   
+
+
    (define (handle-error-getting-file expn)
      (displayln "handle-error-getting-file")
      (displayln expn)
@@ -175,9 +175,9 @@
          (lambda (tag-row)
            (member match-id tag-row))
          tag-table))))
-        
+
    ;; ------------------------------
-   
+
    ;; rollback execution
    ;; ------------------
    ;; all handlers of any exception raised after writes start occurring must evaluate
@@ -243,7 +243,7 @@
                                    (write-to-file-with-retries out-port content is-print))])
        (write-to-file out-port content #:print-mode? is-print)))
    ;; ------------
-    
+
    ;; resource-replacement
    ;; --------------------
    ;; replace resource in source/<type>/id
@@ -265,7 +265,7 @@
                                      res-table)
                               3)])
            (append-post-footer new-content-sans-footer (source-url r-type id) tag-list history-list)))))
-   
+
 
    ;; replace-resource compose chain expression
    (define (replace-resource source-input-port source-output-port make-new-content id)
@@ -300,7 +300,7 @@
    (define (get-publish-time res-table id)
      (last (findf (lambda (row) (equal? (first row) id))
                     res-table)))
-   
+
    ;; update-res-table compose chain expression
    (define (update-res-table old-table rt-output-port id)
      (let* ([new-table (update-res-table-with-modification old-table id)]
@@ -321,7 +321,7 @@
    ;; atom-table update
    ;; -----------------
    (define (update-atom-table at-input-port at-output-port res-link)
-     (let ([old-table (csv->list at-input-port)])                                       
+     (let ([old-table (csv->list at-input-port)])
        (lambda (accumulator)
          (let* ([res-row (hash-ref accumulator 'resource)]
                 [desc (third res-row)]
@@ -355,7 +355,7 @@
    (define (compose-accumulator rb-thunks)
      (hash 'rb-thunks rb-thunks))
 
-     
+
 
    ;; run modify with exception handlers
    ;; ----------------------------------

oxaliq.net.rkt

@@ -73,15 +73,15 @@
            [(eq? api-type 'httpx) "static/fragment"]
            [(eq? api-type 'page) "static/page"]
            [else (error "api-type ~a not recognized" api-type)])])
-         ((make-path-no-param root-folder #".html") t)))
+    ((make-path-no-param root-folder #".html") t)))
 
 (define (make-static-path-id-param api-type t id)
-    (let ([root-folder 
+  (let ([root-folder 
          (cond
            [(eq? api-type 'httpx) "static/fragment"]
            [(eq? api-type 'page) "static/page"]
            [else (error "api-type ~a not recognized" api-type)])])
-      ((make-path-id-param root-folder #".html") t id)))
+    ((make-path-id-param root-folder #".html") t id)))
 
 
 
@@ -163,9 +163,9 @@
   (dispatch-rules
    [("hx" "home") (respond-resource-with-processor 'httpx "root" xexpr-file->res)]
    [("hx" "settled") (respond-resource-with-processor 'httpx "settled" xexpr-file->res)]
-   [("hx" "settled" (integer-arg)) (respond-resource-with-processor 'httpx "settled" xexpr-file->res)]
+   [("hx" "settled" (string-arg)) (respond-resource-with-processor 'httpx "settled" xexpr-file->res)]
    [("hx" "unsettled") (respond-resource-with-processor 'httpx "unsettled" xexpr-file->res)]
-   [("hx" "unsettled" (integer-arg)) (respond-resource-with-processor 'httpx "unsettled" xexpr-file->res)]
+   [("hx" "unsettled" (string-arg)) (respond-resource-with-processor 'httpx "unsettled" xexpr-file->res)]
    [("hx" "tagged") (respond-resource-with-processor 'httpx "tagged" xexpr-file->res)]
    [("hx" "tagged" (string-arg)) (respond-resource-with-processor 'httpx "tagged" xexpr-file->res)]
    [("hx" (string-arg)) (respond-resource-with-processor 'httpx "root" xexpr-file->res)]
@@ -200,9 +200,9 @@
    [("") (respond-resource-with-processor 'page "" make-page)]
    [("home") (respond-resource-with-processor 'page  "" make-page)]
    [("settled") (respond-resource-with-processor 'page  "settled" make-page)]
-   [("settled" (integer-arg)) (respond-resource-with-processor 'page "settled" make-page)]
+   [("settled" (string-arg)) (respond-resource-with-processor 'page "settled" make-page)]
    [("unsettled") (respond-resource-with-processor 'page "unsettled" make-page)]
-   [("unsettled" (integer-arg)) (respond-resource-with-processor 'page  "unsettled" make-page)]
+   [("unsettled" (string-arg)) (respond-resource-with-processor 'page  "unsettled" make-page)]
    [("tagged") (respond-resource-with-processor 'page "tagged" make-page)]
    [("tagged" (string-arg)) (respond-resource-with-processor 'page "tagged" make-page)]
    [((string-arg)) (respond-resource-with-processor 'page "root" make-page)]

publish.rkt

@@ -142,8 +142,8 @@
          [resources (make-weak-hash)]
          [posts (map (lambda (lookup/id)
                       (if (hash-has-key? post-lookup lookup/id)
-                          (hash-ref post-lookup lookup/id)
-                          (get-post-data lookup/id resources post-lookup x)))
+                          (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)))))
                     (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)]

source/about.scm

@@ -1 +1 @@
-'(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 (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/about.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-18T21:56:45")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))
+'(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") (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 "-- get rid of all that \"sovereignty\" stuff, ew"))) (li (p "make everything a library and everyone a librarian")) (li (p "do things that aren't computer. compute more with regular computer ppl\n          and less with tech-brained ppl. most ppl know how to compute, and don't\n          need to know what is an abstract factory factory")) (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 (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/about.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-18T21:56:45modified: 2024-03-23T16:29:13\n")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))

source/cat.scm

@@ -0,0 +1,48 @@
+(article
+ ((id "cat"))
+ (h1 "cat care")
+ (p "hi! thank you so much for being part of caring for my dear feline! here is a trove of altogether too much information. please read what feels necessary and the rest will be here if you ever need it <3")
+ (section
+  ((id "contacts"))
+  (h2 "contacts")
+  (p "if anything happens and you can't reach me, vet numbers to know are:")
+  (ul
+   ((id "vets"))
+   (li
+    (p "primary vet is Ann Schneider, DVM at Open Door Veterinary Care")
+    (ul (li "phone: 828 417 7768")
+        (li "address: 1419 patton ave")
+        (li (a ((href "https://opendoorveterinarycare.com"))
+               "website"))))
+   (li
+    (p "emergency vet is medvet. (she's never needed to go, but i've gone there with other cats")
+    (ul (li "phone: 828 665 4399")
+        (li "address: 677 brevard rd")
+        (li (a ((href "https://www.medvet.com/location/asheville"))
+               "website"))))))
+ (section
+  ((id "food-and-water"))
+  (hgroup
+   (h2 "food and water")
+   (p (em "the most necessary of the necessary stuff")))
+  (p "she currently takes a heaping 1/4 cup of kibble at 11am and 11pm daily. you can adjust the exact times to your life, as long as there about 12 hrs apart. feeding her closer to your bedtime will mean that she doesn't get fussy in the morning and demand an early breakfast")
+  (p "the food she's been getting now is a blend of fancy orijen 6 fish adult cat food and purina cat chow complete. if yr starting to run out i can order some to be delivered or you can pick up more of the purina at petsmart")
+  (p "if the water fountain is too annoying to deal with, you can use a bowl - please empty and refresh it during one of her meals")
+  (p "if the water fountain is not too annoying: the water level should be between just above and just below the 'snout' window. i've had to take it apart and rinse all the pieces at least once a week with three cats sharing it, you'll probably not have to do that as much. the filter should be changed mid month ~15th. the manual is in the box or you can ask me if it's being weird"))
+ (section
+  ((id "medicine"))
+  (h2 "medicine")
+  (p "the thing she definitely needs is selamectin applied on the last day of the month. the applicator is a little weird--you twist the tip to break the internal seal and squeeze to apply--there's no cap on it. apply a full applicator to the base of her neck near the collar line while spreading her fur out of the way. wash yr hands and try not to touch her for a few hours after applying")
+  (p "you shouldn't need to deal with this, but *if* she starts scratching her ears incessantly, you can apply some of the ear drops daily for a few days. it works best if you can get them in to her inner ear and massage the base of her ear for a few seconds. she doesn't like this and will try to splash the stuff out of her ear and onto you so watch out! (she hasn't had ear problems in a few years, so you can probably just ignore this)"))
+ (section
+  ((id "fun-stuff"))
+  (h2 "fun stuff")
+  (p "brushing! she's got dense fur, so it helps to brush (altho she's never had hairballs so it's not like medically necessary.) she's a typical cat in that she enjoys being brushed until she gets overstimulated and starts attacking the comb")
+  (p "toys! she loves a cat dancer, this is the best way to get her energy out if she's being annoying. she also loves the yellow woven toy and the taco and she might make mournful yowls at you from across the house to let you know she wants to share her favorite toys with you. if you're feeling up to it, you can periodically hide some of her toys to keep her from getting bored with the ones she has")
+  (p "treats! churu's a favorite, but you can also use some of the solid treats to work on her tricks if you like!")
+  (p "tricks! (she's not been doing them a lot lately so she'll probably get really excited and meow and walk in circles for a moment before she settles down and does the things)")
+  (ul (li "'sit': hand signal is fist pointed up, slightly above her ✊")
+      (li "'speak': hand signa is pointing to your mouth")
+      (li "'loaf' (it means lie down): hand signal is a pinching shape pointed down in front of her" (span ((style "rotate: -90deg;")) "🤏"))
+      (li "'touch' (it's basically a headbutt): hand signal is a fist pointed toward her 🤛")))
+ (p "that's all i can think of right now! but of course call me if you've got any questions and if i think of anything i'll let you know and add it here as well. thanks again for taking care of her! please send me lots of pictures!"))

source/header.scm

@@ -1,4 +1,11 @@
 (header
+ ;; rel="me" verification links
+ (a ((href "https://git.bunk.computer/oxaliq")
+     (rel "me")))
+ (a ((href "https://mastodon.social/@oxaliq")
+     (rel "me")))
+ (a ((href "https://github.com/sorrelbri")
+     (rel "me")))
  (div
   ((class "banner")
    (hx-get "/hx/home")

source/now.scm

@@ -1 +1 @@
-'(body (section (hgroup (h2 "now") (p "a snapshot of the (mostly) non-computer things of import")) (section (hgroup (h3 "read") (p "stuff i'm taking in")) (ul (li "the paying guests, sarah waters") (li "females, andrea long chu") (li "palo alto, malcolm harris") (li "desolation's flower, ragana") (li "his happiness shall come first even though we are suffering, backxwash") (li "salesforce, lauren bousfield") (li "el mal querer, rosalía") (li "land and freedom, alex knight") (li "guacamelee, drinkbox"))) (section (hgroup (h3 "eval") (p "stuff i'm crunching on")) (ul (li "winter garden chores") (li "winter sweets cooking and eating") (li "starting a community maker space") (li "going on more hikes") (li "body stuff"))) (section (hgroup (h3 "print") (p "stuff i'm putting out")) (ul (li "some basic sewing stuff") (li "relearning how to draw"))) (section (hgroup (h3 "loop") (p "stuff what's on the horizon")) (ul (li "being in the northeastern us") (li "putting my labor on the market") (li "maybe making some music again?")))) (footer (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/now.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:22:03")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))
+'(body (section (hgroup (h2 "now") (p "a snapshot of the (mostly) non-computer things of import")) (section (hgroup (h3 "read") (p "stuff i'm taking in")) (ul (li "palo alto, malcolm harris") (li "paul takes the form of a mortal girl, andrea lawlor") (li "annihilation, jeff vandermeer") (li "let the right one in, tomas alfredson") (li "the limits of control, jim jarmusch") (li "the matrices, wachowskis"))) (section (hgroup (h3 "eval") (p "stuff i'm crunching on")) (ul (li "starting a community maker space") (li "mostly just spending all my time moving") (li "skating again"))) (section (hgroup (h3 "print") (p "stuff i'm putting out")) (ul (li "doing more sewing") (li "baby's first letterpress"))) (section (hgroup (h3 "loop") (p "stuff what's on the horizon")) (ul (li "putting my labor on the market")))) (footer (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/now.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:22:03modified: 2024-03-23T16:29:58\n")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))

source/tagged/conlang.scm

@@ -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 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/latl-primitives")) "go! to latl-primitives page")) (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 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/unsettled/latl-primitives")) "go! to latl-primitives page")) (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")))

source/tagged/diary.scm

@@ -0,0 +1 @@
+'(article (hgroup (h1 "stuff what's tagged like " (em "#diary")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#diary")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "notes from rc") (p "dispatches from the edge of my abilities") (a ((href "/unsettled/notes-from-rc")) "go! to notes from rc page")))

source/tagged/index.scm

@@ -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")) (div ((class "post-preview")) (h4 "latl") (p "posts about latl") (a ((href "/tagged/latl")) "go! to latl page")) (div ((class "post-preview")) (h4 "conlang") (p "posts about conlang") (a ((href "/tagged/conlang")) "go! to conlang page")) (div ((class "post-preview")) (h4 "programming-language") (p "posts about programming-language") (a ((href "/tagged/programming-language")) "go! to programming-language page")) (div ((class "post-preview")) (h4 "tool") (p "posts about tool") (a ((href "/tagged/tool")) "go! to tool page")) (div ((class "post-preview")) (h4 "linguistics") (p "posts about linguistics") (a ((href "/tagged/linguistics")) "go! to linguistics page")))
+'(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")) (div ((class "post-preview")) (h4 "latl") (p "posts about latl") (a ((href "/tagged/latl")) "go! to latl page")) (div ((class "post-preview")) (h4 "conlang") (p "posts about conlang") (a ((href "/tagged/conlang")) "go! to conlang page")) (div ((class "post-preview")) (h4 "programming-language") (p "posts about programming-language") (a ((href "/tagged/programming-language")) "go! to programming-language page")) (div ((class "post-preview")) (h4 "tool") (p "posts about tool") (a ((href "/tagged/tool")) "go! to tool page")) (div ((class "post-preview")) (h4 "linguistics") (p "posts about linguistics") (a ((href "/tagged/linguistics")) "go! to linguistics page")) (div ((class "post-preview")) (h4 "rc") (p "posts about rc") (a ((href "/tagged/rc")) "go! to rc page")) (div ((class "post-preview")) (h4 "uf-library") (p "posts about uf-library") (a ((href "/tagged/uf-library")) "go! to uf-library page")) (div ((class "post-preview")) (h4 "diary") (p "posts about diary") (a ((href "/tagged/diary")) "go! to diary page")) (div ((class "post-preview")) (h4 "library") (p "posts about library") (a ((href "/tagged/library")) "go! to library page")))

source/tagged/latl.scm

@@ -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 "latl-primitives_what-is-language") (p "thinking about language from the perspective of latl") (a ((href "/latl-primitives_what-is-language")) "go! to latl-primitives_what-is-language page")) (div ((class "post-preview")) (h4 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/latl-primitives")) "go! to latl-primitives 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 "#latl")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#latl")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "latl-primitives_what-is-language") (p "thinking about language from the perspective of latl") (a ((href "/unsettled/latl-primitives_what-is-language")) "go! to latl-primitives_what-is-language page")) (div ((class "post-preview")) (h4 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/unsettled/latl-primitives")) "go! to latl-primitives 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")))

source/tagged/library.scm

@@ -0,0 +1 @@
+'(article (hgroup (h1 "stuff what's tagged like " (em "#library")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#library")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "pre-introducing uf-library") (p "what if you were a library?") (a ((href "/unsettled/pre-introducing-uf-library")) "go! to pre-introducing uf-library page")))

source/tagged/linguistics.scm

@@ -1 +1 @@
-'(article (hgroup (h1 "stuff what's tagged like " (em "#linguistics")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#linguistics")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "latl-primitives_what-is-language") (p "thinking about language from the perspective of latl") (a ((href "/latl-primitives_what-is-language")) "go! to latl-primitives_what-is-language page")))
+'(article (hgroup (h1 "stuff what's tagged like " (em "#linguistics")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#linguistics")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "latl-primitives_what-is-language") (p "thinking about language from the perspective of latl") (a ((href "/unsettled/latl-primitives_what-is-language")) "go! to latl-primitives_what-is-language page")))

source/tagged/programming-language.scm

@@ -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 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/latl-primitives")) "go! to latl-primitives 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 "#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 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/unsettled/latl-primitives")) "go! to latl-primitives 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")))

source/tagged/rc.scm

@@ -0,0 +1 @@
+'(article (hgroup (h1 "stuff what's tagged like " (em "#rc")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#rc")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "pre-introducing uf-library") (p "what if you were a library?") (a ((href "/unsettled/pre-introducing-uf-library")) "go! to pre-introducing uf-library page")) (div ((class "post-preview")) (h4 "notes from rc") (p "dispatches from the edge of my abilities") (a ((href "/unsettled/notes-from-rc")) "go! to notes from rc page")))

source/tagged/uf-library.scm

@@ -0,0 +1 @@
+'(article (hgroup (h1 "stuff what's tagged like " (em "#uf-library")) (p (em "everything (or maybe just some things) i've ever said about " (strong "#uf-library")))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "pre-introducing uf-library") (p "what if you were a library?") (a ((href "/unsettled/pre-introducing-uf-library")) "go! to pre-introducing uf-library page")) (div ((class "post-preview")) (h4 "notes from rc") (p "dispatches from the edge of my abilities") (a ((href "/unsettled/notes-from-rc")) "go! to notes from rc page")))

source/unsettled/index.scm

@@ -1 +1 @@
-'(article (hgroup (h1 "unsettled thoughts") (p (em "just doing some thinking aloud"))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "latl-primitives_what-is-language") (p "thinking about language from the perspective of latl") (a ((href "/unsettled/latl-primitives_what-is-language")) "go! to latl-primitives_what-is-language page")) (div ((class "post-preview")) (h4 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/unsettled/latl-primitives")) "go! to latl-primitives 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 "unsettled thoughts") (p (em "just doing some thinking aloud"))) (h3 "the thoughts") (div ((class "post-preview")) (h4 "pre-introducing uf-library") (p "what if you were a library?") (a ((href "/unsettled/pre-introducing-uf-library")) "go! to pre-introducing uf-library page")) (div ((class "post-preview")) (h4 "notes from rc") (p "dispatches from the edge of my abilities") (a ((href "/unsettled/notes-from-rc")) "go! to notes from rc page")) (div ((class "post-preview")) (h4 "latl-primitives_what-is-language") (p "thinking about language from the perspective of latl") (a ((href "/unsettled/latl-primitives_what-is-language")) "go! to latl-primitives_what-is-language page")) (div ((class "post-preview")) (h4 "latl-primitives") (p "designing the primitives to be provided by latl") (a ((href "/unsettled/latl-primitives")) "go! to latl-primitives 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")))

source/unsettled/latl-primitives.scm

@@ -1 +1 @@
-'(body '(article ((id "latl-primitives")) (section ((id "intro")) (hgroup (h1 "what must be true of latl primitives") (p (em "what will latl need to " (u "do") " out of the box?"))) (p "i've talked a little about " (a ((href "/unsettled/1")) "conlanging and latl") " previously here. the short version is this: making languages (for theoretical conscious beings) is fun! it's been a consistent hobby and artistic pursuit for me for much of my life. i've had different approaches from making extremely regular languages, to simulating the evolution of a family of spoken languages, to a family of synthesizer languages for a fractured machine society. every language project requires keeping track of a dictionary and a grammar (even if they never become more than quick sketches) and any sufficiently involved project can benefit from tools for generating new words that fit a language's 'phonotactics', generating derived words based on grammatical rules, simulating language change over time. conlanging is a hobby with enough overlap with computation, that some conlangers have created tools for some of these tasks. my own projects have become too ambitious to have my work live in spreadsheets over here and latex files over there and text files with the defintions i provide to web-based tools somewhere else entirely. i want to build on the work of those came before and create a substrate upon which any tool a conlanger needs could be built and in which i can define the entirety of a language in one system.") (p "at it's base latl will be a tool for operating on languages, invented (or otherwise... maybe.) it helps then to think of the sorts of things that encompass language. spoken and signed languages will be the assumed base case, as those are the things real human beings usually use to communicate with each other. the modality of a language needn't be important to the primitives used, but it's always a good practice to state assumptions")) (section ((id "contents")) (ul (li (a ((href "#what-is-language")) "go to what-is-language")) (li (a ((href "#what-conlangers-do")) "go to what-conlangers-do")) (li (a ((href "#proposed-latl-primitives")) "go to proposed-latl-primitives")) (li (a ((href "#signoff")) "go to signoff")))) (section ((id "what-is-language")) (hgroup (h2 "thinking about what language is for a moment")) (a ((href "/unsettled/latl-primitives_what-is-language") (hx-get "/hx/unsettled/latl-primitives_what-is-language") (hx-target "#what-is-language") (hx-swap "outerHTML")) "what-is-language")) (section ((id "what-conlangers-do")) (hgroup (h2 "what conlangers do") (p (em "moving from a pile of language stuff to a pile of problems to solve"))) (p "coming soon")) (section ((id "proposed-latl-primitives")) (hgroup (h2 "introducing the primitives") (p (em "things that definitely need to be present in latl"))) (p "coming soon")) (section ((id "signoff")) (hgroup (h2 "signing off") (p (em "what's next for latl thinking?"))) "coming soon")) (footer (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/unsettledlatl-primitives.scm")) "view source") (hr) (section (h5 "tagged") (ul ((class "tag-list")) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/latl") (hx-get "/hx/tagged/latl") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "latl"))) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/conlang") (hx-get "/hx/tagged/conlang") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "conlang"))) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/programming-language") (hx-get "/hx/tagged/programming-language") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "programming-language"))))) (hr) (p ((class "doc-history")) (small "published: 2024-02-25T21:33:06")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))
+'(body '(article ((id "latl-primitives") (class "composed-article")) (section ((id "intro")) (hgroup (h1 "what must be true of latl primitives") (p (em "what will latl need to " (u "do") " out of the box?"))) (p "i've talked a little about " (a ((href "/unsettled/1")) "conlanging and latl") " previously here. the short version is this: making languages (for theoretical conscious beings) is fun! it's been a consistent hobby and artistic pursuit for me for much of my life. i've had different approaches from making extremely regular languages, to simulating the evolution of a family of spoken languages, to a family of synthesizer languages for a fractured machine society. every language project requires keeping track of a dictionary and a grammar (even if they never become more than quick sketches) and any sufficiently involved project can benefit from tools for generating new words that fit a language's 'phonotactics', generating derived words based on grammatical rules, simulating language change over time. conlanging is a hobby with enough overlap with computation, that some conlangers have created tools for some of these tasks. my own projects have become too ambitious to have my work live in spreadsheets over here and latex files over there and text files with the defintions i provide to web-based tools somewhere else entirely. i want to build on the work of those came before and create a substrate upon which any tool a conlanger needs could be built and in which i can define the entirety of a language in one system.") (p "at it's base latl will be a tool for operating on languages, invented (or otherwise... maybe.) it helps then to think of the sorts of things that encompass language. spoken and signed languages will be the assumed base case, as those are the things real human beings usually use to communicate with each other. the modality of a language needn't be important to the primitives used, but it's always a good practice to state assumptions")) (section ((id "contents")) (ul (li (a ((href "#what-is-language")) "go to what-is-language")) (li (a ((href "#what-conlangers-do")) "go to what-conlangers-do")) (li (a ((href "#proposed-latl-primitives")) "go to proposed-latl-primitives")) (li (a ((href "#signoff")) "go to signoff")))) (section ((id "what-is-language")) (hgroup (h2 "thinking about what language is for a moment")) (a ((href "/unsettled/latl-primitives_what-is-language") (hx-get "/hx/unsettled/latl-primitives_what-is-language") (hx-target "#what-is-language") (hx-swap "outerHTML")) "what-is-language")) (section ((id "what-conlangers-do")) (hgroup (h2 "what conlangers do") (p (em "moving from a pile of language stuff to a pile of problems to solve"))) (p "coming soon")) (section ((id "proposed-latl-primitives")) (hgroup (h2 "introducing the primitives") (p (em "things that definitely need to be present in latl"))) (p "coming soon")) (section ((id "signoff")) (hgroup (h2 "signing off") (p (em "what's next for latl thinking?"))) "coming soon")) (footer (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/unsettledlatl-primitives.scm")) "view source") (hr) (section (h5 "tagged") (ul ((class "tag-list")) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/latl") (hx-get "/hx/tagged/latl") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "latl"))) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/conlang") (hx-get "/hx/tagged/conlang") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "conlang"))) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/programming-language") (hx-get "/hx/tagged/programming-language") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "programming-language"))))) (hr) (p ((class "doc-history")) (small "published: 2024-02-25T21:33:06")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))

source/unsettled/pre-introducing-uf-library.scm

@@ -0,0 +1 @@
+'(body (article ((id "pre-introducing-uf-library")) (hgroup (h1 "pre-introducing uf-library") (p (em "what if you were a library?"))) (section ((id "quick-story")) (h2 "part 1: a quick story") (p "i volunteer at a tool library. it's a scrappy project that technically fits the non-profit designation, but has managed to cultivate a do-it-together ethos. there are numerous working groups devoted to tool maintenance, educational workshops, community outreach, developing an on-site print shop, and much more. and we do it all on a pretty slim budget with almost entirely unpaid labor") (p "i also love physical media. i recently had to pack most of my posessions into storage for a short time and was struck by the high percentage of my belongings that are physical media. (yet, i always feel like i'm not looking hard enough for new stuff to read or listen to!) floating out amongst my friends are probably a dozen books -- some of which i've maybe forgotten the location of -- but i've been increasingly feeling that more of them should be circulating. what if i made my little media collection a library for my friends?")) (section ((id "software")) (h2 "part 2: software") (p "there's some foss library software out there :" (a ((href "https://koha-community.org/")) "koha ils") ", " (a ((href "https://evergreen-ils.org/")) "evergreen ils") ", " (a ((href "https://openbiblio.de/")) "openbiblio") " (and more.) the only tool or 'thing' oriented software i know of are the foss (unfinished) " (a ((href "https://github.com/chicago-tool-library/circulate")) "circulate") " by the chicago tool library and the closed-source " (a ((href "https://myturn.com/")) "myturn") ". i'm not interested in critiquing existing software here, except to say that none of the things i've seen support the kind of library i want to become") (p "i want to be a library amongst libraries. i want my friends and communities to add their collections to the library network and to lend and borrow and restore and maintain more than they ever could as individuals lending and borrowing amongst friends. and i don't care about the distinction between traditional media-library *and* library-of-things/tool-library models. i want library as community platform. i want applied library sciences") (p "wait that wasn't about software. that was about human networking. but the software to represent this kind of social technology doesn't yet exist. and i think it should. and i think it should be as lean and easy to deploy and administer as possible") (p "i don't have the capacity to build this vision at this moment, but i think i can build some of it and build the capacity to build more.\n      i'm participating in " (a ((href "https://recurse.com")) "recurse center hacking retreat") " and " (a ((href "/tagged/rc")) "i'm writing about my rc experience") ". that'll be more focused on the 'building my capacity' piece. a lot of that will be about thinking through stuff that doesn't wind up being ultimately implemented. i'll write more " (a ((href "/tagged/uf-library")) "about building library") " separately. (of course there's going to be a lot of interleaving)") (p "the thing to do before hacking next week is to look at the protocols available. (the working-name 'uf-library' is a contraction of 'usufruct', a social-good-oriented property model (can't be giving things latin names tho), but it could also be 'ur-favorite' or 'user-friendly' (what's friendlier than being engaged in community?))")) (section ((id "dreaming")) (h2 "part 3: dreaming") (p "this is an experiment. and kind of a long-shot one at that. i hope that it inspires similar experiments, regardless of the success of this iteration. (there might even already be a project out there that hit on the same idea, however it appears to be abandoned (and a dao))") (p "if this is interesting to you " (a ((href "/contact")) "let's talk about it!") " otherwise, wish me luck :)"))) (footer (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/source/unsettledpre-introducing-uf-library.scm")) "view source") (hr) (section (h5 "tagged") (ul ((class "tag-list")) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/uf-library") (hx-get "/hx/tagged/uf-library") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "uf-library"))) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/library") (hx-get "/hx/tagged/library") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "library"))) (li ((class "tag-item")) (span ((class "hx-target")) (a ((href "/tagged/rc") (hx-get "/hx/tagged/rc") (hx-target "closest span.hx-target") (hx-swap "innerHTML")) "rc"))))) (hr) (p ((class "doc-history")) (small "published: 2024-04-01T13:04:37")) (p ((class "license-info")) (small (a ((href "static/license/license.txt")) "license")))))

static/style/styles.css

@@ -58,6 +58,18 @@ div.hx-target footer {
   display: none;
 }
 
+article.composed-article footer {
+  display: none;
+}
+
+footer {
+  margin-top: 1em;
+  border-color: var(--visited-link-color);
+  border-top-width: 6px;
+  border-top-style: double;
+  padding-top: 1em;
+}
+
 a {
   font-family: 'Courier New', Courier, monospace;
   font-size: small;
@@ -71,10 +83,23 @@ a:visited {
   text-decoration-color: var(--link-color);
 }
 
-a:not(.ascii a):not(a[hx-get*="hx"])::before {
-  content: ". -> . ";
-  color: var(--foreground-color);
+a:not(.ascii a):not(a[hx-get*="hx"]):not(a[href*="#"])::before {
+  content: ". -> .";
   font-weight: 900;
+  display: inline-block;
+  padding-right: .5em;
+}
+
+a[href*="#"] {
+  content: "↓";
+  font-weight: 900;
+  font-size: larger;
+  display: inline-block;
+  padding-right: .5em;
+}
+
+a[rel="me"] {
+  display: none;
 }
 
 body {