From 8d9920c8f4e0df274485dc7d77c37a785fc64ea7 Mon Sep 17 00:00:00 2001
From: Ryan <ryan@carelesslisper.xyz>
Date: Tue, 19 Sep 2023 19:07:51 -0400
Subject: [PATCH] add externalpipe based commands

---
 config.h      |  9 +++++++++
 st-copyout    | 16 ++++++++++++++++
 st-editscreen |  9 +++++++++
 st-urlhandler | 21 +++++++++++++++++++++
 4 files changed, 55 insertions(+)
 create mode 100755 st-copyout
 create mode 100755 st-editscreen
 create mode 100755 st-urlhandler

diff --git a/config.h b/config.h
index 5149e3e..854c691 100644
--- a/config.h
+++ b/config.h
@@ -235,6 +235,11 @@ static MouseShortcut mshortcuts[] = {
 #define MODKEY Mod1Mask
 #define TERMMOD (ControlMask|ShiftMask)
 
+static char *openurlcmd[] = { "/bin/sh", "-c", "st-urlhandler -o", "externalpipe", NULL };
+static char *copyurlcmd[] = { "/bin/sh", "-c", "st-urlhandler -c", "externalpipe", NULL };
+static char *copyoutput[] = { "/bin/sh", "-c", "st-copyout", "externalpipe", NULL };
+static char *editscreen[] = { "/bin/sh", "-c", "st-editscreen", "externalpipe", NULL };
+
 static Shortcut shortcuts[] = {
 	/* mask                 keysym          function        argument */
 	{ XK_ANY_MOD,           XK_Break,       sendbreak,      {.i =  0} },
@@ -249,6 +254,10 @@ static Shortcut shortcuts[] = {
 	{ TERMMOD,              XK_Y,           selpaste,       {.i =  0} },
 	{ MODKEY,               XK_Up,          kscrollup,      {.i = -1 * scrollrate} },
 	{ MODKEY,               XK_Down,        kscrolldown,    {.i = -1 * scrollrate} },
+	{ MODKEY,               XK_e,           externalpipe,   {.v = editscreen} },
+	{ MODKEY,               XK_l,           externalpipe,   {.v = openurlcmd} },
+	{ MODKEY,               XK_y,           externalpipe,   {.v = copyurlcmd} },
+	{ MODKEY,               XK_o,           externalpipe,   {.v = copyoutput} },
 };
 
 /*
diff --git a/st-copyout b/st-copyout
new file mode 100755
index 0000000..52f8e1f
--- /dev/null
+++ b/st-copyout
@@ -0,0 +1,16 @@
+#!/bin/sh
+
+# Using external pipe with st, give a dmenu prompt of recent commands,
+# allowing the user to copy the output of one.
+# xclip required for this script.
+# By Jaywalker and Luke
+tmpfile=$(mktemp /tmp/st-cmd-output.XXXXXX)
+trap 'rm "$tmpfile"' 0 1 15
+sed -n "w $tmpfile"
+sed -i 's/\x0//g' "$tmpfile"
+ps1="$(grep "\S" "$tmpfile" | tail -n 1 | sed 's/^\s*//' | cut -d' ' -f1)"
+chosen="$(grep -F "$ps1" "$tmpfile" | sed '$ d' | tac | dmenu -i -l 10 | sed 's/[^^]/[&]/g; s/\^/\\^/g')"
+eps1="$(echo "$ps1" | sed 's/[^^]/[&]/g; s/\^/\\^/g')"
+awk "/^$chosen$/{p=1;print;next} p&&/$eps1/{p=0};p" "$tmpfile" | head -n -1 | tail -n +2 | xclip -selection clipboard
+
+# st-copyout ends here
diff --git a/st-editscreen b/st-editscreen
new file mode 100755
index 0000000..9427c0b
--- /dev/null
+++ b/st-editscreen
@@ -0,0 +1,9 @@
+#!/bin/sh
+# -*- mode: sh -*-
+
+tmpfile=$(mktemp /tmp/st-edit.XXXXXX)
+trap  'rm "$tmpfile"' 0 1 15
+cat > "$tmpfile"
+emacsclient -c "$tmpfile"
+
+# st-editscreen ends here
diff --git a/st-urlhandler b/st-urlhandler
new file mode 100755
index 0000000..fa35d98
--- /dev/null
+++ b/st-urlhandler
@@ -0,0 +1,21 @@
+#!/bin/sh
+
+urlregex="(((http|https|gopher|gemini|ftp|ftps|git)://|www\\.)[a-zA-Z0-9.]*[:;a-zA-Z0-9./+@$&%?$\#=_~-]*)|((magnet:\\?xt=urn:btih:)[a-zA-Z0-9]*)"
+
+urls="$(sed 's/.*│//g' | tr -d '\n' | # First remove linebreaks and mutt sidebars:
+	grep -aEo "$urlregex" | # grep only urls as defined above.
+	uniq | # Ignore neighboring duplicates.
+	sed "s/\(\.\|,\|;\|\!\\|\?\)$//;
+	s/^www./http:\/\/www\./")" # xdg-open will not detect url without http
+
+[ -z "$urls" ] && exit 1
+
+while getopts "hoc" o; do case "${o}" in
+	h) printf "Optional arguments for custom use:\\n  -c: copy\\n  -o: xdg-open\\n  -h: Show this message\\n" && exit 1 ;;
+	o) chosen="$(echo "$urls" | dmenu -i -p 'Follow which url?' -l 10)"
+	setsid xdg-open "$chosen" >/dev/null 2>&1 & ;;
+	c) echo "$urls" | dmenu -i -p 'Copy which url?' -l 10 | tr -d '\n' | xclip -selection clipboard ;;
+	*) printf "Invalid option: -%s\\n" "$OPTARG" && exit 1 ;;
+esac done
+
+# st-urlhandler ends here