Fix reddit handling

Now it links to the external resource if one is present!

1 files changed, 14 insertions, 5 deletions

@@ -24,7 +24,7 @@ feeds() {
 
 feeds_planets() {
         feed "Planet Emacs" "https://planet.emacslife.com/atom.xml" "https://planet.emacslife.com/" ""
-        feed "r/emacs" "http://old.reddit.com/r/emacs.rss" "http://old.reddit.com/r/emacs" ""
+        feed "r/emacs" "https://i.reddit.com/r/emacs.rss" "https://i.reddit.com/r/emacs" ""
         feed "Planet Lisp" "https://planet.lisp.org/rss20.xml" "https://planet.lisp.org/" ""
         feed "Planet Scheme" "https://planet.scheme.org/atom.xml" "https://planet.scheme.org/" ""
 }
@@ -177,10 +177,19 @@ print
         *NPR*)
                 sed 's@www\.npr\.org@text.npr.org@'
                 ;;
-        r_* | r/*)                     # reddit (not sure when / => _)
-                reddit_alt_url="i.reddit.com" # teddit is slow :(
-                sed -e "s@old\.reddit\.com@${reddit_alt_url}@" \
-                        -e "s@reddit\.com@${reddit_alt_url}@"
+        r_* | r/*)
+                # Reddit doesn't include a link as its item IDs, but instead
+                # something of the form `t3_xxxxx', where xxxxx can be glommed
+                # into a URL to get to the comments.
+                awk -v SUBREDDIT="$1" -v ALT=i.reddit.com \
+                        'BEGIN {FS="\t";OFS="\t"}
+{ $6 = $3 #ALT "/" SUBREDDIT "/" substr($6, 4)
+}
+{
+if (match($4,/<a href="([^"]*)">\[link\]<\/a>/,ln)) $3 = ln[1]
+}
+{ gsub(/www\.reddit\.com/, ALT, $0) }
+{ print }'
                 ;;
         'Saturday Morning Breakfast Cereal')
                 sed 's@Saturday Morning Breakfast Cereal - @@'