add code for arpa web n-gon

www/src/assets/arpa-n-gon.css

@@ -0,0 +1,25 @@
+:root {
+  --link: #33b1ff;
+  --visited-link: #be95ff;
+}
+
+body {
+  margin: 0;
+  display: flex;
+
+  div {
+    display: flex;
+    gap: 1ch;
+    font-size: 13px;
+    font-family: 'Liberation Mono', monospace;
+
+    > a {
+      text-underline-offset: 2px;
+      color: var(--link);
+      
+      &:visited {
+        color: var(--visited-link);
+      }
+    }
+  }
+}

www/src/assets/style.css

@@ -191,6 +191,9 @@ body {
       justify-content: flex-start;
       
       > footnote > * { margin-top: 2px; }
+      > footnote > iframe {
+        border: none;
+      }
 
       > a {
         margin: 0 !important;
@@ -415,3 +418,10 @@ div.thought-list{
     }
   }
 }
+
+.arpa-n-gon-list {
+  > li {
+    background: var(--alt-bg);
+    margin: 10px;
+  }
+}

www/src/data/arpa-n-gon-linking-anchors.html

@@ -0,0 +1,3 @@
+<a href="http://natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa/arpa-n-gon/prev?current={domain}">prev</a>
+<a href="http://natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa/arpa-n-gon/">*.arpa web n-gon</a>
+<a href="http://natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa/arpa-n-gon/next?current={domain}">next</a>

www/src/data/arpa-n-gon-linking-iframe.html

@@ -0,0 +1 @@
+<iframe src="http://natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa/arpa-n-gon/nav?current={url}&style={style-url}"></iframe>

www/src/data/arpa-n-gon.yaml

@@ -0,0 +1,5 @@
+members:
+  - name: natalie
+    arpa-domain: natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa
+    description: natalieee.net arpa domain
+

www/src/pages/arpa-n-gon-nav.hy

@@ -0,0 +1,8 @@
+'(html
+  (head
+    (link (:rel stylesheet :href "{style}" :type text/css)))
+  (body
+    (div
+      (a (:href "{prev}" :target _parent) <-)
+      (a (:href "http://natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa/arpa-n-gon" :target _parent) "*.arpa web {n_gon}")
+      (a (:href "{next}" :target _parent) ->))))

www/src/pages/arpa-n-gon.hy

@@ -0,0 +1,62 @@
+(page
+  :title ".arpa web {n_gon}"
+  :description "the homepage for the .arpa web {n_gon}"
+  `((section
+      (h1 "the *.arpa web {n_gon}")
+      (p "a web {n_gon} (read: webring with {n} members) for anyone with a domain under the arpa tld or any subdomain thereof."))
+    
+    (section
+      (h2 "members")
+      (ol (:class "arpa-n-gon-list")
+      ~(do 
+        (import yaml [safe-load])
+        (with [f (open "data/arpa-n-gon.yaml")]
+          (setv members (get (safe-load f) "members")))
+        
+        (hy.models.Expression (lfor member members
+          `(li (div
+            (div "member: " (a (:href ~(get member "arpa-domain") :title ~(get member "arpa-domain")) ~(get member "name")))
+            (div "domain: " ~(get member "arpa-domain")
+            (div "description: " ~(get member "description"))))))))))
+    
+    (section
+      (h2 "joining")
+      (p "anyone meeting all of the following criteria is permitted to join this webring:")
+      (ul
+        (li "own a domain under the arpa tld")
+        (li "have a site accessible under that domain")
+        (li "on that site, have at least one instance of page elements complying with the section on acceptable notation of membership")
+        (li "be deemed by natalie to be generally acceptable; this is a low bar, and functionally translates to "don't be an asshole""))
+      
+      (p "should $READER align with the above conditions, and is interested in joining this web {n_gon} (thus making it a web {n_gon_inc}), $READER may send an e-mail containing their website's url to "
+        (a (:href "mailto:{n_gon}@8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa") "{n_gon}@8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa")))
+
+    (section
+      (h2 "acceptable notation of membership")
+      (p "there are two main modes of noting one's affiliation with this web {n_gon}, what is appropriate for $READER's website will depend on their preferences regarding loading of external resources.")
+      
+      (br)
+      (h3 "1: iframe")
+      (p "the first option is to include an iframe linking to the navigation for the webring. this option is funnier, because requesting that natalieee.net renders the iframe contents allows
+        this server to return html containing the appropriate n-gon for the current member count. in order to conform with the css of some site, a style param can be passed in the iframe's src attribute,
+        which will get loaded as a stylesheet.")
+      
+      (figure
+        (figcaption "iframe web {n_gon} html")
+        (code ~(run #[[syntax-hl data/arpa-n-gon-linking-iframe.html]])))
+
+      (br)
+      (h3 "2: anchors")
+      (p "the second option is to include various anchor tags. this option is less funny, because instead of asking natalieee.net for the appropriate n-gon, it simply labels the web {n_gon} as a web n-gon.")
+      
+      (figure
+        (figcaption "anchor web {n_gon} html")
+        (code ~(run #[[syntax-hl data/arpa-n-gon-linking-anchors.html]])))
+
+      (p "of the above methods, one must appear anywhere within a site a number of times greater than 0. a valid website can include one of these
+        only once (on a webring page, should the site have a page dedicated to that), or on each page as with this site's footer.")
+      
+      (br)
+      (h3 "proper linking")
+      (p "the `current` parameter in any given web {n_gon} related url should be set to the domain of one's site. in this one's case, this parameter gets set to natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa. this is
+        the mechanism that allows the server to properly link to the next or previous site in the {n_gon}."))))

www/src/templates/footer.hy

@@ -15,8 +15,10 @@
     (div 
       (footnote (:style "margin-top: 5px") "▖▖▖▖▘▖▖▖▖▘▌▖▖▖▘")
       (footnote (:style "margin-top: 5px")
-        (div (:style "flex-direction: row; width: 14ch; gap: 2ch; margin-right: 5px;") 
+        (div (:style "display: flex; flex-direction: row; width: 14ch; gap: 1ch; margin-right: 5px;") 
           (a (:href "https://stellophiliac.github.io/roboring/0x6e6174/previous") "<-")
           (a (:href "https://stellophiliac.github.io/roboring") "roboring")
-          (a (:href "https://stellophiliac.github.io/roboring/0x6e6174/next") "->"))))
+          (a (:href "https://stellophiliac.github.io/roboring/0x6e6174/next") "->"))
+        
+        (iframe (:src "/arpa-n-gon/nav?current=natalieee.net.8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa&style=/assets/arpa-n-gon.css"))))
     (span ~(run "git log -1 --format=%h"))))