Add 'pc', 'pd', 'pi' and 'pl' tools

5 files changed, 42 insertions, 0 deletions

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..71a3b87
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,2 @@
+install:
+	install p* /usr/local/bin/
diff --git a/pc b/pc
new file mode 100755
index 0000000..a891740
--- /dev/null
+++ b/pc
@@ -0,0 +1,14 @@
+#!/bin/sh
+
+curl -Ls "$@" |
+sed -n '/<item>/,$p' |
+sed -e '/^$/d' -e 's/^[	 ]*//' |
+awk -vFS='[<>]' '
+	/<pubDate>/ { print "Date: " $3; }
+	/<title>/ { print "Subject: " $3; }
+	/<itunes:summary>/ { print "Summary: " $3; }
+	/<enclosure[^>]*>/ { print "Link: " $0; }
+	/<itunes:duration>/ { print "Duration: " $3; }
+	/<\/item>/ { print ""; }
+' |
+sed 's,<enclosure[^>]* url="\([^"]*\)".*,\1,'
diff --git a/pd b/pd
new file mode 100755
index 0000000..7bcaead
--- /dev/null
+++ b/pd
@@ -0,0 +1,5 @@
+#!/bin/sh
+
+# pd -- download podcast episode(s)
+
+curl -Z `sed -n 's/Link: /-OJL /p'`
diff --git a/pi b/pi
new file mode 100755
index 0000000..851bc74
--- /dev/null
+++ b/pi
@@ -0,0 +1,7 @@
+#!/bin/sh
+
+# pi -- interactive podcast downloader
+
+pc "$(pl "$@")" |
+ep |
+pd
diff --git a/pl b/pl
new file mode 100755
index 0000000..b041a92
--- /dev/null
+++ b/pl
@@ -0,0 +1,14 @@
+#!/bin/sh
+
+# pl -- podcast list
+
+bw=https://feeds.buzzsprout.com/424075.rss
+hhh=https://heretichappyhour.podbean.com/feed.xml
+mm=http://www.myterochmysterier.se/feed/myterochmysterier/
+pvk=https://paulvanderklay.podbean.com/feed.xml
+shearer=http://feeds.soundcloud.com/users/soundcloud:users:25261528/sounds.rss
+storm=https://rss.acast.com/stormensutveckling
+ts=https://rss.art19.com/thinkspot-presents
+unb=https://unbelievable.podbean.com/feed.xml
+
+eval echo \$$1