summary refs log tree commit diff
path: root/www/text.causal.agency/feed.sh
blob: 53964cfb0a696c7af480bb950c6b1b8dd9f5c13e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/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="${Root}"/>
	<link rel="self" href="${Root}/feed.atom"/>
	<id>${Root}/</id>
	<updated>${updated}</updated>
EOF

encode() {
	sed '
		s/&/\&amp;/g
		s/</\&lt;/g
		s/"/\&quot;/g
	' "$@"
}

set -- *.txt
shift $(( $# - 20 ))
for txt; do
	entry="${txt%.txt}.7"
	date=$(grep '^[.]Dd' "$entry" | cut -c 5-)
	title=$(grep '^[.]Nm' "$entry" | cut -c 5- | encode)
	summary=$(grep '^[.]Nd' "$entry" | cut -c 5- | encode)
	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
		<entry>
		<title>${title}</title>
		<summary>${summary}</summary>
		<link href="${Root}/${txt}"/>
		<id>${Root}/${txt}</id>
		<published>${published}</published>
		<updated>${updated}</updated>
		<content type="xhtml">
		<div xmlns="http://www.w3.org/1999/xhtml">
	EOF
	printf '<pre>'
	encode "$txt"
	cat <<-EOF
		</pre>
		</div>
		</content>
		</entry>
	EOF
done

echo '</feed>'
oe 2021-01-20Avoid matching ':' in make tagsJune McEnroe Otherwise a :: rule includes one of the ':'s in the tag name. 2021-01-19Prefer tag matches not preceded by [[:alnum:]]June McEnroe Otherwise the "id" in "void" matches for "void id". 2021-01-19Escape \ and / in mtags search patternsJune McEnroe 2021-01-20Use mtags in source-filterJune McEnroe 2021-01-19Add mtags to generate tags for make and mdocJune McEnroe 2021-01-19Map tags to IDs using only [[:alnum:]-._]June McEnroe 2021-01-19Don't use a pager if reading standard inputJune McEnroe 2021-01-19Support BSD make syntax and match *.amJune McEnroe These don't really go together, but... 2021-01-19Match tab following escaped newline in make assignmentsJune McEnroe Otherwise it ends up going into Shell state. 2021-01-18Allow matching lexers using first input lineJune McEnroe