From 778574d025cf7a23b386d8cb110e265dd334dfc2 Mon Sep 17 00:00:00 2001
From: Sebastiano Tronto <sebastiano@tronto.net>
Date: Wed, 6 Nov 2024 17:01:53 +0100
Subject: Moved unused stuff

---
 unused/dmenu-mail-aliases |  29 ++++++++
 unused/dmenu-websearch    |   8 +++
 unused/practice           | 170 ++++++++++++++++++++++++++++++++++++++++++++++
 unused/translate          |  11 +++
 unused/websearch          |  11 +++
 unused/xplumb             |  65 ++++++++++++++++++
 6 files changed, 294 insertions(+)
 create mode 100755 unused/dmenu-mail-aliases
 create mode 100755 unused/dmenu-websearch
 create mode 100755 unused/practice
 create mode 100755 unused/translate
 create mode 100755 unused/websearch
 create mode 100755 unused/xplumb

(limited to 'unused')

diff --git a/unused/dmenu-mail-aliases b/unused/dmenu-mail-aliases
new file mode 100755
index 0000000..76999de
--- /dev/null
+++ b/unused/dmenu-mail-aliases
@@ -0,0 +1,29 @@
+#!/bin/sh
+
+# Select mail alias via dmenu
+# The email address must be the second word in a line of $aliasfile
+# Requires: dmenu (or similar)
+
+# Usage: dmenu-mail-aliases [-m menu]
+
+usage() {
+	echo "Usage: dmenu-mail-aliases [-m MENU]"
+}
+
+menu="dmenu -l 20"
+aliasfile="$HOME/.mblaze/aliases"
+
+while getopts "m:" opt; do
+	case "$opt" in
+		m)
+			menu="$OPTARG"
+			;;
+		*)
+			usage
+			exit 1
+			;;
+		esac
+done
+shift $((OPTIND - 1))
+
+$menu <"$aliasfile" | awk '{print $NF}' 
diff --git a/unused/dmenu-websearch b/unused/dmenu-websearch
new file mode 100755
index 0000000..a8e6a50
--- /dev/null
+++ b/unused/dmenu-websearch
@@ -0,0 +1,8 @@
+#!/bin/sh
+
+# dmenu prompt for websearch
+# Requires: dmenu (or similar), websearch
+
+menu=${MENU:-dmenu}
+
+websearch "$(echo "" | $menu -p "websearch:")"
diff --git a/unused/practice b/unused/practice
new file mode 100755
index 0000000..628f15b
--- /dev/null
+++ b/unused/practice
@@ -0,0 +1,170 @@
+#!/bin/sh
+
+# Script based on nissy (see https://nissy.tronto.net) to practice FMC
+
+# Usage: practice [eo|dr|htr|slice]
+
+nissy="nissy"
+prompt="Press enter for a new scramble, Ctr+C (or Ctrl+Z) to quit:"
+
+usage() {
+	echo "Usage: practice [eo|dr|htr|fin]"
+	exit 1
+}
+
+practice_eo() {
+	nextscr="$(${nissy} scramble fmc)"
+	while true; do
+		scr="$nextscr"
+		echo "Scramble: $scr"
+		nextscr="$(${nissy} scramble fmc)"
+		eofb="$(${nissy} solve -N -M 4 eofb -p "$scr")"
+		eorl="$(${nissy} solve -N -M 4 eorl -p "$scr")"
+		eoud="$(${nissy} solve -N -M 4 eoud -p "$scr")"
+		nfbn="$(echo "$eofb" | grep -v '^$' | grep -Fv '(' | wc -l)"
+		nrln="$(echo "$eorl" | grep -v '^$' | grep -Fv '(' | wc -l)"
+		nudn="$(echo "$eoud" | grep -v '^$' | grep -Fv '(' | wc -l)"
+		nfbi="$(echo "$eofb" | grep '^(' | wc -l)"
+		nrli="$(echo "$eorl" | grep '^(' | wc -l)"
+		nudi="$(echo "$eoud" | grep '^(' | wc -l)"
+		nfbniss="$(echo "$eofb" | grep -v '^(' | grep '(' | wc -l)"
+		nrlniss="$(echo "$eorl" | grep -v '^(' | grep '(' | wc -l)"
+		nudniss="$(echo "$eoud" | grep -v '^(' | grep '(' | wc -l)"
+		nfb="$((nfbn + nfbi + nfbniss))"
+		nrl="$((nrln + nrli + nrlniss))"
+		nud="$((nudn + nudi + nudniss))"
+		n5linear="$(${nissy} solve -L -m 5 -M 5 eo -c "$scr")"
+		n5niss="$(${nissy} solve -N -m 5 -M 5 eo -c "$scr")"
+		n5nonlinear="$((n5niss - n5linear))"
+		read -r x
+		echo "FB: $nfb ($nfbn normal, $nfbi inverse, $nfbniss niss)"
+		echo "RL: $nrl ($nrln normal, $nrli inverse, $nrlniss niss)"
+		echo "UD: $nud ($nudn normal, $nudi inverse, $nudniss niss)"
+		echo "5 movers: $n5linear linear, $n5nonlinear NISS'd"
+		read -r x
+		echo "$eofb"
+		echo "---"
+		echo "$eorl"
+		echo "---"
+		echo "$eoud"
+		printf '\n%s' "$prompt"
+		read -r x
+	done
+}
+
+practice_dr() {
+	nextscr="$(${nissy} scramble eo)"
+	while true; do
+		scr="$nextscr"
+		echo "Scramble: $scr"
+		nextscr="$(${nissy} scramble eo)"
+		soleo="$(${nissy} solve -o -p drud-eofb "$scr")"
+		neo="$(echo "$soleo" | grep -v '^$' | wc -l)"
+		leo="$(echo "$soleo" | head -n 1 | wc -w)"
+		solht="$(${nissy} solve -o -p drud "$scr")"
+		nht="$(echo "$solht" | grep -v '^$' | wc -l)"
+		lht="$(echo "$solht" | head -n 1 | wc -w)"
+		soleolr="$(${nissy} solve -o -p drrl-eofb "$scr")"
+		neolr="$(echo "$soleolr" | grep -v '^$' | wc -l)"
+		leolr="$(echo "$soleolr" | head -n 1 | wc -w)"
+		solhtlr="$(${nissy} solve -o -p drrl "$scr")"
+		nhtlr="$(echo "$solhtlr" | grep -v '^$' | wc -l)"
+		lhtlr="$(echo "$solhtlr" | head -n 1 | wc -w)"
+		read -r x
+		echo "DR on U/D: $leo moves ($neo solutions)"
+		if [ "$nht" != "$neo" ]; then
+			echo "Breaking EO: $lht moves ($nht solutions)"
+		fi
+		echo "DR on R/L: $leolr moves ($neolr solutions)"
+		if [ "$nhtlr" != "$neolr" ]; then
+			echo "Breaking EO: $lhtlr moves ($nhtlr solutions)"
+		fi
+		read -r x
+		echo "On U/D:"
+		echo "$soleo"
+		echo ""
+		if [ "$nht" != "$neo" ] || [ "$lht" != "$leo" ]; then
+			echo "Breaking EO:"
+			echo "$solht"
+			echo ""
+		fi
+		echo "On R/L:"
+		echo "$soleolr"
+		echo ""
+		if [ "$nhtlr" != "$neolr" ] || [ "$lhtlr" != "$leolr" ]; then
+			echo "Breaking EO:"
+			echo "$solhtlr"
+			echo ""
+		fi
+		printf '\n%s' "$prompt"
+		read -r x
+	done
+}
+
+practice_htr() {
+	nextscr="$(${nissy} scramble dr)"
+	while true; do
+		scr="$nextscr"
+		echo "Scramble: $scr"
+		nextscr="$(${nissy} scramble dr)"
+		sol="$(${nissy} solve -o -p htr "$scr")"
+		nsol="$(echo "$sol" | grep -v '^$' | wc -l)"
+		len="$(echo "$sol" | head -n 1 | wc -w)"
+		fin="$(${nissy} solve -o -p drfin "$scr")"
+		lenf="$(echo "$fin" | head -n 1 | wc -w)"
+		slice="$(${nissy} solve -o -p drslice "$scr")"
+		lens="$(echo "$slice" | head -n 1 | wc -w)"
+		read -r x
+		echo "$len moves ($nsol solutions)"
+		read -r x
+		echo "$sol"
+		if [ "$lenf" != "$lens" ]; then
+			echo ""
+			echo "Optimal leave slice ($lens):"
+			echo "$slice"
+		fi
+		echo ""
+		echo "Optimal DR finish ($lenf):"
+		echo "$fin"
+		printf '\n%s' "$prompt"
+		read -r x
+	done
+}
+
+practice_fin() {
+	nextscr="$(${nissy} scramble htr)"
+	while true; do
+		scr="$nextscr"
+		echo "Scramble: $scr"
+		nextscr="$(${nissy} scramble htr)"
+		sol="$(${nissy} solve -o -p drudslice "$scr")"
+		nsol="$(echo "$sol" | grep -v '^$' | wc -l)"
+		len="$(echo "$sol" | head -n 1 | wc -w)"
+		fin="$(${nissy} solve -o -p drudfin "$scr")"
+		nfin="$(echo "$fin" | grep -v '^$' | wc -l)"
+		lenf="$(echo "$fin" | head -n 1 | wc -w)"
+		opt="$(${nissy} solve -o -p "$scr")"
+		leno="$(echo "$opt" | head -n 1 | wc -w)"
+		read -r x
+		echo "Leave slice: $len moves ($nsol solutions)"
+		if [ "$lenf" != "$len" ]; then
+			echo "DR finish: $lenf moves"
+		fi
+		read -r x
+		echo "$sol"
+		if [ "$lenf" != "$len" ]; then
+			echo ""
+			echo "Optimal DR finish ($lenf):"
+			echo "$fin"
+		fi
+		if [ "$leno" != "$lenf" ]; then
+			echo ""
+			echo "Optimal DR-breaking ($leno):"
+			echo "$opt"
+		fi
+		printf '\n%s' "$prompt"
+		read -r x
+	done
+}
+
+"practice_$1" || usage
diff --git a/unused/translate b/unused/translate
new file mode 100755
index 0000000..9442844
--- /dev/null
+++ b/unused/translate
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+# Opens google translate
+
+translator="https://translate.google.com/"
+from=$1
+to=$2
+
+shift 2
+text=$(echo "$@" | sed 's/ /\%20/g')
+open-url "${translator}?sl=${from}&tl=${to}&text=${text}&op=translate"
diff --git a/unused/websearch b/unused/websearch
new file mode 100755
index 0000000..dddcc20
--- /dev/null
+++ b/unused/websearch
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+# Perform a web search
+
+browser=${BROWSER:-firefox}
+searchengine="https://www.startpage.com/sp/search?query="
+#searchengine="https://duckduckgo.com/?q="
+#searchendinge="https://www.google.com/search?q="
+
+arg=$(echo "$@" | sed 's/ /\+/g')
+[ -n "$arg" ] && spawn "$browser" "${searchengine}$arg"
diff --git a/unused/xplumb b/unused/xplumb
new file mode 100755
index 0000000..1d89796
--- /dev/null
+++ b/unused/xplumb
@@ -0,0 +1,65 @@
+#!/bin/sh
+
+# My interpretation of a plumber (plan9 style).
+# It scans the selected text (xsel) and decides what to do with it among
+# some possibilities (open file, open url, man page...). If none is matched,
+# a choice is prompted.
+
+# Requires: dmenu (or similar), mail-compose, open-file, terminal, websearch,
+#           xedit, xsel
+
+# TODO:
+#	send mail to email address;
+#	calendar if it is a date
+#	choice: pipe to another program
+
+browser=${BROWSER:-firefox}
+menu=${MENU:-dmenu}
+menuopts="-l 10"
+
+text=$(xsel | sed 's/\n/ /g')
+if [ "${#text}" -ge 11 ]; then
+	shorttext=$(echo "$text" | cut -b 1-10)...
+else
+	shorttext="$text"
+fi
+
+choice() {
+	chosen=$(printf "websearch\nedit" | \
+	         $menu $menuopts -p "What to do with \"$shorttext\"?")
+
+	if [ "$chosen" = "websearch" ]; then
+		websearch "$text"
+	elif [ "$chosen" = "edit" ]; then
+		f=$(mktemp)
+		xsel > "$f"
+		xedit "$f"
+	fi
+}
+
+trymail() {
+	addr=$(echo "$1" | addressgrep)
+	( [ -n "$addr" ] && mail-compose "$addr" ) || return 1
+}
+
+tryman() {
+	number=$(echo "$1" | sed 's/[^1-8]//g')
+	name=$(echo "$1" | sed 's/([1-8])//g' | sed 's/ //g')
+	if [ "$(man -w "$number" "$name" | wc -l)" = 1 ]; then
+		terminal -e man "$number" "$name"
+		return 0
+	else
+		return 1
+	fi
+}
+
+tryurl() {
+	url=$(echo "$1" | urlgrep)
+	( [ -n "$url" ] && "$browser" "$url" ) || return 1
+}
+
+#open-file -s spawn "$text" || \
+tryurl    "$text" || \
+trymail   "$text" || \
+tryman    "$text" || \
+choice
-- 
cgit v1.3