From df8134a9051e7cba74eac344d87ce749cc574c90 Mon Sep 17 00:00:00 2001
From: "C. McEnroe" <june@causal.agency>
Date: Sat, 4 Apr 2020 09:59:03 -0400
Subject: Set publish date in feed from .Dd

---
 www/text.causal.agency/feed.sh | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/www/text.causal.agency/feed.sh b/www/text.causal.agency/feed.sh
index 21b1d4a3..690cdc45 100644
--- a/www/text.causal.agency/feed.sh
+++ b/www/text.causal.agency/feed.sh
@@ -1,20 +1,25 @@
 #!/bin/sh
 set -eu
 
+readonly Root='https://text.causal.agency'
+
 updated=$(date -u '+%FT%TZ')
 cat <<- EOF
 	<?xml version="1.0" encoding="utf-8"?>
 	<feed xmlns="http://www.w3.org/2005/Atom">
 	<title>Causal Agency</title>
 	<author><name>June</name><email>june@causal.agency</email></author>
-	<link href="https://text.causal.agency"/>
-	<id>https://text.causal.agency/</id>
+	<link href="${Root}"/>
+	<id>${Root}</id>
 	<updated>${updated}</updated>
 EOF
+
 for entry in *.7; do
-	url="https://text.causal.agency/${entry%.7}.txt"
-	title=$(grep '^\.Nm' "$entry" | cut -c 5-)
-	summary=$(grep '^\.Nd' "$entry" | cut -c 5-)
+	url="${Root}/${entry%.7}.txt"
+	date=$(grep '^[.]Dd' "$entry" | cut -c 5-)
+	title=$(grep '^[.]Nm' "$entry" | cut -c 5-)
+	summary=$(grep '^[.]Nd' "$entry" | cut -c 5-)
+	published=$(date -ju -f '%B %d, %Y %T' "${date} 00:00:00" '+%FT%TZ')
 	mtime=$(stat -f '%m' "$entry")
 	updated=$(date -ju -f '%s' "$mtime" '+%FT%TZ')
 	cat <<- EOF
@@ -23,8 +28,10 @@ for entry in *.7; do
 		<summary>${summary}</summary>
 		<link href="${url}"/>
 		<id>${url}</id>
+		<published>${published}</published>
 		<updated>${updated}</updated>
 		</entry>
 	EOF
 done
+
 echo '</feed>'
-- 
cgit 1.4.1