Generate a feed

9 files changed, 62 insertions, 30 deletions

@@ -41,7 +41,13 @@ ITMPR = \
         env HTTMP='$T' HTOUT='\$$@' \
         ${HTSH} "${ITMPL}" < /dev/null > '\$$@'
 
-TMPL = ${PTMPL} ${ITMPL}
+RTMPL = tmpl.feed.xml
+RTMPR = \
+        feed.xml: ${RTMPL} index.html $$(cat ${TPG}); \
+        env HTTMP='$T' HTOUT='\$$@' \
+        ${HTSH} "${RTMPL}" < /dev/null > '\$$@'
+
+TMPL = ${PTMPL} ${ITMPL} ${RTMPL}
 BUILD_INPUTS = ${INPUT}/* ${TMPL} ${HT}
 
 RSYNCEXCLUDE = \
@@ -51,6 +57,7 @@ RSYNCEXCLUDE = \
         "*.mk" \
         "*.awk" \
         "*.bod.txt" \
+        "tmpl.*" \
         "tmp/"
 RSYNCEXCLUDEFILE = ${BUILD}/.rsync-exclude
 RSYNC = rsync -auvz --exclude-from="${RSYNCEXCLUDEFILE}" --delete
@@ -75,7 +82,8 @@ ${HTMK}: Makefile ${INPUT}/*.ht $T
         done >> '$@'
 
         @printf '%s\n' "${ITMPR}" >> '$@'
-        @printf "build: $$(cat ${TPG}) index.html" >> '$@'
+        @printf '%s\n' "${RTMPR}" >> '$@'
+        @printf "build: $$(cat ${TPG}) index.html feed.xml" >> '$@'
         @printf '%s\n' 'done'
 
 $T: ; mkdir -p "$@"
@@ -15,6 +15,7 @@ function buflush() {
 }
 
 function esc(t) {
+    # This is of much more limited utility than I initially realized.
     gsub(/&/, "\\&amp;", t);
     gsub(/</, "\\&lt;", t);
     gsub(/>/, "\\&gt;", t);
@@ -30,8 +31,8 @@ function esc(t) {
 }
 
 /^=>/ { # Links (Gemini-style)
-    link = "<a href=\"" esc($2) "\">" esc($3);
-    for (i=4;i<=NF;i++) link = link " " esc($i);
+    link = "<a href=\"" esc($2) "\">" $3;
+    for (i=4;i<=NF;i++) link = link " " $i;
     link = link "</a>";
     bufpush(link);
     next;
@@ -39,20 +40,17 @@ function esc(t) {
 
 /^-/ { # Unordered lists
     if (! (tag == "ul")) tag = "ul";
-    esc($0);
     sub(/^-[ \t]*/, "<li>");
 }
 
 /^[0-9]+\./ { # Ordered lists
     if (! (tag == "ol")) tag = "ol";
-    esc($0);
     sub(/^[0-9]+\.[ \t]/, "<li>");
 }
 
 /^>/ { # Blockquotes
     if (! (tag == "blockquote")) tag = "blockquote";
     sub(/^>[ \t]*/,"");
-    esc($0);
 }
 
 /^#+/ { # Headers
@@ -62,7 +60,6 @@ function esc(t) {
         tag = "h" RLENGTH;
     }
     sub(/^#+[ \t]*/,"");
-    esc($0);
 }
 
 /^$/ {
@@ -1,21 +0,0 @@
-html,body {
-    min-height: 100vh;
-    margin:0; padding: 0;
-}
-
-html {
-    font: 18px serif;
-    background: #385180;
-}
-
-body {
-    max-width: 79ch;
-    padding: 0 2ch;
-    margin: 0 auto;
-    background: #405990;
-    color: white;
-}
-
-a {
-    color: yellow;
-}
@@ -1,4 +1,5 @@
 ;@@title: Compiling!@@
+;@@date: 2022-05-24@@
 
 I've been using Emacs to write this site so far, and it has a convenient
 <code>M-x compile</code> command that is fun to use.  However, I frequently want
@@ -1,4 +1,5 @@
 ;@@title: Embedded data-url favicon@@
+;@@date: 2022-05-18@@
 
 You might notice that I have a <b>new favicon</b> on this site.
 I didn't want to make a whole nother request, so I took a page from
@@ -0,0 +1,15 @@
+;@@title: Friday@@
+;@@date: 2022-05-20@@
+
+It's Friday, y'all.
+I don't want to do nothin' at all today.
+
+I'm going to fun concert tonight with friends, which is nice.
+And getting ready to move at the end of the month this weekend.
+
+I'm about to be in a game jam soon, which is going to be great.
+And I'm writing this.  I kind of want to re-do it in scheme...
+
+Anyway, I don't know.  I'm vibing but I'd love to be vibing at home.
+
+What <em>do</em> I want to do with my life, anyway?
\ No newline at end of file
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="utf-8"?>
+<feed xmlns="http://www.w3.org/2005/Atom">
+  <title>acdw.casa</title>
+  <subtitle>mi casa es su casa</subtitle>
+  <link href="https://acdw.casa" rel="self" />
+  <link href="https://acdw.casa" />
+  <id>acdw.casa</id>
+  <generator uri="https://git.acdw.net/hat-trick.git/" version="infinite">hat-trick</generator>
+  <rights>Copyright (C) 2022 CC-BY-SA Case Duckworth</rights>
+  <updated>$(date -u +%FT%TZ)</updated>
+
+  $(set -x;cat .tmp/index-list | while read line; do
+  entry_date="$(echo "$line" | sed 's/.*<li><!-- \(.*\) -->.*/\1/')"
+  entry_title="$(echo "$line" | sed 's#.*<a href=".*">\(.*\)</a>.*#\1#')"
+  entry_html="$(echo "$line" | sed 's#.*<a href="\(.*\)">.*#\1#')"
+  entry_url="https://acdw.casa/$entry_html"
+  print "<entry>"
+  print "<id>$entry_url</id>"
+  print "<link rel=\"alternate\" type=\"text/html\" href=\"$entry_url\" />"
+  print "<title>$entry_title</title>"
+  print "<updated>$entry_date</updated>"
+  print "<author><name>Case Duckworth</name></author>"
+  print "<content type=\"html\"><![CDATA[$(sed 1d "${entry_html%ml}.bod.txt")]]></content>"
+  print "</entry>"
+  done)
+
+</feed>
@@ -9,7 +9,11 @@ $(sed 's#$(title)#acdw.casa#' _head.htm)
     <section id="pages">
         <h2>pages here</h2>
         <ul>
-            $(for p in ".tmp"/*.env; do . "$p"; print "<li><a href=\"$HTOUT\">$(title)</a></li>"; done)
+            $(: > .tmp/index-list;
+            for p in .tmp/*.env; do date() { echo "2022-05-01"; }; title() { :; }; . "$p";
+            print "<li><!-- $(date) --><a href=\"$HTOUT\">$(title)</a></li>" \
+            >> .tmp/index-list; done)
+            $(sort -r .tmp/index-list)
         </ul>
     </section>
 </main>