From a33a020ada47f34d3b4039224bee9049b3a9ddfb Mon Sep 17 00:00:00 2001
From: Leonardo Taccari <iamleot@gmail.com>
Date: Sun, 10 May 2020 23:12:03 +0200
Subject: [PATCH] Print gopherddit.com URL for reddit subreddit/posts

---
 annna-start-services | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/annna-start-services b/annna-start-services
index 3102519..3e7efe4 100755
--- a/annna-start-services
+++ b/annna-start-services
@@ -146,7 +146,18 @@ then
 							*www.reddit.com*)
 								nurl="$(printf '%s\n' "${uri}" | sed "s;www.reddit.com;old.reddit.com;")"
 								purl="$(9 htmlfmt < "${tmpf}" | /br/bin/bitreich-paste)"
-								annna-say -c '#bitreich-en' "old.reddit: ${nurl} ; content: ${purl}"
+								if [ -n "${uri#*www.reddit.com/r/*}" ]; then
+									subreddit="$(printf '%s\n' "${uri}" | cut -d / -f 5)"
+									post="$(printf '%s\n' "${uri}" | cut -d / -f 7)"
+									if [ -n "${post}" ]; then
+										gurl="gopher://gopherddit.com/1/cgi-bin/reddit.cgi?view&${post}&${subreddit}&10"
+									else
+										gurl="gopher://gopherddit.com/1/cgi-bin/reddit.cgi?menu&${subreddit}&10"
+									fi
+									annna-say -c '#bitreich-en' "old.reddit: ${nurl} ; gopherddit: ${gurl} ; content: ${purl}"
+								else
+									annna-say -c '#bitreich-en' "old.reddit: ${nurl} ; content: ${purl}"
+								fi
 								# Hack, Hack, Hack.
 								wikipedia=1
 								;;
-- 
2.26.2