publish notes-from-rc week 2

archive/notes-from-rc.scm

@@ -24,6 +24,21 @@
    (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 on some "))
-;; -- week-2
- )
+  (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
+ )

data/atom.csv

@@ -1,4 +1,5 @@
 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

data/unsettled.csv

@@ -1,6 +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-01T13:02:09
+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
    ;; ----------------------------------