6 files changed, 294 insertions, 0 deletions

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