bin: little link updates

.local/bin/scripts/b

@@ -87,6 +87,7 @@ for arg; do
 	(*)
 		case "$(file "$arg")" in
 		(*\ ?udio*)
+			# TODO preconvert aac - |*\ ADTS\ *
 			img="$tmpfile.png"
 			case $TERM in (*-kitty) kitty=true; audioheight=2;; (*) audioheight=5;; esac
 			if which audiowaveform 2>/dev/null >&2

.local/bin/scripts/bag

@@ -15,7 +15,7 @@ test $# -gt 0 || cd "$root"
 name="::$(test -n "$name" && echo "$name" || cat /etc/hostname)_${1:-system}_$(date -u +"%y%m%d")"
 echo "Backing up as $name"
 ${run:-sudo --preserve-env=BORG_REPO borg} create --exclude-caches $args \
-  $(echo $DIRS_IGNORE_SAFE -x 'software-challenge/**/build' -x state/emacs -x state/go -x .local/lib |
+  $(echo $DIRS_IGNORE_SAFE -x 'software-challenge/**/build' -x state/emacs -x state/go -x .local/lib -x .cpan |
     sed 's|-x \([^ ]\+\)|-e sh:**/\1|g') \
   "$name" $(test $# -eq 0 && echo etc home root || test $# -eq 1 && echo $1) "${@:2}"  2>&1
 sudo chown -R $USER:$USER "$BORG_REPO"

.local/bin/scripts/drag

@@ -1,3 +1,3 @@
 #!/bin/sh
-# Start single all-in-one dragon-drag-and-drop with args or pwd
+# Start single all-in-one dragon-drop with args or pwd
 $(command which dragon 2>/dev/null || echo dragon-drop) -x -a "${@:-.}"

.local/bin/scripts/test-colors

@@ -1,5 +1,5 @@
 #!/usr/bin/python
-# https://stackoverflow.com/questions/4842424/list-of-ansi-color-escape-sequences
+# https://stackoverflow.com/questions/4842424/list-of-ansi-color-escape-sequences/33206814
 
 print("\\033[XXm")
 
@@ -22,4 +22,3 @@ print("\\033[4m  Underline on")
 print("\\033[24m Underline off")
 print("\\033[1m  Bold on")
 print("\\033[21m Bold off")
-