#!/bin/rc
touch /tmp/rss.new
mv /tmp/rss.new /tmp/rss.old
{
	hget http://hitchensblog.mailonsunday.co.uk/rss.xml
	hget 'http://electro-music.com/forum/rss.php?f=112'
	hget http://will-self.com/feed/
	hget 'http://www.roughtype.com/?feed=rss2'
	hget https://orib.dev/rss.xml
	hget https://ftrv.se/posts.rss
	hget https://wiki.xxiivv.com/links/rss.xml
	hget http://n-gate.com/index.rss
	hget 'https://www.youtube.com/feeds/videos.xml?user=havic5'
	hget 'https://www.youtube.com/feeds/videos.xml?user=chessnetwork'
	hget 'https://www.youtube.com/feeds/videos.xml?user=JordanPetersonVideos'
	hget 'https://www.youtube.com/feeds/videos.xml?user=WyseGuyAces'
	# 8bitmusictheory
	hget 'https://www.youtube.com/feeds/videos.xml?channel_id=UCeZLO2VgbZHeDcongKzzfOw'
	# Noches Insomnio
	hget 'https://www.youtube.com/feeds/videos.xml?channel_id=UCkBUIboDRnL-6WF1dZ0-ZIg'
	# My Little Thought Tree
	hget 'https://www.youtube.com/feeds/videos.xml?channel_id=UCYtu3JxrpI1XjNn-B_HqW4Q'
} | awk '
	BEGIN{RS = "<"}
	sub(/^(published|media:title|link|pubDate)>/, ""){print "<h1>"$0"</h1>"}
	/^(item|entry)>/{print "<hr>"}
	/^media:thumbnail/{sub(".*url=\"", ""); sub("\".*", ""); print "<h1>"$0"</h1>"}
	sub(/^id>yt:video:/, ""){print "<h1>http://www.youtube.com/watch?v="$0"</h1>"}
	sub(/^media:description>/, ""){print "<pre>"$0"</pre>"}
	sub(/^(content:encoded|description)>/, ""){
		if($0 == ""){
			getline
			if(sub(/^!\[CDATA\[/, "")){
				getline
				while(!sub(/\]\]>.*/, "")){print "<"$0; getline}
				print "<"$0
			}
		}else{
			gsub(/&lt;/, "<")
			gsub(/&gt;/, ">")
			gsub(/&amp;/, "\\&")
			gsub(/&quot;/, "\"")
			gsub(/&apos;/, "''")
			print
		}
	}
' | htmlfmt -a > /tmp/rss.new
diff /tmp/rss.old /tmp/rss.new | sed -n 's/^> //p'