From ce7991fea8e639afefe37aae1c0158a1ecc8d4f6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Wed, 9 Jun 2021 20:06:41 +0200
Subject: xtopen: Append " (cwd)" to title of xterm window
---
xtopen | 27 ++++++++++++++++++++++++++-
1 file changed, 26 insertions(+), 1 deletion(-)
(limited to 'xtopen')
diff --git a/xtopen b/xtopen
index c972369..af284e4 100755
--- a/xtopen
+++ b/xtopen
@@ -1,2 +1,27 @@
#!/bin/sh
-exec xterm -title "$*" -e "$@"
+
+# xtopen -- run command in xterm
+
+abbr() {
+ case "$1" in
+ /home/$USER/*) a='~'${1#/home/$USER} ;;
+ /home/$USER) a='~' ;;
+ /home/*) a='~'${1#/home/} ;;
+ *) a=$1 ;;
+ esac
+ printf '%s\n' "$a"
+}
+
+if [ $# -eq 0 ]; then
+ xmessage -buttons sorry:0 -default sorry -nearmouse \
+ error: missing argument
+ exit 1
+fi
+
+if ! which "$1" 2>/dev/null; then
+ xmessage -default okay -nearmouse \
+ error: program "$1" not found
+ exit 1
+fi
+
+exec xterm -title "$* (`abbr "$PWD"`)" -e "$@"
--
cgit v1.2.3