mostly new music stuff
[distro-setup] / brc2
diff --git a/brc2 b/brc2
index 754f9a0ca1b37a784bad5ebfee9fb14d6abacabc..9dda87b0930740b7896e601fd780e452b887dcfc 100644 (file)
--- a/brc2
+++ b/brc2
@@ -115,9 +115,9 @@ rootrsync() {
 }
 
 zcheck() {
-  s ssh bow DISPLAY=:0 scrot /tmp/oegu.jpg
-  s scp bow:/tmp/oegu.jpg /t
-  s ssh bow rm /tmp/oegu.jpg
+  ssh bow DISPLAY=:0 scrot /tmp/oegu.jpg
+  scp bow:/tmp/oegu.jpg /t
+  ssh bow rm /tmp/oegu.jpg
   feh /t/oegu.jpg
 }
 
@@ -364,7 +364,7 @@ ap() {
 }
 aw() {
   pushd /a/work/ans >/dev/null
-  time ansible-playbook -v -i inventory adhoc.yml "$@"
+  time ansible-playbook -i inventory adhoc.yml "$@"
   popd >/dev/null
 }
 ad() {
@@ -380,6 +380,434 @@ astudio() {
   /a/opt/android-studio/bin/studio.sh "$@" &r;
 }
 
+
+iki() {
+  local url path
+  if [[ $1 ]]; then
+    path="$*"
+  else
+    read -r -p "enter path" path
+  fi
+  url=$(readlink -f "$path")
+  url="https://brains.fsf.org/wiki/${url#*brains/}"
+  url="${url%.mdwn}"
+  echo "$url"
+  # /f/brains/sysadmin/interns/2022/nick_shrader/intro_blog_post.mdwn
+  # becomes
+  # https://brains.fsf.org/wiki/sysadmin/interns/2022/nick_shrader/intro_blog_post
+
+}
+
+# Generate beet smartplaylists for navidrome.
+# for going in the reverse direction, run
+# /b/ds/navidrome-playlist-export
+beetsmartplaylists() {
+  install -m 0700 -d /tmp/ianbeetstmp
+  beet splupdate
+  # kill off any playlists we deleted. they will still need manual
+  # killing from a navidrome client.
+  rm -rf /i/converted/beetsmartplaylists
+  mkdir -p /i/converted/beetsmartplaylists
+  for f in /tmp/ianbeetstmp/*; do
+    sed 's,^/i/m,/i/converted,;s,\.flac$,.mp3,' "$f" >"/i/converted/beetsmartplaylists/${f##*/}"
+    rm "$f"
+  done
+  rmdir /tmp/ianbeetstmp
+}
+
+# Export beets ratings into navidrome
+beetrating() {
+  local tmp tmpfile myuser userid rating path cpath sqlpath
+  # plucked this from the db. im the only user.
+  userid=23cc2eb9-e35e-4811-a0f0-d5f0dd6eb634
+  tmpfile=$(mktemp)
+  beet ls -f '$rating $path' ^genre:spoken-w ^genre:skit rating:2..5 >$tmpfile
+  while read -r rating path; do
+    tmp="/i/converted${path#/i/m}"
+    cpath="${tmp%.*}.mp3" # converted path
+    sqlpath="${cpath//\'/\'\'}"
+    old_rating=$(sqlite3 /i/navidrome/navidrome.db "select rating from annotation inner join media_file on item_id = id where path = '$sqlpath' and item_type = 'media_file';")
+    if [[ $old_rating ]]; then
+      if [[ $old_rating != $rating ]]; then
+        # https://stackoverflow.com/a/50317320
+        m sqlite3 /i/navidrome/navidrome.db "
+update annotation set rating = $rating
+ where item_id in (
+ select media_file.id from annotation inner join media_file on annotation.item_id = media_file.id
+   where media_file.path = '$sqlpath' and annotation.item_type = 'media_file' );"
+      fi
+    else
+      # /a/opt/navidrome/persistence/sql_annotations.go v0.48.0
+      # https://www.sqlite.org/lang_insert.html
+      m sqlite3 /i/navidrome/navidrome.db "insert into annotation select '$(uuidgen)', '$userid', id, 'media_file', 0, NULL, $rating, 0, NULL from media_file where path = '$sqlpath';"
+    fi
+    #sqlite3 /i/navidrome/navidrome.db "select path from annotation inner join media_file on item_id = id where rating = $r;"
+  done <$tmpfile
+}
+
+# Do transcoding and hardlinking of audio files for navidrome.
+#
+# This deletes files in the converted directory which should no longer
+# be there due to a rename of the unconverted file.
+beetconvert() {
+  local l query
+  local -A paths
+  query="^genre:spoken-w ^genre:skit ^lesser_version:t ^rating:1"
+  # redirect is to avoid printing every file
+  beet convert -y $query >/dev/null 2> >(grep -v '^convert: Skipping' ||:)
+
+  ## begin removal of files that are leftover from previous conversion,
+  # eg, previously rated > 1, now rated 1.
+  while read -r l; do
+    convertedpath="/i/converted${l#/i/m}"
+    case $convertedpath in
+      *.flac) convertedpath="${convertedpath%.flac}.mp3" ;;
+    esac
+    paths[$convertedpath]=t
+  done < <(beet ls -f '$path' $query)
+  while read -r l; do
+    if [[ ! ${paths[$l]} ]]; then
+      rm -v "$l"
+    fi
+    # note: the pruning is duplicative of filtering on name, but whatever.
+  done < <(find /i/converted -path /i/converted/beetsmartplaylists -prune -o \( -type f -print \) -name '*.mp3' -o -name '*.m4a')
+  ## end
+}
+
+# tag with beets.
+# usage: beetag QUERY
+# it lists the query, reads an input char for tagging one by one.
+# 1-5 = set rating
+# a-x 0 6-9 / . , = set genre/playlist. (available buttons: ` \ ) ] [
+# q = quit
+# y = toggle to setting rare genres
+# z = put the player in the foreground
+# enter = next song
+# ' = toggle playing of songs, also replays current song if hit twice
+# ; = go to previous song
+# _ = delete file, remove from library
+# -/+ = decrease / increase volume
+#
+# note, you may want to change the play command for doing rapid taging
+# by immediately jumping forward into the song. this is set in the beets
+# config yaml.
+beetag() {
+  local last_genre_i fstring tag id char new_item char_i genre tag remove doplay i j random
+  local do_rare_genres read_wait
+  local -a genres pl_tags buttons button_map ids tags rare_genres tmp_tags
+  local -A button_i
+  local -i volume
+  do_rare_genres=false
+  random=false
+  volume=70
+  read_wait=2
+  case $1 in
+    -r)
+      random=true
+      shift
+      ;;
+  esac
+  if (( ! $# )); then
+    echo beetag: error expected a query arg >&2
+    return 1
+  fi
+  doplay=true
+  genres=(
+    # gangsta rap / angry rap. something like g-rap would make beet queries for genre:rap include it
+    arp
+    ambient
+    avant
+    blues
+    classical
+    # slow instrumental. todo: reclassify some ambient into this.
+    chill
+    country
+    # like power glove
+    dark-wave
+    # lyrical edm. todo: some pop needs reclassification to this
+    dance
+    hardcore
+    instrumental
+    latin
+    metal
+    # mq = mac quale. similar to the mr robot soundtracks.
+    # slow, foreboding. usually electronic.
+    mq
+    pop
+    rap
+    rock
+    # like rain by brian crain. mostly slow broody piano
+    sleep
+    techno
+    world
+  )
+  # because we were destined to run out of single key buttons.
+  rare_genres=(
+    jazz
+    musical
+    noise
+    skit
+    spoken-w
+  )
+  pl_tags=(
+    ## cross-genre tags that dont really make a playlist
+    expl
+    # songs i like but they get old fast due to feeling gimicky, or cringy after a while.
+    gimicky
+    # alternate version of a song we already have which isn't as good
+    lesser_version
+    # anything sad which i sometimes like or avoid.
+    sad
+
+    ## playlists
+    # intimate, love
+    love
+    # favorite songs pump up songs
+    pump1
+    # favorite rap pump up songs, allows more songs than pump1
+    pumprap
+    # heart rending, spine tickling
+    rend
+    # for running
+    run
+  )
+  last_genre_i=$(( ${#genres[@]} - 1 ))
+  buttons=( {a..p} {r..w} 0 {6..9} , . / )
+  button_map=(${genres[@]} ${pl_tags[@]})
+  fstring=
+  for tag in "${pl_tags[@]}"; do
+    fstring+="%ifdef{$tag,$tag }"
+  done
+
+  for (( i=0; i<${#buttons[@]}; i++ )); do
+    button_i[${buttons[i]}]=$i
+  done
+  beet ls -f '%ifdef{rating,$rating }'"$fstring"', $genre $artist - $album - $title' "$@"
+  mapfile -t ids < <(beet ls -f '$id' "$@" | { if $random; then sort -R; else cat; fi; } )
+  for (( j=0; j<${#ids[@]}; j++ )); do
+    hr
+    id=${ids[j]}
+    lsout="$(beet ls -f '%ifdef{rating,$rating }'"$fstring"', $genre $id $artist - $album - $title' "id:$id")"
+    tags=( ${lsout%%,*} )
+    printf "%s\n" "$lsout"
+    for (( i=0; i<${#button_map[@]}; i++ )); do
+      echo ${buttons[i]} ${button_map[i]}
+    done
+    if $doplay; then
+      beet play --args=--volume=$volume "id:$id" &
+    fi
+    while true; do
+      char=
+      if $doplay; then
+        ret=0
+        read -r -N 1 -s -t $read_wait char || ret=$?
+        read_wait=2
+        # Automatically skip to the next song if this one ends, unless
+        # we turn off the autoplay.
+        if (( ret == 142 )) || [[ ! $char ]]; then
+          if bg %% &>/dev/null; then
+            continue
+          else
+            break
+          fi
+        fi
+      else
+        read -r -N 1 -s char
+      fi
+      if [[ $char == $'\n' ]]; then
+        kill %% ||: &>/dev/null
+        break
+      fi
+      case $char in
+        ";")
+          kill %% ||: &>/dev/null
+          j=$(( j - 2 ))
+          break
+          ;;
+        "'")
+          if $doplay; then
+            doplay=false
+          else
+            doplay=true
+            kill %% ||: &>/dev/null
+            beet play --args=--volume=$volume "id:$id" &
+          fi
+          continue
+          ;;
+        _)
+          kill %% ||: &>/dev/null
+          m beet rm --delete --force "id:$id"
+          break
+          ;;
+        [1-5])
+          beet modify -y "id:$id" rating=$char
+          continue
+          ;;
+        -)
+          volume=$(( volume - 5 ))
+          if (( volume < 0 )); then
+            volume=0
+          fi
+          echo volume=$volume
+          continue
+          ;;
+        q)
+          kill %% ||: &>/dev/null
+          return
+          ;;
+        +)
+          volume+=5
+          if (( volume > 130 )); then
+            volume=130
+          fi
+          echo volume=$volume
+          continue
+          ;;
+        y)
+          if $do_rare_genres; then
+            do_rare_genres=false
+            button_map=(${genres[@]} ${pl_tags[@]})
+            last_genre_i=$(( ${#rare_genres[@]} - 1 ))
+          else
+            do_rare_genres=true
+            button_map=(${rare_genres[@]} ${pl_tags[@]})
+            last_genre_i=$(( ${#genres[@]} - 1 ))
+          fi
+          local -A button_i
+          for (( i=0; i<${#buttons[@]}; i++ )); do
+            button_i[${buttons[i]}]=$i
+          done
+          for (( i=0; i<${#button_map[@]}; i++ )); do
+            echo ${buttons[i]} ${button_map[i]}
+          done
+          continue
+          ;;
+        z)
+          # if we ctrl-z, it will put the whole function into sleep. so
+          # basically, we can't return from a foregrounded mpv like we
+          # would like to without some strange mechanism I can't think
+          # of. So, instead, detect ctrl-c and wait a while for prompt
+          # input. One idea would be to use a music player like mpd where
+          # we can send it messages.
+          if ! fg; then
+            sleep_wait=10
+          fi
+          continue
+          ;;
+      esac
+      char_i=${button_i[$char]}
+      new_item=${button_map[$char_i]}
+      if [[ ! $char_i || ! $new_item ]]; then
+        echo "error: no mapping of input: $char found, try again"
+        continue
+      fi
+      if (( char_i <= last_genre_i )); then
+        m beet modify -y "id:$id" genre=$new_item
+      else
+        remove=false
+        tmp_tags=()
+        for tag in ${tags[@]}; do
+          if [[ $new_item == "$tag" ]]; then
+            remove=true
+          else
+            tmp_tags+=("$tag")
+          fi
+        done
+        if $remove; then
+          tags=("${tags[@]}")
+          m beet modify -y "id:$id" "$new_item!"
+        else
+          tags+=("$new_item")
+          m beet modify -y "id:$id" $new_item=t
+        fi
+      fi
+    done
+  done
+}
+
+# usage: FILE|ALBUM_DIR [GENRE]
+beetadd() {
+  local import_path genre_arg single_track_arg
+  import_path="$1"
+  if [[ ! -e $import_path ]]; then
+    echo "beetadd error: path does not exist"
+  fi
+  if [[ $2 ]]; then
+    genre_arg="--set genre=$2"
+  fi
+  if [[ -f $import_path ]]; then
+    single_track_arg=-s
+  fi
+  beet import --set totag=t $single_track_arg $genre_arg "$import_path"
+  beetag totag:t
+  beet modify -y totag:t "totag!"
+}
+
+# update navidrome music data after doing beets tagging
+beet2nav() {
+  beetconvert
+  beetsmartplaylists
+  beetrating
+}
+
+# pull in beets library locally
+beetpull() {
+  if [[ ! -e /i ]]; then
+    s mkdir /i
+    s chown iank:iank /i
+    sshfs b8.nz:/i /i
+  fi
+}
+
+# escape regex.
+#
+# This is not perfect but generally good enough. It escapes all
+# metachars listed man 3 pcrepattern.
+er() {
+  sed 's/[]\\^$.[|()?*+{}]/[&]/g; s/\^/\\^/g' <<<"$*"
+}
+
+# usage beegenre QUERY
+#
+# beet set genre for QUERY based on existing artist most used genre on
+#
+# inverse of query for each artist found in QUERY. If query starts with
+# "artist:" it is used as the artist instead of each artist in QUERY.
+#
+beegenre() {
+  local artist artregex genre term singleartist
+  local -a artists genres terms
+  singleartist=false
+  case $1 in
+    artist:*)
+      singleartist=true
+      artist="$term"
+      ;;
+  esac
+  if $singleartist; then
+    read count genre < <(beet ls -f '$genre' "$artist" "${@/#/^}" | sort | uniq -c | sort -n | tail -n1) ||:
+    beet modify "$artist" "$@" genre=$genre
+  else
+    while read -r artist; do
+      artregex=$(er "$artist")
+      read count genre < <(beet ls -f '$genre' "artist::^$artregex$" "${@/#/^}" | sort | uniq -c | sort -n | tail -n1) || continue
+      if [[ $count ]]; then
+        artists+=("$artregex")
+        genres+=("$genre")
+        echo "beet modify -y $@ \"artist::^$artist$\" genre=$genre # $count"
+      fi
+    done < <(beet ls -f '$artist' "$@" | sort -u)
+    read -r -N 1 -s -p "Y/n " char
+    case $char in
+      [Yy$'\n'])
+        for (( i=0; i<${#artists[@]}; i++ )); do
+          beet modify -y "$@"  "artist::^${artists[i]}$" genre=${genre[i]}
+        done
+        ;;
+    esac
+  fi
+}
+
 # note, to check for glue records
 # First, find some the .org nameservers:
 # dig +trace iankelling.org
@@ -414,7 +842,7 @@ bbk() { # btrbk wrapper
   install-my-scripts
   # todo: consider changing this to srun and having the args come
   # from a file like /etc/default/btrbk, like is done in exim
-  s jrun btrbk-run "$@"
+  s jdo btrbk-run "$@"
   if $active; then
     if (( ret )); then
       echo bbk: WARNING: btrbk.timer not restarted due to failure
@@ -454,40 +882,138 @@ locat() { # log-once cat
   ngreset
 }
 
-# duplicated somewhat below.
-jrun() { # journal run. run args, log to journal, tail and grep the journal.
-  # Note, an alternative without systemd would be something like ts.
-  # Note, I tried using systemd-cat, but this seems obviously better,
-  # and that seemed to have a problem exiting during a systemctl daemon-reload
-  local cmd_name jr_pid s
+scr() {
+  screen -RD "$@"
+}
+
+# usage: first get an adb shell on the phone.
+#
+# just followed instructions in readme at
+# https://github.com/Yuubi-san/ceb-tools
+# tried to use ceb2txt but it failed because of schema
+# slightly different than what it expected.
+cheogram-get-logs() {
+  adb shell rm -r /storage/emulated/0/Download/Cheogram/Backup
+  read -p "do cheogram backup on phone, do not enable extra cheogram data. press any key when done"
+  cd /p/cheogram
+  rm -rf Backup b
+  adb pull /storage/emulated/0/Download/Cheogram/Backup
+  sqlite3 b </a/opt/ceb-tools/schema.sql
+  echo "note: the next step took 39 seconds last time i measured"
+  /a/opt/ceb-tools/ceb2sqlgz Backup/iank@fsf.org.ceb <pas | gunzip | sqlite3 b
+  rm -r Backup
+}
+
+# usage: cheologs [DAYS_LIMIT]
+# default days is 100
+cheologs() {
+  local days q
+  days=${1:-100}
+  q="
+select
+ datetime(substr(timeSent,0,11),  'unixepoch'),
+ replace(replace(counterpart,'@fsf.org',''),
+        '@conference.fsf.org',''),
+ body
+from messages
+where timeSent > $(( (EPOCHSECONDS - days * 60 * 60 * 24) * 1000 ))
+order by timeSent;"
+  sqlite3 /p/cheogram/b ".mode tabs" "$q" | less
+}
+
+mycheologs() {
+  local days q
+  days=${1:-16}
+  q="
+select
+ datetime(substr(timeSent,0,11),  'unixepoch'),
+ body
+from messages
+where timeSent > $(( (EPOCHSECONDS - days * 60 * 60 * 24) * 1000 ))
+and counterpart = 'office@conference.fsf.org/iank'
+order by timeSent;"
+  sqlite3 /p/cheogram/b ".mode tabs" "$q" | sed 's/ /./' | less
+}
+
+# version of jdo for my non-root user
+jdo() {
+  # comparison of alternative logging methods:
+  #
+  # systemd-run command (what this function does)
+  #
+  # If there is a user prompt, the program will detect that it is not
+  # connected to a terminal and act in a non-interactive way, skipping
+  # the prompt. This has the benefit that you know exactly how the
+  # program will act if you want to move it into a service that runs
+  # automatically.
+  #
+  # If run with sudo and command is a shell script which does a sleep,
+  # it can (sometimes?) output some extra whitespace in front of
+  # messages, more for each subsequent message. This can be avoided by
+  # becoming root first.
+  #
+  # It logs the command's pid and exit code, which is nice.
+  #
+  #
+  ### command |& ts | tee file.log
+  #
+  # If there is a user prompt, like "read -p prompt var", it will hang
+  # without outputting the prompt.
+  #
+  # I've had a few times where ts had an error and I wasn't totally sure
+  # if it was really the command or ts having the problem.
+  #
+  # Sometimes some output will get hidden until you hit enter.
+  #
+  #
+  ### command |& pee cat logger
+  #
+  # This seems to work. I need to test more.
+  #
+  #
+  ### command |& logger -s
+  #
+  # User prompts get confusingly prefixed to earlier output, and all log
+  # entries get prefixed with annoying priority level.
+  #
+  #
+  ### systemd-cat
+  #
+  # Had a few problems. One major one is that it exited in the middle of
+  # a command on systemctl daemon-reload
+  #
+  # Related commands which can log a whole session: script, sudo, screen
+  local cmd cmd_name jr_pid ret
   ret=0
-  cmd_name=${1##*/}
-  cmd=$1
+  cmd="$1"
+  shift
+  cmd_name=${cmd##*/}
   if [[ $cmd != /* ]]; then
-    cmd=$(which $1)
+    cmd=$(type -P "$cmd")
   fi
+  # -q = quiet
   journalctl -qn2 -f -u "$cmd_name" &
-  # Guess of time needed to avoid missing initial lines.
+  # Trial and error of time needed to avoid missing initial lines.
   # .5 was not reliable. 1 was not reliable. 2 was not reliable
   sleep 4
-  # We kill this in prompt-command for the case that we ctrl-c the
-  # systemd-cat. i dont know any way to trap ctrl-c and still run the
-  # normal action for it. There might be a way, unsure.
   jr_pid=$!
   # note, we could have a version that does system --user, but if for example
   # it does sudo ssh, that will leave a process around that we can't kill
   # and it will leave the unit hanging around in a failed state needing manual
   # killing of the process.
-  s systemd-run --uid $(id -u) --gid $(id -g) \
+  s systemd-run --uid $(id -u) --gid $(id -g) \
     -E SSH_AUTH_SOCK=/run/openssh_agent \
-    --unit "$cmd_name" --wait --collect "$cmd" "${@:2}" || ret=$?
-  # This justs lets the journal output its last line
+    --unit "$cmd_name" --wait --collect "$cmd" "$@" || ret=$?
+  # The sleep lets the journal output its last line
   # before the prompt comes up.
   sleep .5
   kill $jr_pid &>/dev/null ||:
   unset jr_pid
   fg &>/dev/null ||:
+  # this avoids any err-catch
+  (( $ret == 0 )) || return $ret
 }
+
 # service run, and watch the output
 srun() {
   local unit
@@ -511,7 +1037,7 @@ sm() { # switch mail host
     s ssh-add /root/.ssh/home
   fi
   install-my-scripts
-  s jrun switch-mail-host "$@"
+  s jdo switch-mail-host "$@"
   return $ret
 }
 sh2() { # switch host2
@@ -524,7 +1050,7 @@ sh2() { # switch host2
     s ssh-add /root/.ssh/home
   fi
   install-my-scripts
-  s jrun switch-host2 "$@"
+  s jdo switch-host2 "$@"
   return $ret
 }
 
@@ -1045,8 +1571,9 @@ hstatus() {
 
 # work log
 wlog() {
-  local day now i
-  for (( i=0; i<60; i++ )); do
+  local day now i days_back
+  days_back=${1:-16}
+  for (( i=0; i<days_back; i++ )); do
     day=$( date +%F -d @$((EPOCHSECONDS - 86400*i )) )
     date "+%a %b %d" -d @$((EPOCHSECONDS - 86400*i )) | tr '\n' ' '
     /a/opt/timetrap/bin/t d -ftotal -s $day -e $day all -m '^w|lunch$'
@@ -1217,7 +1744,7 @@ lom() {
       m sudo losetup $l $fs_file
     fi
     if ! sudo cryptsetup status /dev/mapper/$base &>/dev/null; then
-      if ! sudo cryptsetup luksOpen $l $base; then
+      if ! sudo cryptsetup luksOpen $l $base; then
         m sudo losetup -d $l
         return 1
       fi
@@ -1368,6 +1895,9 @@ mpvm() {
   # get page source of https://en.wikipedia.org/w/index.php?title=Video_file_format&action=edit
   # into /a/x.log, then
   # grep '^| *\.' /a/x.log | sed 's/| *//;s/,//g'
+
+  #  note: to join them together for a regex, do:
+  # old=; for e in ${extensions[@]/./}; do if [[ ! $old ]]; then old=$e; continue; fi; echo -n "$old|"; old=$e; done; echo $e
   extensions=(
     .webm
     .mkv
@@ -1434,8 +1964,38 @@ allmyirc() {
   ssh root@iankelling.org "cd $d; find . -mtime -60 -type f -exec grep '\<iank.*' {} +" | sed -r 's,^..([^/]*)/(.{11})(.{5})(.{8}).,\2\4 \1,' | sort
 }
 
+# usage: debvm DEBIAN_VERSION RAM_MB
+debvm() {
+  local ver ram fname src
+  ver=$1
+  ram=${2:-2024}
+  # * is because it might have -backports in the name
+  fname=debian-$ver-*nocloud-$(dpkg --print-architecture).qcow2
+  src=/a/opt/roms/$fname
+  if [[ ! -f $src ]]; then
+    echo debvm: not found $src, download from eg: https://cloud.debian.org/images/cloud/buster/latest/
+    return 1
+  fi
+  cp -a $src /t
+  # note, in fai-revm we do this: not sure why, maybe because of br device
+  # --graphics spice,listen=0.0.0.0
+  m s virt-install --osinfo debian11 --rng /dev/urandom -n deb${ver}tmp --import -r $ram --vcpus 2 --disk /t/$fname --graphics spice
+  # note: to ssh into this machine will require host key generation: ssh-keygen -A
+
+  # random: for cvs2git on gnu www, use debian 10. I could use trisquel,
+  # but happen to want to try out the debian cloud images. the upstream
+  # requires python2 and hasn't really changed since the version in d10.
+  #
+  # apt install cvs2git cvs
+  # # 7G was not enough
+  # mount -o mode=1777,nosuid,nodev,size=34G -t tmpfs tmpfs /tmp
+  # cvs2git --encoding utf_8 --fallback-encoding ascii --dumpfile=dump www-rsync/www |& tee /tmp/l
+  ## www-rsync is an rsynced copy of the cvsfrom savannah
+}
+
 mygajim() {
-  local time time_sec time_pretty
+  local time time_sec time_pretty days
+  days=${1:-16}
   sqlite3 -separator ' ' /p/c/subdir_files/.local/share/gajim/logs.db "select time, message from logs where contact_name = 'iank' and jid_id = 17;" | while read -r time l; do
     case $time in
       16*) : ;;
@@ -1448,7 +2008,7 @@ mygajim() {
     echo $time_pretty "$l"
     time_sec=${time%%.*}
     # only look at the last 18 days. generally just use this for timesheet.
-    if (( time_sec < EPOCHSECONDS - 60 * 60 * 24 * 18 )); then break; fi
+    if (( time_sec < EPOCHSECONDS - 60 * 60 * 24 * days )); then break; fi
   done
 }
 
@@ -1460,6 +2020,7 @@ gajlogs() {
   sqlite3 -separator ' ' /p/c/subdir_files/.local/share/gajim/logs.db "select time, message from logs" | less
 }
 
+
 net-dev-info() {
   e "lspci -nnk|gr -iA2 net"
   lspci -nnk|gr -iA2 net
@@ -1833,6 +2394,20 @@ This is a test message.
 EOF
 }
 
+# test bounce exim
+testbexim() {
+  to=$1
+  exim -d -f '<>' $to <<EOF
+From: Mail Delivery System <Mailer-Daemon@gnu.org>
+To: $to
+Subject: Mail delivery failed: returning message to sender
+
+This message was created automatically by mail delivery software.
+EOF
+
+}
+
+
 # toggle keyboard
 tk() {
   # based on
@@ -2242,6 +2817,10 @@ EOF
 }
 
 
+# very useful, copy directory structure 3 deep. add remove /*/ to change level
+# rsync -aivh  --exclude '/*/*/*/' -f"+ */" -f"- *" SRC DEST
+
+
 # * stuff that makes sense to be at the end
 if [[ "$SUDOD" ]]; then
   # allow failure, for example if we are sudoing into a user with diffferent/lesser permissions.