thodg/config

diff --git a/bin/backup-to-dc b/bin/backup-to-dc
new file mode 100755
index 0000000..5b680e1
--- /dev/null
+++ b/bin/backup-to-dc
@@ -0,0 +1 @@
+rsync -aP `cat ~/.backup-files` dc.kmx.io:
diff --git a/bin/backup-to-tgz b/bin/backup-to-tgz
new file mode 100755
index 0000000..084efc6
--- /dev/null
+++ b/bin/backup-to-tgz
@@ -0,0 +1,2 @@
+#!/bin/sh
+xargs find ~/.backup | cpio -o | gzip > de-gri_t.tgz
diff --git a/bin/cdrip b/bin/cdrip
new file mode 100755
index 0000000..66f3e2d
--- /dev/null
+++ b/bin/cdrip
@@ -0,0 +1,5 @@
+#!/bin/sh
+set -e
+mkdir wav
+cd wav
+cdda2wav -B -L 0
diff --git a/bin/cmulisp b/bin/cmulisp
new file mode 100755
index 0000000..2bf79aa
--- /dev/null
+++ b/bin/cmulisp
@@ -0,0 +1,11 @@
+#!/bin/sh
+ARGS="-norc"
+for ARG; do
+  case $ARG in
+    -load) ARGS="$ARGS -i" ;;
+    -noinit) ;;
+    -nositeinit) ;;
+    *) ARGS="$ARGS $ARG" ;;
+  esac
+done
+clisp $ARGS
diff --git a/bin/cvs-up-openbsd b/bin/cvs-up-openbsd
new file mode 100755
index 0000000..c0492b4
--- /dev/null
+++ b/bin/cvs-up-openbsd
@@ -0,0 +1,2 @@
+#!/bin/sh
+cvs -d anoncvs@anoncvs.fr.openbsd.org:/cvs -q up -Pd -rOPENBSD_6_3
diff --git a/bin/doc-cffi b/bin/doc-cffi
new file mode 100755
index 0000000..3ecc776
--- /dev/null
+++ b/bin/doc-cffi
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec links -g common-lisp/cffi/cffi/doc/manual/index.html
diff --git a/bin/find-git b/bin/find-git
new file mode 100755
index 0000000..c14c4bf
--- /dev/null
+++ b/bin/find-git
@@ -0,0 +1,12 @@
+#!/bin/sh
+set -e
+CMD="$@"
+[ -n "$CMD" ] || CMD=pwd
+find . -type d -name ".git" | \
+    while read G; do
+        D="$(dirname "$G")"
+        OLDDIR="$PWD"
+        cd "$D"
+        sh -c "$CMD" || true
+        cd "$OLDDIR"
+    done
diff --git a/bin/find-git-fetch b/bin/find-git-fetch
new file mode 100755
index 0000000..3ce69ce
--- /dev/null
+++ b/bin/find-git-fetch
@@ -0,0 +1,2 @@
+#!/bin/sh
+find-git "pwd; git fetch"
diff --git a/bin/find-git-st b/bin/find-git-st
new file mode 100755
index 0000000..c379a7a
--- /dev/null
+++ b/bin/find-git-st
@@ -0,0 +1,2 @@
+#!/bin/sh
+find-git "pwd; git st -s" | less
diff --git a/bin/find-git-to-push b/bin/find-git-to-push
new file mode 100755
index 0000000..4fdd784
--- /dev/null
+++ b/bin/find-git-to-push
@@ -0,0 +1,4 @@
+#!/bin/sh
+CMD="$@"
+[ -n "$CMD" ] || CMD=pwd
+find-git "if git st | grep -q ahead; then $CMD; fi"
diff --git a/bin/get-tag b/bin/get-tag
new file mode 100755
index 0000000..d4ce3a4
--- /dev/null
+++ b/bin/get-tag
@@ -0,0 +1,7 @@
+#!/bin/sh
+set -e
+FILE="$1"
+echo "TYPE=\"$(echo "$FILE" | grep -Eo '[.][^.]*$' | cut -c 2-)\""
+ffprobe -hide_banner "$FILE" 2>&1 | \
+    grep -e TITLE -e ARTIST -e ALBUM -e GENRE -e DATE | \
+    sed -e 's/\( *\([A-Z]*\)\) *\([A-Z]*\) *: \(.*\)/\2\3="\4"/'
diff --git a/bin/hyperspec b/bin/hyperspec
new file mode 100755
index 0000000..4a751b8
--- /dev/null
+++ b/bin/hyperspec
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec links -g /usr/share/doc/hyperspec/HyperSpec/Front/index.htm
diff --git a/bin/index-audio b/bin/index-audio
new file mode 100755
index 0000000..15d20ea
--- /dev/null
+++ b/bin/index-audio
@@ -0,0 +1,23 @@
+#!/bin/sh
+set -e
+FILE="$1"
+eval `get-tag "$FILE" | grep -E '^[A-Z]*=\"[^\"]*\"$'`
+linkto() {
+    DIR="$1"
+    mkdir -p "$DIR"
+    if ! ln -sf "$FILE" "$DIR"; then
+        echo "$FILE" >> _dup.txt
+    fi
+}
+if [ -z "$ARTIST" ] || [ -z "$ALBUM" ] || [ -z "$TYPE" ] || [ -z "$GENRE" ] || [ -z "$DATE" ]; then
+    echo "$FILE" >> _tag.txt
+else
+    echo "# $ARTIST # $ALBUM # $DATE # $GENRE # $TYPE #"
+    echo "$FILE"
+    linkto "_artist/${ARTIST}/${ALBUM}"
+    linkto "_genre/${GENRE}/${ARTIST}/${ALBUM}"
+    linkto "_year/${DATE}/${ARTIST}/${ALBUM}"
+    linkto "_${TYPE}/${ARTIST}/${ALBUM}"
+    linkto "_${TYPE}/_genre/${GENRE}/${ARTIST}/${ALBUM}"
+    linkto "_${TYPE}/_year/${DATE}/${ARTIST}/${ALBUM}"
+fi
diff --git a/bin/index-audio-dir b/bin/index-audio-dir
new file mode 100755
index 0000000..2939fed
--- /dev/null
+++ b/bin/index-audio-dir
@@ -0,0 +1,6 @@
+#!/bin/sh
+set -e
+find -type f -name '*.flac' -or -name '*.mp3' | \
+    while read F; do
+        index-audio "$F"
+    done
diff --git a/bin/lftp-ovh b/bin/lftp-ovh
new file mode 100755
index 0000000..46d4428
--- /dev/null
+++ b/bin/lftp-ovh
@@ -0,0 +1 @@
+lftp kmxiolzase:aZK25GF1R4L52WLVMECWGMU@ftp.cluster021.hosting.ovh.net
diff --git a/bin/magnet b/bin/magnet
new file mode 100755
index 0000000..ea28254
--- /dev/null
+++ b/bin/magnet
@@ -0,0 +1,2 @@
+#!/bin/sh
+echo "$@" >> ~/magnet
diff --git a/bin/mirror b/bin/mirror
new file mode 100755
index 0000000..4f87f2c
--- /dev/null
+++ b/bin/mirror
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec wget -c -k -m -p -np $@
diff --git a/bin/onchange b/bin/onchange
new file mode 100755
index 0000000..3c7efee
Binary files /dev/null and b/bin/onchange differ
diff --git a/bin/quote b/bin/quote
new file mode 100755
index 0000000..cda39fa
--- /dev/null
+++ b/bin/quote
@@ -0,0 +1,10 @@
+#!/bin/sh
+X="$1"
+SIMPLE="$(echo "$X" | grep -E '^[-+/=.,:^_0-9A-Za-z]*$')"
+if [ "$X" = "$SIMPLE" ]; then
+    echo "$X"
+else
+    echo -n '"'
+    echo -n "$X" | sed -e 's/\([$`\"]\)/\\\1/g'
+    echo '"'
+fi
diff --git a/bin/temperature-t60 b/bin/temperature-t60
new file mode 100755
index 0000000..5c4a7de
--- /dev/null
+++ b/bin/temperature-t60
@@ -0,0 +1,4 @@
+#!/bin/sh
+CPUTEMP=$(sysctl -n hw.sensors.cpu0.temp0 | cut -d\  -f 1)
+MBTEMP=$(sysctl -n hw.sensors.aps0.temp0 | cut -d\  -f 1)
+echo "${CPUTEMP}°C ${MBTEMP}°C"
diff --git a/bin/unzip-in-dir b/bin/unzip-in-dir
new file mode 100755
index 0000000..98cda92
--- /dev/null
+++ b/bin/unzip-in-dir
@@ -0,0 +1,9 @@
+#!/bin/sh
+for F; do
+    D="$(pwd)"
+    DIR="$(echo "$F" | sed -e 's/[.][Zz][Ii][Pp]$//')"
+    mkdir "$DIR"
+    cd "$DIR"
+    unzip "$D/$F"
+    cd "$D"
+done