#!/usr/bin/env pp
<?xml version='1.0' encoding='UTF-8'?>
<rdf:RDF
  xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
  xmlns='http://purl.org/rss/1.0/'
  xmlns:dc='http://purl.org/dc/elements/1.1/'
>

<channel rdf:about='https://nfld.uk/rss.xml'>
  <title>Book club @ nfld files</title>
  <link>https://nfld.uk</link>
  <description>The latest book club discussions, nominations, etc.</description>
</channel>
#!
d=$(date)
for f in *.html
do
b="$f".old
if test -f "$b"
then
>&2 printf "Processing %s...\n" "$f"
diff=$(wdiff -3 "$f" "$b")
if test $? == 1
then
#!
<item rdf:about='https://nfld.uk/$f'>
<title><![CDATA[Recent updates to $f]]></title>
<link>https://nfld.uk/$f</link>
<dc:date>$d</dc:date>
<description><![CDATA[$diff]]></description>
</item>
#!
fi
fi
done
#!
</rdf:RDF>
#!
>&2 printf "Feed complete.\n"