change git.idea-log and git/in-progress links on /this to in-progress branch

manually change href in tagged/tag source files
fix href in tagged/tag post-preview in publish script
2024-02-09 12:49:57 -05:00 · 2024-02-09 12:49:57 -05:00 · 2024-02-09 12:49:57 -05:00 · 2024-02-09 12:49:45 -05:00
12 changed files with 68 additions and 59 deletions
--- a/archive/this.scm
+++ b/archive/this.scm
@ -30,9 +30,9 @@
     "#lang cli"))
 (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/main/.dev-log"))
       "you can read about development here"))
- (p (a ((href "https://git.bunk.computer/oxaliq/oxaliq.net/src/branch/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"))
- (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"))
 (p
  "the image in the header is a crop of the work "
--- a/oxaliq.net.rkt
+++ b/oxaliq.net.rkt
@ -176,7 +176,9 @@
 (define (make-page resource static-write)
  (string->bytes/utf-8
   (static-write
-    (fragment->page resource))))
+    (string-append
+     "<!DOCTYPE html>\n"
+     (fragment->page resource)))))

 (define (fragment->page resource)
  (xexpr->string
--- a/publish.rkt
+++ b/publish.rkt
@ -144,8 +144,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)]
--- a/source/index.scm
+++ b/source/index.scm
@ -1,6 +1,7 @@
-(main
+(article
+ ((id "oxaliq-dot-net-index"))
 (noscript
-  (span
+  (div
   ((class "noscript"))
   (p "hey! yr not letting yr browser execute javascript served by my page.")
   (p "that's cool!")
@ -24,40 +25,46 @@
     a nice time building this little thing ")
 (p " i hope you have  a nice time looking at things here")
 (hr)
- (p (span ((class "hx-target"))
+ (div ((class "hx-target"))
+      (p
       (a ((href "/this")
           (hx-get "/hx/this")
-              (hx-target "closest span")
+           (hx-target "closest div.hx-target")
           (hx-swap "innerHTML"))
          "(how i build this little page)")))
- (p (span ((class "hx-target"))
+ (div ((class "hx-target"))
+      (p
       (a ((href "/now")
           (hx-get "/hx/now")
-              (hx-target "closest span")
+           (hx-target "closest div.hx-target")
           (hx-swap "innerHTML"))
          "(what i'm doing)")))
- (p (span ((class "hx-target"))
+ (div ((class "hx-target"))
+      (p
       (a ((href "/about")
           (hx-get "/hx/about")
-              (hx-target "closest span")
+           (hx-target "closest div.hx-target")
           (hx-swap "innerHTML"))
          "(who i am)")))
- (p (span ((class "hx-target"))
+ (div ((class "hx-target"))
+      (p
       (a ((href "/contact")
           (hx-get "/hx/contact")
-              (hx-target "closest span")
+           (hx-target "closest div.hx-target")
           (hx-swap "innerHTML"))
          "(how to say hi to me)")))
- (p (span ((class "hx-target"))
+ (div ((class "hx-target"))
+      (p
       (a ((href "/very-earnest-disclaimer")
           (hx-get "/hx/very-earnest-disclaimer")
-              (hx-target "closest span")
+           (hx-target "closest div.hx-target")
           (hx-swap "innerHTML"))
          "(a very earnest disclaimer)")))
-; (p (span ((class "hx-target"))
+;  (div ((class "hx-target"))
+;       (p
 ;        (a ((href "/links")
 ;            (hx-get "/hx/links")
-;              (hx-target "closest span")
+;            (hx-target "closest div.hx-target")
 ;            (hx-swap "innerHTML"))
 ;           "(some things i think are neat)")))
 (p (a ((href "static/license/license.txt"))
--- a/source/make-index.scm
+++ b/source/make-index.scm
@ -43,7 +43,7 @@
             (h4 ,(second post))
             (p ,(third post))
             ;; tagged posts will insert href instead of id
-             (a ((href ,(first post)))
+             (a ((href ,(~a "/" (first post))))
                ,(~a "go! to " (second post) " page")))))
               
                        
--- a/source/tagged/about.scm
+++ b/source/tagged/about.scm
@ -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")))
--- a/source/tagged/conlang.scm
+++ b/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 "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")))
--- a/source/tagged/latl.scm
+++ b/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 "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")))
--- a/source/tagged/programming-language.scm
+++ b/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 "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")))
--- a/source/tagged/tool.scm
+++ b/source/tagged/tool.scm
@ -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")))
--- a/source/this.scm
+++ b/source/this.scm
@ -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")))))
--- a/static/style/styles.css
+++ b/static/style/styles.css
@ -35,26 +35,26 @@ h1, h2, h3, h4, h5 {
  font-family: 'Courier New', Courier, monospace;
  color: var(--background-color);
  background-color: var(--visited-link-color);
-  padding: 2 10;
+  padding: 2px 10px;
 }

 h5 {
-  margin: 2 0;
+  margin: 2px 0px;
 }

-span.noscript p {
+div.noscript p {
  font-family: 'Courier New', Courier, monospace;
  font-size: small;
 }

-span.hx-target section {
+div.hx-target section {
  border: solid 1px var(--link-color);
  border-radius: 4px;
-  padding: 5 10;
-  margin: 3;
+  padding: 5px 10px;
+  margin: 3px;
 }

-span.hx-target footer {
+div.hx-target footer {
  display: none;
 }

@ -78,7 +78,7 @@ a:not(.ascii a):not(a[hx-get*="hx"])::before {
 }

 body {
-  max-width: 600;
+  max-width: 600px;
  margin: auto;
  font-size: medium;
  font-family: sans-serif;
@ -128,21 +128,21 @@ nav a {
 }

 p {
-  margin: 12 0;
+  margin: 12px 0px;
 }

 ul.tag-list {
  display: flex;
  flex-direction: row;
  flex-wrap: wrap;
-  margin: 6 0;
-  padding: 0;
+  margin: 6px 0px;
+  padding: 0px;
 }

 li.tag-item {
  list-style-type: none;
  flex-basis: fit-content;
-  margin: 0 6;
+  margin: 0px 6px;
 }

 img {
Author	SHA1	Message	Date
sorrel	a1dcd6e9c0	change git.idea-log and git/in-progress links on /this to in-progress branch All checks were successful ci/woodpecker/push/build-and-deploy Pipeline was successful Details	2024-02-09 12:49:57 -05:00
sorrel	054dfdc7eb	manually change href in tagged/tag source files	2024-02-09 12:49:57 -05:00
sorrel	685af4956a	fix href in tagged/tag post-preview in publish script	2024-02-09 12:49:57 -05:00
sorrel	30a3780663	fix invalid html issues add doctype. remove duplicate main tag from page-builder. change spans to divs where there are p children	2024-02-09 12:49:45 -05:00