iankelling.org Git - distro-setup/blob - brc

   1 #!/bin/bash
   2 # Copyright (C) 2019 Ian Kelling
   3 # SPDX-License-Identifier: AGPL-3.0-or-later
   4 # this gets sourced. shebang is just for file mode detection
   5
   6 # Use source ~/.bashrc instead of doing bash -l when running a script
   7 # so this can set extdebug and avoid the bash debugger.
   8 if [[ -s /a/bin/errhandle/err ]]; then
   9   source /a/bin/errhandle/err
  10 elif [[ -s $bashrc_dir/err ]]; then
  11   # shellcheck source=/a/bin/errhandle/err
  12   source $bashrc_dir/err
  13 fi
  14
  15 # In t8, it runs clear_console for login shells by default. I don't want
  16 # my console cleared. And linux ttys get cleared without this.
  17 if shopt login_shell >/dev/null && [[ -e ~/.bash_logout ]]; then
  18   rm ~/.bash_logout
  19 fi
  20
  21 # if [[ -s /usr/share/bash-completion/completions/git ]]; then
  22 #   source /usr/share/bash-completion/completions/git
  23 # fi
  24 # if [[ -s /usr/share/bash-completion/completions/gitk ]]; then
  25 #   source /usr/share/bash-completion/completions/gitk
  26 # fi
  27
  28 # for testing error catching:
  29 # t2() {
  30 #   echo t2
  31 #   grep sdf sdfd
  32 #   echo wtf
  33 # }
  34 # t1() {
  35 #   echo t1
  36 #   t2 a b c
  37 # }
  38
  39 # * settings
  40
  41 CDPATH=.
  42
  43
  44 # remove all aliases. aliases provided by the system tend to get in the way,
  45 # for example, error happens if I try to define a function the same name as an alias
  46 unalias -a
  47
  48 # remove gnome keyring warning messages
  49 # there is probably a more proper way, but I didnt find any easily on google
  50 # now using xfce+xmonad instead of vanilla xmonad, so disabling this
  51 #unset GNOME_KEYRING_CONTROL
  52
  53 # use extra globing features.
  54 shopt -s extglob
  55 # include .files when globbing, but ignore files name . and ..
  56 # setting this also sets dotglob.
  57 export GLOBIGNORE="*/.:*/.."
  58
  59 # Useful info. see man bash.
  60 PS4='$LINENO+ '
  61
  62
  63 # broken with bash_completion package. Saw a bug for this once. dont anymore.
  64 # still broken in wheezy
  65 # still buggered in latest stable from the web, version 2.1
  66 # perhaps its fixed in newer git version, which fails to make for me
  67 # this note is from 6-2014.
  68 # still broken in flidas.
  69 #shopt -s nullglob
  70
  71 # make tab on an empty line do nothing
  72 shopt -s no_empty_cmd_completion
  73
  74 # fix spelling errors for cd, only in interactive shell
  75 shopt -s cdspell
  76 # append history instead of overwritting it
  77 shopt -s histappend
  78 # for compatibility, per gentoo/debian bashrc
  79 shopt -s checkwinsize
  80 # attempt to save multiline single commands as single history entries.
  81 shopt -s cmdhist
  82 # enable **
  83 shopt -s globstar
  84
  85
  86 # inside emacs fixes
  87 if [[ $LC_INSIDE_EMACS ]]; then
  88   # EMACS is used by bash on startup, but we dont need it anymore.
  89   # plus I hit a bug in a makefile which inherited it
  90   unset EMACS
  91   export LC_INSIDE_EMACS
  92   export PAGER=cat
  93   export MANPAGER=cat
  94   # scp completion does not work, but this doesnt fix it. todo, figure this out
  95   #complete -r scp &> /dev/null
  96   # todo, remote file completion fails, figure out how to turn it off
  97   export NODE_DISABLE_COLORS=1
  98   # This gets rid of ugly terminal escape chars in node repl
  99   # sometime, Id like to have completion working in emacs shell for node
 100   # the offending chars can be found in lib/readline.js,
 101   # things that do like:
 102   # stream.write('\x1b[' + (x + 1) + 'G');
 103   # We can remove them and keep readline, for example by doing this
 104   # to start a repl:
 105   #!/usr/bin/env nodejs
 106   # var readline = require('readline');
 107   # readline.cursorTo = function(a,b,c) {};
 108   # readline.clearScreenDown = function(a) {};
 109   # const repl = require('repl');
 110   # var replServer = repl.start('');
 111   #
 112   # no prompt, or else readline complete seems to be confused, based
 113   # on our column being different? node probably needs to send
 114   # different kind of escape sequence that is not ugly. Anyways,
 115   # completion doesnt work yet even with the ugly prompt, so whatever
 116   #
 117   export NODE_NO_READLINE=1
 118
 119 fi
 120
 121 export SSH_CONFIG_FILE_OVERRIDE=/root/.ssh/confighome
 122
 123 # emacs has a different default search path than the info command. This
 124 # adds the info defaults to emacs, but not the reverse, because I dun
 125 # care much about the cli. The search path is only on the cli if you run
 126 # "info xxx", or in emacs if you run '(info xxx)', so not that
 127 # important, but might as well fix it.
 128
 129 # info info says this path is what was compiled, and its not documented
 130 # anywhere. Through source grepping, i found it in filesys.h of the info
 131 # source in trisquel flidas.
 132 #
 133 # Traling : means for emacs to add its own stuff on to the end.
 134
 135 export INFOPATH=$PATH:/usr/local/info:/usr/info:/usr/local/lib/info:/usr/lib/info:/usr/local/gnu/info:/usr/local/gnu/lib/info:/usr/gnu/info:/usr/gnu/lib/info:/opt/gnu/info:/usr/share/info:/usr/share/lib/info:/usr/local/share/info:/usr/local/share/lib/info:/usr/gnu/lib/emacs/info:/usr/local/gnu/lib/emacs/info:/usr/local/lib/emacs/info:/usr/local/emacs/info:.:
 136
 137 # for openwrt system that has no stty, this is easier than
 138 # guarding every time i use it.
 139 if ! type -p stty >/dev/null; then
 140   stty() { :; }
 141 fi
 142
 143
 144 use_color=false
 145 if [[ $- == *i* ]]; then
 146   # for readline-complete.el
 147   if [[ $LC_INSIDE_EMACS ]]; then
 148     # all for readline-complete.el
 149     stty echo
 150     bind 'set horizontal-scroll-mode on'
 151     bind 'set print-completions-horizontally on'
 152     bind '"\C-i": self-insert'
 153   else
 154
 155
 156     if [[ $TERM != dumb ]] && test -t 1; then
 157       use_color=true
 158     fi
 159
 160     if [[ $KONSOLE_PROFILE_NAME ]]; then
 161       TERM=xterm-256color
 162     fi
 163
 164     if [[ $TERM == alacritty && ! -e /usr/share/terminfo/a/alacritty ]]; then
 165       # todo: we should try installing the alacritty terminfo if it is not found
 166       # https://github.com/alacritty/alacritty/issues/2838
 167       TERM=xterm-256color
 168     fi
 169
 170     # copying from the alacritty example above,
 171     if [[ $TERM == xterm-kitty ]]; then
 172       if [[ ! -e /usr/share/terminfo/x/xterm-kitty ]]; then
 173         TERM=xterm-256color
 174       else
 175         if [[ -e /a/opt/kitty/shell-integration/bash/kitty.bash ]]; then
 176           KITTY_SHELL_INTEGRATION=t
 177           source /a/opt/kitty/shell-integration/bash/kitty.bash
 178         fi
 179       fi
 180     fi
 181
 182     # todo: not sure this works in sakura
 183     #stty werase undef
 184     #bind "\C-w": kill-region
 185     # sakura == xterm-256color
 186     # konsole == xterm
 187     if [[ $TERM != xterm-kitty && $TERM == xterm* ]]; then
 188       # control + arrow keys. for other terminals, see http://unix.stackexchange.com/questions/10806/how-to-change-previous-next-word-shortcut-in-bash
 189       bind '"\e[1;5C": shell-forward-word' 2>/dev/null
 190       bind '"\e[1;5D": shell-backward-word' 2>/dev/null
 191     else
 192       # make ctrl-backspace work. for konsole, i fixed it through
 193       # /home/iank/.local/share/konsole/default.keytab
 194       stty werase ^h
 195       bind '"\eOc": shell-forward-word'
 196       bind '"\eOd": shell-backward-word'
 197     fi
 198     # i cant remember why i did this, probably to free up some keys to bind
 199     # to other things in bash.
 200     # other than C-c and C-z, the rest defined by stty -a are, at least in
 201     # gnome-terminal, overridden by bash, or disabled by the system
 202     stty  lnext undef stop undef start undef
 203   fi
 204
 205 fi
 206
 207 case $TERM in
 208   # fixup broken backspace in chroots
 209   xterm-kitty|alacritty)
 210     chroot() {
 211       TERM=xterm-256color command chroot "$@"
 212     }
 213     ;;
 214 esac
 215
 216 export BC_LINE_LENGTH=0
 217
 218 # ansible option
 219 export PROFILE_TASKS_TASK_OUTPUT_LIMIT=100
 220
 221 # note, if I use a machine I dont want files readable by all users, set
 222 # umask 077  # If fewer than 4 digits are entered, leading zeros are assumed
 223
 224 # i for insensitive. the rest from
 225 # X means dont remove the current screenworth of output upon exit
 226 # R means to show colors n things
 227 export LESS=RXij12
 228 export SYSTEMD_LESS=$LESS
 229
 230 export NNN_COLORS=2136
 231
 232 export SL_FILES_DIR=/b/ds/sl/.iank
 233 export SL_INFO_DIR=/p/sshinfo
 234
 235
 236 # * include files
 237
 238 if [[ -s $bashrc_dir/path-add-function ]]; then
 239   source $bashrc_dir/path-add-function
 240   if [[ $SSH_CLIENT ]]; then
 241     if grep -qF /home/iank/.iank/e/e /etc/exports &>/dev/null; then
 242       export EMACSDIR=/home/iank/.iank/e/e
 243     fi
 244     path-add $bashrc_dir
 245   fi
 246 fi
 247
 248 # if someone exported $SOE (stop on error), catch errors.
 249 #
 250 # Note, on debian this results in the following warning when in ssh,
 251 # hich I haven't figured out how to fix. It doesn't happen if we source
 252 # after the shell has started
 253 #
 254 # bash: /usr/share/bashdb/bashdb-main.inc: No such file or directory
 255 # bash: warning: cannot start debugger; debugging mode disabled
 256 if [[ $SOE ]]; then
 257   if [[ -e /a/bin/errhandle/err ]]; then
 258     source /a/bin/errhandle/err
 259   fi
 260 fi
 261
 262
 263 mysrc() {
 264   local path dir file
 265   path=$1
 266   dir=${path%/*}
 267   file=${path##*/}
 268   if [[ -s $path ]]; then
 269     source $path
 270   elif [[ -s $bashrc_dir/$file ]]; then
 271     source $bashrc_dir/$file
 272   fi
 273 }
 274
 275
 276 mysrc /a/bin/small-misc-bash/ll-function
 277 mysrc /a/bin/distro-functions/src/package-manager-abstractions
 278
 279
 280 # * functions
 281 ccomp() { # copy completion
 282   local src=$1
 283   local c
 284   shift
 285   if ! c=$(complete -p $src 2>/dev/null); then
 286     _completion_loader $src &>/dev/null ||:
 287     c=$(complete -p $src 2>/dev/null) || return 0
 288   fi
 289   # remove $src( .*|$)
 290   c=${c% $src}
 291   c=${c%% $src *}
 292   eval $c $*
 293 }
 294
 295
 296 ..() { c ..; }
 297 ...() { c ../..; }
 298 ....() { c ../../..; }
 299 .....() { c ../../../..; }
 300 ......() { c ../../../../..; }
 301
 302 chere() {
 303   local f path
 304   for f; do
 305     path=$(readlink -e "$f")
 306     echo "cat >$path <<'EOF'"
 307     cat "$f"
 308     echo EOF
 309   done
 310 }
 311
 312
 313 # file cut copy and paste, like the text buffers :)
 314 # I havnt tested these.
 315 _fbufferinit() { # internal use
 316   ! [[ $my_f_tempdir ]] && my_f_tempdir=$(mktemp -d)
 317   rm -rf "${my_f_tempdir:?}"/*
 318 }
 319 fcp() { # file cp
 320   _fbufferinit
 321   cp "$@" "$my_f_tempdir"/
 322 }
 323 fct() { # file cut
 324   _fbufferinit
 325   mv "$@" "$my_f_tempdir"/
 326 }
 327 fpst() { # file paste
 328   [[ $2 ]] && { echo too many arguments; return 1; }
 329   target=${1:-.}
 330   cp "$my_f_tempdir"/* "$target"
 331 }
 332
 333 _khfix_common() {
 334   local host ip port file key
 335   read -r host ip port < <(timeout -s 9 2 ssh -oBatchMode=yes -oControlMaster=no -oControlPath=/ -v $1 |& sed -rn "s/debug1: Connecting to ([^ ]+) \[([^\]*)] port ([0-9]+).*/\1 \2 \3/p" ||: )
 336   file=$(readlink -f ~/.ssh/known_hosts)
 337   if [[ ! $ip ]]; then
 338     echo "khfix: ssh failed"
 339     return 1
 340   fi
 341   if [[ $port != 22 ]]; then
 342     ip_entry="[$ip]:$port"
 343     host_entry="[$host]:$port"
 344   else
 345     ip_entry=$ip
 346     host_entry=$host
 347   fi
 348   tmpfile=$(mktemp)
 349   if [[ $host != $ip ]]; then
 350     key=$(ssh-keygen -F "$host_entry" -f $file | sed -r 's/^.*([^ ]+ +[^ ]+) *$/\1/')
 351     if [[ $key ]]; then
 352       grep -Fv "$key" "$file" | sponge "$file"
 353     fi
 354   fi
 355   key=$(ssh-keygen -F "$ip_entry" -f $file | sed -r 's/^.*([^ ]+ +[^ ]+) *$/\1/')
 356   if [[ $key ]]; then
 357     grep -Fv "$key" "$file" | sponge "$file"
 358   fi
 359   ll ~/.ssh/known_hosts
 360   rootsshsync
 361 }
 362 khfix() { # known hosts fix
 363   _khfix_common "$@" || return 1
 364   ssh $1 :
 365 }
 366 khcopy() {
 367   _khfix_common "$@"
 368   ssh-copy-id $1
 369 }
 370
 371 a() {
 372   local x
 373   x=$(readlink -nf "${1:-$PWD}")
 374   # yes, its kinda dumb that xclip/xsel cant do this in one invocation
 375   echo -n "$x" | xclip -selection clipboard
 376   echo -n "$x" | xclip
 377 }
 378
 379 # a1 = awk {print $1}
 380 for field in {1..20}; do
 381   eval a$field"() { awk '{print \$$field}'; }"
 382 done
 383 # h1 = head -n1
 384 for num in {1..9}; do
 385   eval h$num"() { head -n$num; }"
 386 done
 387
 388
 389 hexipv4() {
 390   printf '%d.%d.%d.%d\n' $(echo $1 | sed 's/../0x& /g')
 391 }
 392
 393 vp9() {
 394   local f out outdir in
 395   outdir=vp9
 396   case $1 in
 397     --out)
 398       outdir=$2
 399       shift 2
 400       ;;
 401   esac
 402   m mkdir -p $outdir
 403   for f; do
 404     out=$PWD/$outdir/$f
 405     in=$PWD/$f
 406     m cd $(mktemp -d)
 407     pwd
 408     m ffmpeg -threads 0 -i $in -g 192 -vcodec libvpx-vp9 -vf scale=-1:720 -max_muxing_queue_size 9999  -b:v 750K -pass 1 -an -f null /dev/null
 409     m ffmpeg -y -threads 0 -i $in -g 192 -vcodec libvpx-vp9 -vf scale=-1:720 -max_muxing_queue_size 9999 -b:v 750K -pass 2 -c:a libvorbis -qscale:a 5 $out
 410     cd -
 411   done
 412 }
 413
 414 utcl() { # utc 24 hour time to local hour 24 hour time
 415   echo "print( ($1  $(date +%z | sed -r 's/..$//;s/^(-?)0*/\1/')) % 24)"|python3
 416 }
 417
 418 declare -a _iankdirf _iankdirb
 419
 420
 421 # ## old wcd, to be deleted
 422 # b() {
 423 #   # backwards
 424 #   c -
 425 # }
 426 # # shellcheck disable=SC2032
 427 # f() {
 428 #   # cd forward
 429 #   c +
 430 # }
 431 # cl() {
 432 #   # choose recent directory. cl = cd list
 433 #   c =
 434 # }
 435 # # c. better cd
 436 # if ! type -t c &>/dev/null; then
 437 #   if type -p wcd &>/dev/null; then
 438 #     if [[ $LC_INSIDE_EMACS ]]; then
 439 #       c() { wcd -c -z 50 -o "$@"; }
 440 #     else
 441 #       # lets see what the fancy terminal does from time to time
 442 #       c() { wcd -c -z 50 "$@"; }
 443 #     fi
 444 #   else
 445 #     c() { cd "$@"; }
 446 #   fi
 447 # fi
 448
 449 # c. better cd.
 450 # keep 2 stacks, forward and back. the top of the back is $PWD
 451 # as long as the last directory change was due to c,b,or cl.
 452 c() {
 453   # normally, the top of dirb is our current dir. if it isn't,
 454   # put it on there, except we don't want to do that when we
 455   # just launched a shell
 456   if [[ $OLDPWD ]]; then
 457     if (( ${#_iankdirb[@]} == 0 )) || [[ ${_iankdirb[-1]} != "$PWD" ]]; then
 458       _iankdirb+=("$PWD")
 459     fi
 460   fi
 461   cd "$@"
 462   if (( ${#_iankdirb[@]} == 0 )) || [[ ${_iankdirb[-1]} != "$PWD" ]]; then
 463     _iankdirb+=("$PWD")
 464   fi
 465   echo "$PWD" >> ~/.iankdirs
 466 }
 467 ccomp cd c
 468
 469 b() {
 470   local topb
 471   if (( ${#_iankdirb[@]} == 0 )); then
 472     echo "nothing left to go back to" >&2
 473     return 0
 474   fi
 475   topb="${_iankdirb[-1]}"
 476
 477   if [[ $topb == "$PWD" ]] && (( ${#_iankdirb[@]} == 1 )); then
 478     echo "already on last back entry" >&2
 479     return 0
 480   fi
 481
 482
 483   if [[ $topb == "$PWD" ]]; then
 484     # add to dirf if not already there
 485     if (( ${#_iankdirf[@]} == 0 )) || [[ ${_iankdirf[-1]} != "$topb" ]]; then
 486       _iankdirf+=("$topb")
 487     fi
 488     unset "_iankdirb[-1]"
 489     cd "${_iankdirb[-1]}"
 490   else
 491     if (( ${#_iankdirf[@]} == 0 )) || [[ ${_iankdirf[-1]} != "$PWD" ]]; then
 492       _iankdirf+=("$PWD")
 493     fi
 494     cd "$topb"
 495   fi
 496
 497   # give us a peek at what is next in the list
 498   # if (( ${#_iankdirb[@]} >= 2 )); then
 499   #   printf "%s\n" "${_iankdirb[-2]}"
 500   # fi
 501 }
 502
 503 f() {
 504   local topf
 505   if (( ${#_iankdirf[@]} == 0 )); then
 506     echo "no forward dir left" >&2
 507     return 0
 508   fi
 509   topf="${_iankdirf[-1]}"
 510   unset "_iankdirf[-1]"
 511   c "$topf"
 512
 513   # give us a peek at what is next in the list
 514   # if (( ${#_iankdirf[@]} )); then
 515   #   printf "%s\n" "${_iankdirf[-1]}"
 516   # fi
 517 }
 518
 519 # a b c (d)
 520 ## back
 521 # a b (c)
 522 # d
 523 #back
 524 #a (b)
 525 #d c
 526 #back
 527 #(a)
 528 #d c b
 529 #forward
 530 #a (b)
 531 #d c
 532 #
 533 # a b c
 534 ## back
 535 # a b
 536 # (c)
 537 ## forward
 538
 539 cl() {
 540   local i line input start tmpfile
 541   local -A buttondirs alines
 542   local -a buttons dirs lines
 543   buttons=( {a..z} {2..9} )
 544   if [[ ! -s ~/.iankdirs ]]; then
 545     echo nothing in ~/.iankdirs
 546     return 0
 547   fi
 548
 549   i=0
 550
 551   # note, alternate approach like this, made the following read fail
 552   # done < <(tac ~/.iankdirs | awk '!seen[$0]++')
 553   # bash: read: read error: 0: Input/output error
 554   # which went away by adding a sleep 1 after it.
 555
 556   mapfile -t lines <~/.iankdirs
 557   start=$(( ${#lines[@]} - 1 ))
 558
 559   # we have ~33 buttons as of this writing, so lets
 560   # prune down the history every once in a while.
 561   if (( start > 500 )); then
 562     tmpfile=$(mktemp)
 563     tac ~/.iankdirs | awk '!seen[$0]++' | head -n 200 >$tmpfile
 564     cat $tmpfile > ~/.iankdirs
 565   fi
 566
 567   for (( j=$start; j >= 0; j-- )); do
 568     line="${lines[$j]}"
 569     if [[ ! $line || ${alines[$line]} || ! -d "$line" || $line == "$PWD" || line == "$HOME"  ]]; then
 570       continue
 571     fi
 572     alines[$line]=t
 573     buttondirs[${buttons[i]}]="$line"
 574     printf "%s %s\n" ${buttons[i]} "$line"
 575     if (( i == ${#buttons[@]} - 1 )); then
 576       break
 577     fi
 578     i=$(( i + 1 ))
 579   done
 580
 581   if (( i == 0 )); then
 582     echo "no dirs in ~/.iankdirs"
 583     return 0
 584   fi
 585   read -r -N 1 input
 586   if [[ $input != $'\n' ]]; then
 587     c ${buttondirs[$input]}
 588   fi
 589 }
 590 bl() {
 591   local start i j max
 592   max=10
 593   start=$(( ${#_iankdirb[@]} - 1 ))
 594
 595   # cleanup possible repeating of pwd
 596   if (( start >= 0 )) && [[ ${_iankdirb[$start]} == "$PWD" ]]; then
 597     start=$(( start - 1 ))
 598   fi
 599   j=1
 600   if (( start >= 0 )); then
 601     for (( i=$start; i >= 0 ; i-- )); do
 602       printf "%s %s\n" $j ${_iankdirb[i]}
 603       j=$(( j + 1 ))
 604       if (( j >= max )); then
 605         break
 606       fi
 607     done
 608   fi
 609
 610   max=10
 611
 612   start=$(( ${#_iankdirf[@]} - 1 ))
 613
 614   # cleanup possible repeating of pwd
 615   if (( start >= 0 )) && [[ ${_iankdirf[$start]} == "$PWD" ]]; then
 616     start=$(( start - 1 ))
 617   fi
 618   if (( start < 0 )); then
 619     return 0
 620   fi
 621   echo --
 622   j=1
 623   for (( i=$start; i >= 0 ; i-- )); do
 624     printf "%s %s\n" $j ${_iankdirf[i]}
 625     j=$(( j + 1 ))
 626     if (( j >= max )); then
 627       break
 628     fi
 629   done
 630 }
 631
 632
 633
 634 c4() { c /var/log/exim4; }
 635
 636 caa() { git commit --amend --no-edit -a; }
 637
 638 cf() {
 639   for f; do
 640     hr
 641     echo "$f"
 642     hr
 643     cat "$f"
 644   done
 645 }
 646 caf() {
 647   # shellcheck disable=SC2033
 648   find -L "$@" -type f -not \( -name .svn -prune -o -name .git -prune \
 649        -o -name .hg -prune -o -name .editor-backups -prune \
 650        -o -name .undo-tree-history -prune \) \
 651        -exec bash -c '. ~/.bashrc; hr; echo "$1"; hr; cat "$1"' _ {} \; 2>/dev/null
 652
 653 }
 654 ccomp cat cf caf
 655
 656 calc() { echo "scale=3; $*" | bc -l; }
 657 # no having to type quotes, but also no command history:
 658 clc() {
 659   local x
 660   read -r x
 661   echo "scale=3; $x" | bc -l
 662 }
 663
 664 cam() {
 665   git commit -am "$*"
 666 }
 667
 668 ccat () { # config cat. see a config without extra lines.
 669   sed -r '/^[[:space:]]*([;#]|--|\/\/|$)/d' "$@"
 670 }
 671 ccomp grep ccat
 672
 673 chrbind() {
 674   local d
 675   # dev/pts needed for pacman signature check
 676   for d in dev proc sys dev/pts; do
 677     [[ -d $d ]]
 678     if ! mountpoint $d &>/dev/null; then
 679       m s mount -o bind /$d $d
 680     fi
 681   done
 682 }
 683 chumount() {
 684   local d
 685   # dev/pts needed for pacman signature check
 686   for d in dev/pts dev proc sys; do
 687     [[ -d $d ]]
 688     if mountpoint $d &>/dev/null; then
 689       m s umount $d
 690     fi
 691   done
 692 }
 693
 694
 695 _cdiff-prep() {
 696   # join options which are continued to multiples lines onto one line
 697   local first=true
 698   while IFS= read -r line; do
 699     # remove leading spaces/tabs. assumes extglob
 700     if [[ $line == "[   ]*" ]]; then
 701       line="${line##+( )}"
 702     fi
 703     if $first; then
 704       pastline="$line"
 705       first=false
 706     elif [[ $line == *=* ]]; then
 707       echo "$pastline" >> "$2"
 708       pastline="$line"
 709     else
 710       pastline="$pastline $line"
 711     fi
 712   done < <(grep -vE '^([ \t]*#|^[ \t]*$)' "$1")
 713   echo "$pastline" >> "$2"
 714 }
 715
 716 cdiff() {
 717   # diff config files,
 718   # setup for format of postfix, eg:
 719   # option = stuff[,]
 720   #    [more stuff]
 721   local pastline unified f1 f2
 722   unified="$(mktemp)"
 723   f1="$(mktemp)"
 724   f2="$(mktemp)"
 725   _cdiff-prep "$1" "$f1"
 726   _cdiff-prep "$2" "$f2"
 727   cat "$f1" "$f2" |  grep -Po '^[^=]+=' | sort | uniq > "$unified"
 728   while IFS= read -r line; do
 729     # the default bright red / blue doesnt work in emacs shell
 730     dwdiff -cblue,red -A best -d "      ," <(grep "^$line" "$f1" || echo ) <(grep "^$line" "$f2" || echo ) | colordiff
 731   done < "$unified"
 732 }
 733
 734
 735 cat-new-files() {
 736   local start=$SECONDS
 737   local dir="$1"
 738   # shellcheck disable=SC2030
 739   inotifywait -m "$dir" -e create -e moved_to | \
 740     while read -r filedir _ file; do
 741       cat "$filedir$file"
 742       hr
 743       calc $((SECONDS - start)) / 60
 744       sleep 5
 745     done
 746
 747 }
 748
 749 # shellcheck disable=SC2032
 750 chown() {
 751   # makes it so chown -R symlink affects the symlink and its target.
 752   if [[ $1 == -R ]]; then
 753     shift
 754     command chown -h "$@"
 755     command chown -R "$@"
 756   else
 757     command chown "$@"
 758   fi
 759 }
 760
 761 cim() {
 762   git commit -m "$*"
 763 }
 764
 765
 766 d() { builtin bg "$@"; }
 767 ccomp bg d
 768
 769 dc() {
 770   diff --strip-trailing-cr -w "$@"   # diff content
 771 }
 772 ccomp diff dc
 773
 774 despace() {
 775   local x y
 776   for x in "$@"; do
 777     y="${x// /_}"
 778     safe_rename "$x" "$y"
 779   done
 780 }
 781
 782 dig() {
 783   command dig +nostats +nocmd "$@"
 784 }
 785 # Output with sections sorted, and removal of query id, so 2 dig outputs can be diffed.
 786 digsort() {
 787   local sec
 788   sec=
 789   dig +nordflag "$@" | sed -r 's/^(;; ->>HEADER<<-.*), id: .*/\1/' | while read -r l; do
 790     if [[ $l == [^\;]* ]]; then
 791       sec+="$l"$'\n'
 792     else
 793       if [[ $sec ]]; then
 794         printf "%s" "$sec" | sort
 795         sec=
 796       fi
 797       printf "%s\n" "$l"
 798     fi
 799   done
 800 }
 801 ccomp dig digsort
 802 # compare digs to the 2 servers
 803 # usage: digdiff @server1 @server2 DIG_ARGS
 804 # note: only the soa master nameserver will respond with
 805 # ra "recursive answer" flag. That difference is meaningless afaik.
 806 digdiff() {
 807   local s1 s2
 808   s1=$1
 809   shift
 810   s2=$1
 811   shift
 812   digsort $s1 "$@" | tee /tmp/digdiff
 813   diff -u /tmp/digdiff <(digsort $s2 "$@")
 814 }
 815
 816 dt() {
 817   date "+%A, %B %d, %r" "$@"
 818 }
 819 dtr() {
 820   date -R "$@"
 821 }
 822 ccomp date dt dtr
 823
 824 dus() { # du, sorted, default arg of
 825   du -sh ${@:-*} | sort -h
 826 }
 827 ccomp du dus
 828
 829
 830 e() { printf "%s\n" "$@"; }
 831
 832 # echo args
 833 ea() {
 834   if (( ! $# )); then
 835     echo no args
 836   fi
 837   for arg; do
 838     printf "%qEOL\n" "${arg}"
 839     printf "%s" "${arg}" |& hexdump -C
 840   done
 841 }
 842 # echo vars. print var including escapes, etc
 843 ev() {
 844   if (( ! $# )); then
 845     echo no args
 846   fi
 847   for arg; do
 848     if [[ -v $arg ]]; then
 849       printf "%qEOL\n" "${!arg}"
 850       printf "%s" "${!arg}" |& hexdump -C
 851     else
 852       echo arg $arg is unset
 853     fi
 854   done
 855 }
 856
 857 ediff() {
 858   [[ ${#@} == 2 ]] || { echo "error: ediff requires 2 arguments"; return 1; }
 859   emacs --eval "(ediff-files \"$1\" \"$2\")"
 860 }
 861
 862 # mail related
 863 etail() {
 864   tail -F /var/log/exim4/mainlog -n 200 "$@"
 865 }
 866 etail2() {
 867   tail -F /var/log/exim4/mymain -n 200 "$@"
 868 }
 869
 870 ccomp tail etail etail2
 871
 872 # print exim old pids
 873 eoldpids() {
 874   local configtime pid piduptime now daemonpid
 875   printf -v now '%(%s)T' -1
 876   configtime=$(stat -c%Y /var/lib/exim4/config.autogenerated)
 877   if [[ -s /run/exim4/exim.pid ]]; then
 878     daemonpid=$(cat /run/exim4/exim.pid)
 879   fi
 880   for pid in $(pgrep -f '^/usr/sbin/exim4( |$)'); do
 881     # the daemonpid gets reexeced on HUP (service reloads), keeping its same old timestamp
 882     if [[ $pid == $daemonpid ]]; then
 883       continue
 884     fi
 885     piduptime=$(awk -v ticks="$(getconf CLK_TCK)" 'NR==1 { now=$1; next } END { printf "%9.0f\n", now - ($20/ticks) }' /proc/uptime RS=')' /proc/$pid/stat) ||: # sometimes pids disappear pretty fast
 886     if (( configtime > now - piduptime )); then
 887       echo $pid
 888     fi
 889   done
 890 }
 891
 892 # exim tail but only watch lines from new pids
 893 etailnew() {
 894   local pid oldpids
 895   for pid in $(eoldpids); do
 896     oldpids+="$pid|"
 897   done
 898   if [[ $oldpids ]]; then
 899     etail | awk '$3 !~ /^\[('"${oldpids%|}"')\]$/'
 900   else
 901     etail
 902   fi
 903 }
 904 # exim watch as old pids go away
 905 ewatchold() {
 906   local configtime pid piduptime now
 907   local -i count
 908   local -a oldpids
 909   count=0
 910   while true; do
 911     oldpids=($(eoldpids))
 912     if (( ! ${#oldpids[@]} )); then
 913       return
 914     fi
 915     # print the date every 20 iterations
 916     if (( ! count % 20 )); then
 917       date
 918     fi
 919     count+=1
 920     ps -f -p "${oldpids[*]}"
 921     sleep 1
 922   done
 923 }
 924
 925 eless() {
 926   less /var/log/exim4/mainlog
 927 }
 928 ccomp less eless
 929 eqcat() {
 930   exiqgrep -i -o 60 | while read -r i; do
 931     hlm exim -Mvc $i
 932     echo
 933     hlm exigrep $i /var/log/exim4/mainlog | cat ||:
 934   done
 935 }
 936 eqrmf() {
 937   exiqgrep -i | xargs exim -Mrm
 938 }
 939
 940 econfdevnew() {
 941   rm -rf /tmp/edev
 942   mkdir -p /tmp/edev/etc
 943   cp -ra /etc/exim4 /tmp/edev/etc
 944   cp -ra /etc/alias* /tmp/edev/etc
 945   find /tmp/edev/etc/exim4 -type f -execdir sed -i "s,/etc/,/tmp/edev/etc/,g" '{}' +
 946   econfdev
 947 }
 948 econfdev() {
 949   update-exim4.conf -d /tmp/edev/etc/exim4 -o /tmp/edev/e.conf
 950 }
 951
 952
 953
 954
 955 fa() {
 956   # find array. make an array of file names found by find into $x
 957   # argument: find arguments
 958   # return: find results in an array $x
 959   while read -rd ''; do
 960     x+=("$REPLY");
 961   done < <(find "$@" -print0);
 962 }
 963
 964 faf() { # find all files. use -L to follow symlinks
 965   find "$@" -not \( -name .svn -prune -o -name .git -prune \
 966        -o -name .hg -prune -o -name .editor-backups -prune \
 967        -o -name .undo-tree-history -prune \) -type f 2>/dev/null
 968 }
 969
 970 # full path without resolving symlinks
 971 fp() {
 972   local dir base
 973   base="${1##*/}"
 974   dir="${1%$base}"
 975   printf "%s/%s\n" $(cd $dir; pwd) "$base"
 976 }
 977
 978
 979 # mail related
 980 frozen() {
 981   rm -rf /tmp/frozen
 982   sudo mailq |gr frozen|awk '{print $3}' | while read -r id; do
 983     sudo exim -Mvl $id
 984     echo
 985     sudo exim -Mvh $id
 986     echo
 987     sudo exim -Mvb $id
 988     echo -e '\n\n##############################\n'
 989   done | tee -a /tmp/frozen
 990 }
 991 frozenrm() {
 992   local ids=()
 993   while read -r line; do
 994     printf '%s\n' "$line"
 995     ids+=($(printf '%s\n' "$line" |gr frozen|awk '{print $3}'))
 996   done < <(s mailq)
 997   echo "sleeping for 2 in case you change your mind"
 998   sleep 2
 999   sudo exim -Mrm "${ids[@]}"
1000 }
1001
1002 funce() {
1003   # like -e for functions. returns on error.
1004   # at the end of the function, disable with:
1005   # trap ERR
1006   trap 'echo "${BASH_COMMAND:+BASH_COMMAND=\"$BASH_COMMAND\" }
1007 ${FUNCNAME:+FUNCNAME=\"$FUNCNAME\" }${LINENO:+LINENO=\"$LINENO\"  }\$?=$?"
1008 trap ERR
1009 return' ERR
1010 }
1011
1012 getdir () {
1013   local help="Usage: getdir [--help] PATH
1014 Output the directory of PATH, or just PATH if it is a directory."
1015   if [[ $1 == --help ]]; then
1016     echo "$help"
1017     return 0
1018   fi
1019   if [[ $# -ne 1 ]]; then
1020     echo "getdir error: expected 1 argument, got $#"
1021     return 1
1022   fi
1023   if [[ -d $1 ]]; then
1024     echo "$1"
1025   else
1026     local dir
1027     dir="$(dirname "$1")"
1028     if [[ -d $dir ]]; then
1029       echo "$dir"
1030     else
1031       echo "getdir error: directory does not exist"
1032       return 1
1033     fi
1034   fi
1035 }
1036
1037 git_empty_branch() { # start an empty git branch. carefull, it deletes untracked files.
1038   [[ $# == 1 ]] || { echo 'need a branch name!'; return 1;}
1039   local root
1040   root=$(gitroot) || return 1 # function to set gitroot
1041   builtin cd "$root"
1042   git symbolic-ref HEAD refs/heads/$1
1043   rm .git/index
1044   git clean -fdx
1045 }
1046
1047 # shellcheck disable=SC2120
1048 gitroot() {
1049   local help="Usage: gitroot [--help]
1050 Print the full path to the root of the current git repo
1051
1052 Handles being within a .git directory, unlike git rev-parse --show-toplevel,
1053 and works in older versions of git which did not have that."
1054   if [[ $1 == --help ]]; then
1055     echo "$help"
1056     return
1057   fi
1058   local p
1059   p=$(git rev-parse --git-dir) || { echo "error: not in a git repo" ; return 1; }
1060   [[ $p != /* ]] && p=$PWD
1061   echo "${p%%/.git}"
1062 }
1063
1064 g() {
1065
1066   # todo: patch emacs so it will look elsewhere. this is kinda sad:
1067   # https://emacs.stackexchange.com/questions/4253/how-to-start-emacs-with-a-custom-user-emacs-directory
1068
1069   local args gdb=false
1070
1071   if [[ $EMACSDIR ]]; then
1072     path-add "$EMACSDIR/lib-src" "$EMACSDIR/src"
1073   fi
1074
1075   if [[ $DISPLAY ]]; then
1076     args=-n
1077   fi
1078
1079   if (( $# == 0 )); then
1080     args+=" -c"
1081   fi
1082   # duplicate -c, but oh well
1083   if ! pgrep -u $EUID emacsclient; then
1084     if (( $# == 0 )) && type -p gdb &>/dev/null; then
1085       gdb=true
1086     else
1087       args+=" -c"
1088     fi
1089   fi
1090   if [[ $EMACSDIR ]]; then
1091     # Alter the path here, otherwise the nfs mount gets triggered on the
1092     # first path lookup when emacs is not being used.
1093     PATH="$EMACSDIR/lib-src:$EMACSDIR/src:$PATH" EHOME=$HOME HOME=$EMACSDIR m emacsclient -a "" $args "$@"
1094   else
1095     if $gdb; then
1096       # due to a bug, we cant debug from the start unless we get a new gdb
1097       # https://sourceware.org/bugzilla/show_bug.cgi?id=24454
1098       # m gdb -ex="set follow-fork-mode child" -ex=r -ex=quit --args emacs --daemon
1099       m emacsclient -a "" $args "$@"
1100       sleep 1
1101       cd /a/opt/emacs-$(distro-name)$(distro-num)
1102       s gdb -p $(pgrep -f 'emacs --daemon') -ex c
1103       cd -
1104     else
1105       m emacsclient -a "" $args "$@"
1106     fi
1107   fi
1108 }
1109
1110 # force terminal version
1111 gn() {
1112   g -n "$@"
1113 }
1114
1115 gmacs() {
1116   # quit will prompt if the program crashes.
1117   gdb -ex=r -ex=quit --args emacs "$@"; r;
1118 }
1119
1120 gdkill() {
1121   # kill the emacs daemon
1122   pk1 emacs --daemon
1123 }
1124
1125 gr() {
1126   grep -iIP --color=auto "$@" || return $?
1127 }
1128 grr() { # grep recursive
1129   # Don't return 1 on nonmatch because this is meant to be
1130   # interactive, not in a conditional.
1131   if [[ ${#@} == 1 ]]; then
1132     grep --exclude-dir='*.emacs.d' --exclude-dir='*.git' -riIP --color=auto "$@" . || [[ $? == 1 ]]
1133   else
1134     grep --exclude-dir='*.emacs.d' --exclude-dir='*.git' -riIP --color=auto "$@" || [[ $? == 1 ]]
1135   fi
1136 }
1137 ccomp grep gr grr
1138
1139 rg() { grr "$@"; }
1140 ccomp grep rg
1141
1142 hr() { # horizontal row. used to break up output
1143   printf "$(tput setaf 5 2>/dev/null ||:)█$(tput sgr0 2>/dev/null||:)%.0s" $(eval echo "{1..${COLUMNS:-60}}")
1144   echo
1145 }
1146 # highlight
1147 hl() {
1148   local col input_len=0
1149   for arg; do
1150     input_len=$((input_len + 1 + ${#arg}))
1151   done
1152   col=$((60 - input_len))
1153   printf "\e[1;97;41m%s" "$*"
1154   if (( col > 0 )); then
1155     printf "\e[1;97;41m \e[0m%.0s" $(eval echo "{1..${col}}")
1156   fi
1157   echo
1158 }
1159 hlm() { hl "$*";  "$@"; }
1160
1161 hrcat() { local f; for f; do [[ -f $f ]] || continue; hr; echo "$f"; cat "$f"; done }
1162
1163
1164 # get latest hub and run it
1165 # main command to use:
1166 # hub pull-request --no-edit
1167 # --no-edit means to use the first commit\'s message as the pull request message.
1168 # If that fails, try doing
1169 # hub pull-request --no-edit -b UPSTREAM_OWNER:branch
1170 # where branch is usually master. it does the pr against your current branch.
1171 #
1172 # On first use, you input username/pass and it gets an oath token so you dont have to repeat
1173 # it\'s at ~/.config/hub
1174 hub() {
1175   local up uptar updir p
1176   p=/github/hub/releases/
1177   up=https://github.com/$(curl -s https://github.com$p| grep -o $p'download/[^/]*/hub-linux-amd64[^"]*' | head -n1)
1178   uptar=${up##*/}
1179   updir=${uptar%.tgz}
1180   if [[ ! -e /a/opt/$updir ]]; then
1181     rm -rf /a/opt/hub-linux-amd64*
1182     wget -P /a/opt $up
1183     tar -C /a/opt -zxf /a/opt/$uptar
1184     rm -f /a/opt/$uptar
1185   fi
1186   if ! which hub &>/dev/null; then
1187     sudo /a/opt/$updir/install
1188   fi
1189
1190   # save token across computers
1191   if [[ ! -L ~/.config/hub ]]; then
1192     if [[ -e ~/.config/hub  ]]; then
1193       mv ~/.config/hub /p/c/subdir_files/.config/
1194     fi
1195     if [[ -e /p/c/subdir_files/.config/hub ]]; then
1196       conflink
1197     fi
1198   fi
1199   command hub "$@"
1200 }
1201
1202 i() { git "$@"; }
1203 ccomp git i
1204
1205 ic() {
1206   # fast commit all
1207   git commit -am "$*"
1208 }
1209
1210 ipp() {
1211   git pull
1212   git push
1213 }
1214
1215
1216 ifn() {
1217   # insensitive find
1218   find -L . -not \( -name .svn -prune -o -name .git -prune \
1219        -o -name .hg -prune -o -name .editor-backups -prune \
1220        -o -name .undo-tree-history -prune \) -iname "*$**" 2>/dev/null
1221 }
1222
1223 ifd() {
1224   # insensitive find directory
1225   find -L . -type d -not \( -name .svn -prune -o -name .git -prune \
1226        -o -name .hg -prune -o -name .editor-backups -prune \
1227        -o -name .undo-tree-history -prune \) -iname "*$**" 2>/dev/null
1228 }
1229
1230
1231 ipdrop() {
1232   sudo iptables -A INPUT -s $1 -j DROP
1233 }
1234
1235
1236 istext() {
1237   grep -Il "" "$@" &>/dev/null
1238 }
1239
1240 jtail() {
1241   journalctl -n 10000 -f "$@"
1242 }
1243 jr() { journalctl "$@" ; }
1244 jrf() { journalctl -f "$@" ; }
1245 jru() {
1246   journalctl -u exim4 _SYSTEMD_INVOCATION_ID=$(systemctl show -p InvocationID --value $1)
1247 }
1248
1249 l() {
1250   if [[ $PWD == /[iap] ]]; then
1251     command ls -A --color=auto -I lost+found "$@"
1252   else
1253     command ls -A --color=auto "$@"
1254   fi
1255 }
1256
1257 lcn() { locate -i "*$**"; }
1258
1259 lg() { LC_COLLATE=C.UTF-8 ll --group-directories-first "$@"; }
1260
1261 lt() { ll -tr "$@"; }
1262
1263 lld() { ll -d "$@"; }
1264
1265 ccomp ls l lg lt lld ll
1266
1267 # low recursively
1268 lowr() {
1269   local f dirs i a
1270   local -a all
1271   for dirs in false true; do
1272     for f; do
1273       if [[ -d $f ]]; then
1274         all=("$f"/**)
1275         # reverse the order to rename the nested dirs first.
1276         # note: 0 element is the dir itself
1277         for ((i=${#all[@]}-1; i>=1; i--)); do
1278           a="${all[i]}"
1279           if $dirs && [[ -d $a ]]; then
1280             # e dirs low "$a" # debug
1281             low "$a"
1282           elif ! $dirs && [[ ! -d $a && -e $a ]]; then
1283             # debug
1284             # e not dirs low "$a" # debug
1285             low "$a"
1286           fi
1287         done
1288       fi
1289       # just rename all the top level args on the second pass
1290       if $dirs; then
1291         # e final dirs low "$f" # debug
1292         low "$f"
1293       fi
1294     done
1295   done
1296 }
1297
1298 low() {  # make filenames lowercase, remove bad chars
1299   local arg new dir f
1300   for arg; do
1301     arg="${arg%%+(/)}" # remove trailing slashes. assumes we have extglob on.
1302     dir="${arg%/*}"
1303     if (( ${#dir} == ${#arg} )); then
1304       dir=.
1305     fi
1306     f="${arg##*/}"
1307     new="${f,,}" # downcase
1308     new="${new//[^a-zA-Z0-9._-]/_}" # sub bad chars
1309     new="${new#"${new%%[[:alnum:]]*}"}" # remove leading/trailing non-alnum
1310     new="${new%"${new##*[[:alnum:]]}"}"
1311     # remove bad underscores, like __ and _._
1312     new=$(echo $new | sed -r 's/__+/_/g;s/_+([.-])|([.-])_+/\1/g')
1313     safe_rename "$dir/$f" "$dir/$new" || return 1
1314   done
1315   return 0
1316 }
1317
1318 lower() { # make first letter of filenames lowercase.
1319   local x
1320   for x in "$@"; do
1321     if [[ ${x::1} == [A-Z] ]]; then
1322       y=$(tr '[:upper:]' '[:lower:]' <<<"${x::1}")"${x:1}"
1323       safe_rename "$x" "$y" || return 1
1324     fi
1325   done
1326 }
1327
1328
1329 k() { # history search
1330   grep -iP --binary-files=text "$@" ${HISTFILE:-~/.bash_history}  | tail -n 80 || [[ $? == 1 ]];
1331 }
1332 ks() { # history search with context
1333   # args are an extended regex used by sed
1334   history | sed -nr "h;s/^\s*(\S+\s+){4}//;/$*/{g;p}" | tail -n 80 || [[ $? == 1 ]];
1335 }
1336 ksu() { # history search unique
1337   grep -P --binary-files=text "$@" ${HISTFILE:-~/.bash_history}  | uniq || [[ $? == 1 ]];
1338 }
1339
1340 # todo: id like to do maybe a daily or hourly cronjob to
1341 # check that my history file size is increasing. Ive had it
1342 # inexplicably truncated in the past.
1343 histrm() {
1344   history -n
1345   HISTTIMEFORMAT= history | awk -v IGNORECASE=1 '{ a=$1; sub(/^ *[^ ]+ */, "") }; /'"$*"'/'
1346   read -p "press anything but contrl-c to delete"
1347   for entry in $(HISTTIMEFORMAT= history | awk -v IGNORECASE=1 '{ a=$1; sub(/^ *[^ ]+ */, "") }; /'"$*"'/ { print a }' | tac); do
1348     history -d $entry
1349   done
1350   history -w
1351 }
1352
1353 ccomp grep k ks ksu histrm
1354
1355
1356 make-targets() {
1357   # show make targets, via http://stackoverflow.com/questions/3063507/list-goals-targets-in-gnu-make
1358   make -qp | awk -F':' '/^[a-zA-Z0-9][^$#\/\t=]*:([^=]|$)/ {split($1,A,/ /);for(i in A)print A[i]}'
1359 }
1360
1361 mkc() {
1362   mkdir "$1"
1363   c "$1"
1364 }
1365 ccomp mkdir mkc
1366
1367 mkct() {
1368   mkc $(mktemp -d)
1369 }
1370
1371 mkt() { # mkdir and touch file
1372   local path="$1"
1373   mkdir -p "$(dirname "$path")"
1374   touch "$path"
1375 }
1376
1377 # shellcheck disable=SC2032
1378 mkdir() { command mkdir -p "$@"; }
1379
1380 nags() {
1381   # https://github.com/HenriWahl/Nagstamon/issues/357
1382   if ! pgrep -f /usr/lib/notification-daemon/notification-daemon >/dev/null; then
1383     /usr/lib/notification-daemon/notification-daemon &
1384   fi
1385   /usr/bin/nagstamon &
1386 }
1387
1388 nmt() {
1389   s nmtui-connect "$@"
1390 }
1391
1392 nopanic() {
1393   # shellcheck disable=SC2024
1394   sudo tee -a /var/log/exim4/paniclog-archive </var/log/exim4/paniclog; sudo truncate -s0 /var/log/exim4/paniclog
1395 }
1396
1397 p8() { ping "$@" 8.8.8.8; }
1398 p6() { ping6 "$@" 2001:4860:4860::8888; }
1399
1400 pkx() { # package extract
1401   local pkg cached tmp f
1402   c $(mktemp -d)
1403   pkg=$1
1404   # shellcheck disable=SC2012
1405   cached=$(ls -t /var/cache/apt/archives/$pkg* | tail -n1 2>/dev/null) ||:
1406   if [[ $cached ]]; then
1407     cp $cached .
1408   else
1409     aptitude download $pkg || return 1
1410   fi
1411   tmp=(*); f=${tmp[0]} # only 1 expected
1412   ex $f
1413   rm -f $f
1414 }
1415
1416 # pgrep and kill
1417 pk1() {
1418   local pid
1419   pid=($(pgrep -f "$*"))
1420   case ${#pid[@]} in
1421     1)
1422       # shellcheck disable=SC2128
1423       {
1424         ps -F $pid
1425         m kill $pid
1426       }
1427       ;;
1428     0) echo "no pid found" ;;
1429     *)
1430       ps -F ${pid[@]}
1431       ;;
1432   esac
1433 }
1434
1435 psg () {
1436   local x y help
1437   help="Usage: psg [--help] GREP_ARGS
1438 grep ps and output in a nice format"
1439   if [[ $1 == --help ]]; then
1440     echo "$help"
1441     return
1442   fi
1443   x=$(ps -eF)
1444   # final grep is because some commands tend to have a lot of trailing spaces
1445   y=$(echo "$x" | grep -iP "$@" | grep -o '.*[^ ]') ||:
1446   if [[ $y ]]; then
1447     echo "$x" | head -n 1 || [[ $? == 141 ]]
1448     echo "$y"
1449   fi
1450 }
1451
1452 pubip() { curl -4s https://icanhazip.com; }
1453 pubip6() { curl -6s https://icanhazip.com; }
1454 whatismyip() { pubip; }
1455
1456
1457 q() { # start / launch a program in the backround and redir output to null
1458   "$@" &> /dev/null &
1459 }
1460
1461 # shellcheck disable=SC2120
1462 r() {
1463   if [[ $HISTFILE ]]; then
1464     history -a # save history
1465   fi
1466   trap ERR # this avoids a segfault
1467   exit ${1:0}
1468   # i had this redir, not sure why
1469   #  exit "$@" 2>/dev/null
1470 }
1471
1472 # scp is insecure and deprecated.
1473 scp() {
1474   rsync --inplace "$@"
1475 }
1476
1477 randport() {
1478   # available high ports are 1024-65535,
1479   # but lets skip things that are more likely to be in use
1480   python3 <<'EOF'
1481 import secrets
1482 print(secrets.SystemRandom().randrange(10002,65500))
1483 EOF
1484 }
1485
1486 # reapply bashrc
1487 reb() {
1488   source ~/.bashrc
1489 }
1490
1491 rl() {
1492   readlink -f "$@"
1493 }
1494 ccomp readlink rl
1495
1496 rsd() {
1497   # rsync, root is required to keep permissions right.
1498   # rsync  --archive --human-readable --verbose --itemize-changes --checksum \(-ahvic\) \
1499     #                                   --no-times --delete
1500   # basically, make an exact copy, use checksums instead of file times to be more accurate
1501   rsync -ahvic --delete "$@"
1502 }
1503 rsa() {
1504   # like rlu, but dont delete files on the target end which
1505   # do not exist on the original end.
1506   rsync -ahvic "$@"
1507 }
1508 rst() {
1509   # rl without preserving modification time.
1510   rsync -ahvic --delete --no-t "$@"
1511 }
1512 rsu() { # [OPTS] HOST PATH
1513   # eg. rlu -opts frodo /testpath
1514   # relative paths will expanded with readlink -f.
1515   opts=("${@:1:$#-2}") #  1 to last -2
1516   path="${*:$#}" # last
1517   host="${*:$#-1:1}" # last -1
1518   if [[ $path == .* ]]; then
1519     path=$(readlink -f $path)
1520   fi
1521   # rync here uses checksum instead of time so we dont mess with
1522   # unison relying on time as much. g is for group, same reason
1523   # to keep up with unison.
1524   m s rsync -rlpchviog --relative "${opts[@]}" "$path" "root@$host:/";
1525 }
1526 ccomp rsync rsd rsa rst rsu
1527
1528 # find programs listening on a port
1529 ssp() {
1530   local port=$1
1531   # to figure out these args, i had to look at the man page from git version, as of 2022-04.
1532   s ss -lpn state listening sport = $port
1533 }
1534
1535 resolvcat() {
1536   local f
1537   if [[ $(systemctl is-active nscd ||:) != inactive ]]; then
1538     m s nscd -i hosts
1539   fi
1540   f=/etc/resolv.conf
1541   echo $f:;  ccat $f
1542   hr; s ss -lpn sport = 53
1543   if systemctl is-enabled dnsmasq &>/dev/null || [[ $(systemctl is-active dnsmasq ||:) != inactive ]]; then
1544     # this will fail is dnsmasq is failed
1545     hr; m ser status dnsmasq | cat || :
1546     f=/etc/dnsmasq.conf
1547     hr; echo $f:;  ccat $f
1548     hr; m grr '^ *(servers-file|server) *=|^ *no-resolv *$' /etc/dnsmasq.conf /etc/dnsmasq.d
1549     f=/etc/dnsmasq-servers.conf
1550     hr; echo $f:;  ccat $f
1551   fi
1552   hr
1553   echo /etc/nsswitch.conf:
1554   grep '^ *hosts:' /etc/nsswitch.conf
1555   if systemctl is-enabled systemd-resolved &>/dev/null || [[ $(systemctl is-active systemd-resolved ||:) != inactive ]]; then
1556     hr; m ser status systemd-resolved | cat || :
1557     hr; m systemd-resolve --status | cat
1558   fi
1559
1560 }
1561 rcat() {
1562   resolvcat | less
1563 }
1564 reresolv() {
1565   if [[ $(systemctl is-active nscd ||:) != inactive ]]; then
1566     m ser stop nscd
1567     sleep .5
1568     m ser start nscd
1569     m sudo nscd -i hosts
1570   fi
1571   if [[ $(systemctl is-active dnsmasq ||:) != inactive ]]; then
1572     m sudo systemctl restart dnsmasq
1573   fi
1574   if [[ $(systemctl is-active systemd-resolved ||:) != inactive ]]; then
1575     m sudo systemctl restart systemd-resolved
1576   fi
1577   if type -P resolvectl &>/dev/null; then
1578     resolvectl flush-caches
1579   fi
1580 }
1581
1582 rmstrips() {
1583   ssh fencepost head -n 300 /gd/gnuorg/EventAndTravelInfo/rms-current-trips.txt | less
1584 }
1585
1586 sudo () {
1587   command sudo "$@" || return $?
1588   DID_SUDO=true
1589 }
1590 s() {
1591   # background
1592   # I use a function because otherwise we cant use in a script,
1593   # cant assign to variable.
1594   #
1595   # note: gksudo is recommended for X apps because it does not set the
1596   # home directory to the same, and thus apps writing to ~ fuck things up
1597   # with root owned files.
1598   #
1599   if [[ $EUID != 0 || $1 == -* ]]; then
1600     # shellcheck disable=SC2034
1601     SUDOD="$PWD" command sudo -i "$@"
1602     DID_SUDO=true
1603   else
1604     "$@"
1605   fi
1606 }
1607 sb() { # sudo bash -c
1608   # use sb instead of s is for sudo redirections,
1609   # eg. sb 'echo "ok fine" > /etc/file'
1610   # shellcheck disable=SC2034
1611   local SUDOD="$PWD"
1612   sudo -i bash -c "$@"
1613 }
1614 ccomp sudo s sb
1615
1616 safe_rename() { # warn and dont rename if file exists.
1617   # mv -n exists, but it\'s silent
1618   if [[ $# != 2 ]]; then
1619     echo safe_rename error: $# args, need 2 >2
1620     return 1
1621   fi
1622   if [[ $1 != "$2" ]]; then # yes, we want to silently ignore this
1623     if [[ -e $2 || -L $2 ]]; then
1624       echo "Cannot rename $1 to $2 as it already exists."
1625     else
1626       mv -vi "$1" "$2"
1627     fi
1628   fi
1629 }
1630
1631
1632 sd() {
1633   sudo dd status=none of="$1"
1634 }
1635
1636 ser() {
1637   if type -p systemctl &>/dev/null; then
1638     s systemctl "$@"
1639   else
1640     if (( $# >= 3 )); then
1641       echo iank: ser expected 2 or less arguments
1642       return 1
1643     fi
1644     s service $2 $1
1645   fi
1646 }
1647 serstat() {
1648   systemctl -n 40 status "$@"
1649 }
1650
1651 seru() { systemctl --user "$@"; }
1652 # like restart, but do nothing if its not already started
1653 srestart() {
1654   local service=$1
1655   if [[ $(s systemctl --no-pager show -p ActiveState $service ) == ActiveState=active ]]; then
1656     systemctl restart $service
1657   fi
1658 }
1659
1660 setini() { # set a value in a .ini style file
1661   key="$1" value="$2" section="$3" file="$4"
1662   if [[ -s $file ]]; then
1663     sed -ri -f - "$file" <<EOF
1664 # remove existing keys
1665 / *\[$section\]/,/^ *\[[^]]+\]/{/^\s*$key[[:space:]=]/d}
1666 # add key
1667 /^\s*\[$section\]/a $key=$value
1668 # from section to eof, do nothing
1669 /^\s*\[$section\]/,\$b
1670 # on the last line, if we haven't found section yet, add section and key
1671 \$a [$section]\\
1672 $key=$value
1673 EOF
1674   else
1675     cat >"$file" <<EOF
1676 [$section]
1677 $key=$value
1678 EOF
1679   fi
1680 }
1681
1682 sgo() { # service go
1683   service=$1
1684   ser restart $service || return 1
1685   if type -p systemctl &>/dev/null; then
1686     ser enable $service
1687   fi
1688 }
1689 soff () {
1690   for service; do
1691     # ignore services that dont exist
1692     if systemctl cat $service &>/dev/null; then
1693       ser stop $service;
1694       ser disable $service
1695     fi
1696   done
1697 }
1698
1699 sgu() {
1700   systemctl list-unit-files | rg "$@"
1701 }
1702
1703
1704 sk() {
1705
1706
1707   # disable a warning with:
1708   # shellcheck disable=SC2206 # reasoning
1709
1710   # see bash-template/style-guide.md for justifications
1711
1712   local quotes others
1713   quotes=2048,2068,2086,2206
1714   others=2029,2033,2164
1715   shellcheck -W 999 -x -e $quotes,$others "$@" || return $?
1716 }
1717
1718
1719 # sl: ssh, but firsh rsync our bashrc and related files to a special
1720 # directory on the remote host if needed.
1721
1722 # Some environment variables and files need to be setup for this to work
1723 # (mine are set at the beginning of this file)
1724
1725 # SL_FILES_DIR: Environment variable. Path to folder which should at
1726 # least have a .bashrc file or symlink. This dir will be rsynced to ~ on
1727 # remote hosts (top level symlinks are resolved) unless the host already
1728 # has a $SL_FILES_DIR/.bashrc. In that case, we assume it is a host you
1729 # control and sync files to separately and already has the ~/.bashrc you
1730 # want. The remote bash will also take its .inputrc config from this
1731 # folder (default of not existing is fine). Mine looks like this:
1732 # https://iankelling.org/git/?p=distro-setup;a=tree;f=sl/.iank
1733
1734 # SL_INFO_DIR: Environment variable. This folder stores info about what
1735 # we detected on the remote system and when we last synced. It will be created
1736 # if it does not exist. Sometimes you may want to forget about a
1737 # remote system, you can use sl --rsync, or the function for that slr
1738 # below.
1739
1740 # SL_TEST_CMD: Env var. Meant to be used to vary the files synced
1741 # depending on the remote host. Run this string on the remote host the
1742 # first time sl is run (or if we run slr). The result is passed to
1743 # SL_TEST_HOOK. For example,
1744 # export SL_TEST_CMD=". /etc/os-release ; echo \${VERSION//[^a-zA-Z0-9]/}"
1745
1746 # SL_TEST_HOOK: Env var. It is run as $SL_TEST_HOOK. This can set
1747 # $SL_FILES_DIR to vary the files synced.
1748
1749 # SL_RSYNC_ARGS: Env var. String of arguments passed to rsync. For
1750 # example to exclude files within a directory. Note, excluded
1751 # files wont be deleted on rsync, you can add --delete-excluded
1752 # to the rsync command if that is desired.
1753
1754 # SL_SSH_ARGS: Env var. Default arguments passed to ssh.
1755
1756 # For when ~/.bashrc is already customized on the remote server, you
1757 # might find it problematic that ~/.bashrc is sourced for ALL ssh
1758 # commands, even in scripts. This paragraph is all about that. bash
1759 # scripts dont source ~/.bashrc, but call ssh in scripts and you get
1760 # ~/.bashrc. You dont want this. .bashrc is meant for interactive shells
1761 # and if you customize it, probably has bugs from time to time. This is
1762 # bad. Here's how I fix it. I have a special condition to "return" in my
1763 # .bashrc for noninteractive ssh shells (copy that code). Then use this
1764 # function or similar that passes LC_USEBASHRC=t when sshing and I want
1765 # my bashrc. Also, I don't keep most of my bashrc in .bashrc, i source a
1766 # separate file because even if I return early on, the whole file gets
1767 # parsed which can fail if there is a syntax error.
1768 sl() {
1769   # Background on LC_USEBASHRC var (no need to read if you just want to
1770   # use this function): env variables sent across ssh are strictly
1771   # limited, but we get LC_* at least in debian based machines, so we
1772   # just make that * be something no normal program would use. Note, on
1773   # hosts that dont allow LC_* I start an inner shell with LC_USEBASHRC
1774   # set, and the inner shell also allows running a nondefault
1775   # .bashrc. This means the outer shell still ran the default .bashrc,
1776   # but that is the best we can do.
1777
1778   local now args remote dorsync haveinfo tmpa sshinfo tmp tmp2 type info_sec force_rsync \
1779         sync_dirname testcmd extra_info testbool files_sec sl_test_cmd sl_test_hook
1780   declare -a args tmpa
1781
1782   args=($SL_SSH_ARGS)
1783
1784   # ssh [-1246Antivivisectionist] [-b bind_address] [-c cipher_spec] [-D [bind_address:]port]
1785   # [-E log_file] [-e escape_char] [-F configfile] [-I pkcs11] [-i identity_file] [-L address]
1786   # [-l login_name] [-m mac_spec] [-O ctl_cmd] [-o option] [-p port] [-Q query_option]
1787   # [-R address] [-S ctl_path] [-W host:port] [-w local_tun[:remote_tun]] [user@]hostname
1788   # [command]
1789
1790   # ssh [-46AaCfGgKkMNnqsTtVvXxYy] [-b bind_address] [-c cipher_spec]
1791   # [-D [bind_address:]port] [-E log_file] [-e escape_char]
1792   # [-F configfile] [-I pkcs11] [-i identity_file]
1793   # [-J [user@]host[:port]] [-L address] [-l login_name] [-m mac_spec]
1794   # [-O ctl_cmd] [-o option] [-p port] [-Q query_option] [-R address]
1795   # [-S ctl_path] [-W host:port] [-w local_tun[:remote_tun]]
1796
1797   force_rsync=false
1798   if [[ $1 == --rsync ]]; then
1799     force_rsync=true
1800     shift
1801   fi
1802
1803   sl_test_cmd=$SL_TEST_CMD
1804   sl_test_hook=$SL_TEST_HOOK
1805   sl_rsync_args=$SL_RSYNC_ARGS
1806   while [[ $1 ]]; do
1807     case "$1" in
1808       --rsync)
1809         force_rsync=true
1810         ;;
1811       --sl-test-cmd)
1812         sl_test_cmd="$2"
1813         shift
1814         ;;
1815       --sl-test-hook)
1816         sl_test_hook="$2"
1817         shift
1818         ;;
1819       --sl-rsync-args)
1820         sl_rsync_args="$2"
1821         shift
1822         ;;
1823       *)
1824         break
1825         ;;
1826     esac
1827     shift
1828   done
1829
1830   while [[ $1 ]]; do
1831     case "$1" in
1832       # note we dont support things like -4oOption
1833       -[46AaCfGgKkMNnqsTtVvXxYy]*)
1834         args+=("$1"); shift
1835         ;;
1836       -[bcDEeFIiJLlmOopQRSWw]*)
1837         # -oOption etc is valid
1838         if (( ${#1} >= 3 )); then
1839           args+=("$1"); shift
1840         else
1841           args+=("$1" "$2"); shift 2
1842         fi
1843         ;;
1844       *)
1845         break
1846         ;;
1847     esac
1848   done
1849   remote="$1"
1850   if [[ ! $remote ]]; then
1851     echo $0: error hostname required >&2
1852     return 1
1853   fi
1854   shift
1855
1856   if [[ ! $SL_INFO_DIR  ]]; then
1857     echo error: missing '$SL_INFO_DIR' env var >&2
1858     return 1
1859   fi
1860
1861   dorsync=false
1862   haveinfo=false
1863   tmpa=($SL_INFO_DIR/???????????"$remote")
1864   sshinfo=${tmpa[0]}
1865   if [[ -e $sshinfo ]]; then
1866     if $force_rsync; then
1867       rm -f $sshinfo
1868     else
1869       haveinfo=true
1870     fi
1871   fi
1872   if $haveinfo; then
1873     tmp=${sshinfo[0]##*/}
1874     tmp2=${tmp::11}
1875     type=${tmp2: -1}
1876     extra_info=$(cat $sshinfo)
1877   else
1878     # we test for string to know ssh succeeded
1879     testbool="test -e $SL_FILES_DIR/.bashrc -a -L .bashrc -a -v LC_USEBASHRC"
1880     testcmd="if $testbool; then printf y; else printf n; fi"
1881     if ! tmp=$(LC_USEBASHRC=y command ssh "${args[@]}" "$remote" "$testcmd; $sl_test_cmd"); then
1882       echo failed sl test. doing plain ssh -v
1883       command ssh -v "${args[@]}" "$remote"
1884     fi
1885     if [[ $tmp == y* ]]; then
1886       type=a
1887     else
1888       dorsync=true
1889       type=b
1890     fi
1891     extra_info="${tmp:1}"
1892   fi
1893   if [[ $sl_test_hook ]]; then
1894     RSYNC_RSH="ssh ${args[*]}" $sl_test_hook "$extra_info" "$remote"
1895   fi
1896
1897   if $haveinfo && [[ $type == b ]]; then
1898     info_sec=${tmp::10}
1899     read files_sec _ < <(find -L $SL_FILES_DIR -printf "%T@ %p\n" | sort -nr || [[ $? == 141 || ${PIPESTATUS[0]} == 32 ]]  )
1900     files_sec=${files_sec%%.*}
1901     if (( files_sec > info_sec )); then
1902       dorsync=true
1903       rm -f $sshinfo
1904     fi
1905   fi
1906
1907   sync_dirname=${SL_FILES_DIR##*/}
1908
1909   if [[ ! $SL_FILES_DIR  ]]; then
1910     echo error: missing '$SL_FILES_DIR' env var >&2
1911     return 1
1912   fi
1913
1914   if $dorsync; then
1915     RSYNC_RSH="ssh ${args[*]}" m rsync -rptL --delete $sl_rsync_args $SL_FILES_DIR "$remote":
1916   fi
1917   if $dorsync || ! $haveinfo; then
1918     sshinfo=$SL_INFO_DIR/$EPOCHSECONDS$type"$remote"
1919     [[ -e $SL_INFO_DIR ]] || mkdir -p $SL_INFO_DIR
1920     printf "%s\n" "$extra_info" >$sshinfo
1921     chmod 666 $sshinfo
1922   fi
1923   if [[ $type == b ]]; then
1924     if (( ${#@} )); then
1925       # Theres a couple ways to pass arguments, im not sure whats best,
1926       # but relying on bash 4.4+ escape quoting seems most reliable.
1927       command ssh "${args[@]}" "$remote" \
1928               LC_USEBASHRC=t bash -c '.\ '$sync_dirname'/.bashrc\;"\"\$@\""' bash ${@@Q}
1929     elif [[ ! -t 0 ]]; then
1930       # This case is when commands are being piped to ssh.
1931       # Normally, no bashrc gets sourced.
1932       # But, since we are doing all this, lets source it because we can.
1933       cat <(echo . $sync_dirname/.bashrc) - | command ssh "${args[@]}" "$remote" LC_USEBASHRC=t bash
1934     else
1935       command ssh -t "${args[@]}" "$remote" LC_USEBASHRC=t INPUTRC=$sync_dirname/.inputrc bash --rcfile $sync_dirname/.bashrc
1936     fi
1937   else
1938     if [[ -t 0 ]]; then
1939       LC_USEBASHRC=t command ssh "${args[@]}" "$remote" ${@@Q}
1940     else
1941       command ssh "${args[@]}" "$remote" LC_USEBASHRC=t bash
1942     fi
1943   fi
1944   # this function inspired from https://github.com/Russell91/sshrc
1945 }
1946
1947 slr() {
1948   sl --rsync "$@"
1949 }
1950 sss() { # ssh solo
1951   sl -oControlMaster=no -oControlPath=/ "$@"
1952 }
1953 # kill off old shared socket then ssh
1954 ssk() {
1955   m ssh -O exit "$@" || [[ $? == 255 ]]
1956   m sl "$@"
1957 }
1958 ccomp ssh sl slr sss ssk
1959 # plain ssh
1960 ssh() {
1961   if [[ $TERM == alacritty || $TERM == xterm-kitty ]]; then
1962     TERM=xterm-256color LC_USEBASHRC=t command ssh "$@"
1963   else
1964     LC_USEBASHRC=t command ssh "$@"
1965   fi
1966 }
1967
1968
1969 slog() {
1970   # log with script. timing is $1.t and script is $1.s
1971   # -l to save to ~/typescripts/
1972   # -t to add a timestamp to the filenames
1973   local logdir do_stamp arg_base
1974   (( $# >= 1 )) || { echo "arguments wrong"; return 1; }
1975   logdir="/a/dt/"
1976   do_stamp=false
1977   while getopts "lt" option
1978   do
1979     case $option in
1980       l ) arg_base=$logdir ;;
1981       t ) do_stamp=true ;;
1982     esac
1983   done
1984   shift $((OPTIND - 1))
1985   arg_base+=$1
1986   [[ -e $logdir ]] || mkdir -p $logdir
1987   $do_stamp && arg_base+=$(date +%F.%T%z)
1988   script -t $arg_base.s 2> $arg_base.t
1989 }
1990 splay() { # script replay
1991   #logRoot="$HOME/typescripts/"
1992   #scriptreplay "$logRoot$1.t" "$logRoot$1.s"
1993   scriptreplay "$1.t" "$1.s"
1994 }
1995
1996 sr() {
1997   # sudo redo. be aware, this command may not work right on strange distros or earlier software
1998   if [[ $# == 0 ]]; then
1999     sudo -E bash -c -l "$(history -p '!!')"
2000   else
2001     echo this command redos last history item. no argument is accepted
2002   fi
2003 }
2004
2005 srm () {
2006   # with -ll, less secure but faster.
2007   command srm -ll "$@"
2008 }
2009
2010 srun() {
2011   scp $2 $1:/tmp
2012   ssh $1 /tmp/${2##*/} $(printf "%q\n" "${@:2}")
2013 }
2014
2015
2016 swap() {
2017   local tmp
2018   tmp=$(mktemp)
2019   mv $1 $tmp
2020   mv $2 $1
2021   mv $tmp $2
2022 }
2023
2024 tclock() { # terminal clock
2025   local x
2026   clear
2027   date +%l:%_M
2028   len=60
2029   # this goes to full width
2030   #len=${1:-$((COLUMNS -7))}
2031   x=1
2032   while true; do
2033     if (( x == len )); then
2034       end=true
2035       d="$(date +%l:%_M)   "
2036     else
2037       end=false
2038       d=$(date +%l:%M:%_S)
2039     fi
2040     echo -en "\r"
2041     echo -n "$d"
2042     for ((i=0; i<x; i++)); do
2043       if (( i % 6 )); then
2044         echo -n _
2045       else
2046         echo -n .
2047       fi
2048     done
2049     if $end; then
2050       echo
2051       x=1
2052     else
2053       x=$((x+1))
2054     fi
2055     sleep 5
2056   done
2057 }
2058
2059
2060 te() {
2061   # test existence / exists
2062   local ret=0
2063   for x in "$@"; do
2064     [[ -e "$x" || -L "$x" ]] || ret=1
2065   done
2066   return $ret
2067 }
2068
2069 psoff() {
2070   # normally, i would just execute these commands in the function.
2071   # however, DEBUG is not inherited, so we need to run it outside a function.
2072   # And we want to run set -x afterwards to avoid spam, so we cram everything
2073   # in here, and then it will run after this function is done.
2074   PROMPT_COMMAND='trap DEBUG; unset PROMPT_COMMAND; PS1="\w \$ "'
2075 }
2076 pson() {
2077   PROMPT_COMMAND=prompt-command
2078   if [[ $TERM == *(screen*|xterm*|rxvt*) ]]; then
2079     trap 'settitle "$BASH_COMMAND"' DEBUG
2080   fi
2081 }
2082
2083 tx() { # toggle set -x, and the prompt so it doesnt spam
2084   if [[ $- == *x* ]]; then
2085     set +x
2086     pson
2087   else
2088     psoff
2089   fi
2090 }
2091
2092 psnetns() {
2093   # show all processes in the network namespace $1.
2094   # blank entries appear to be subprocesses/threads
2095   local x netns
2096   netns=$1
2097   ps -w | head -n 1
2098   sudo find -L /proc/[1-9]*/task/*/ns/net -samefile /run/netns/$netns | cut -d/ -f5 | \
2099     while read -r l; do
2100       x=$(ps -w --no-headers -p $l);
2101       if [[ $x ]]; then echo "$x"; else echo $l; fi;
2102     done
2103 }
2104 nonet() {
2105   if ! s ip netns list | grep -Fx nonet &>/dev/null; then
2106     s ip netns add nonet
2107   fi
2108   sudo -E env /sbin/ip netns exec nonet sudo -E -u iank /bin/bash
2109 }
2110
2111 m() { printf "%s\n" "$*";  "$@"; }
2112
2113 uptime() {
2114   if type -p uprecords &>/dev/null; then
2115     uprecords -B
2116   else
2117     command uptime
2118   fi
2119 }
2120
2121 virshrm() {
2122   for x in "$@"; do virsh destroy "$x"; virsh undefine "$x"; done
2123 }
2124
2125 vm-set-listen(){
2126   local t
2127   t=$(mktemp)
2128   local vm=$1
2129   local ip=$2
2130   sudo virsh dumpxml $vm | sed -r "s/(<listen.*address=')([^']+)/\1$ip/" | \
2131     sed -r "s/listen='[^']+/listen='$ip/"> $t
2132   sudo virsh undefine $vm
2133   sudo virsh define $t
2134 }
2135
2136
2137 vmshare() {
2138   vm-set-listen $1 0.0.0.0
2139 }
2140
2141
2142 vmunshare() {
2143   vm-set-listen $1 127.0.0.1
2144 }
2145
2146 myiwscan() {
2147   # find input, copy to pattern space, when we find the first field, print the copy in different order without newlines.
2148   # instead of using labels, we could just match a line and group, eg: /signal:/,{s/signal:(.*)/\1/h}
2149   sudo iw dev wls1 scan | sed -rn  "
2150 s/^\Wcapability: (.*)/\1/;Ta;h;b
2151 :a;s/^\Wsignal: -([^.]+).*/\1/;Tb;H;b
2152 # padded to min width of 20
2153 :b;s/\WSSID: (.*)/\1                    /;T;s/^(.{20}(.*[^ ])?) */\1/;H;g;s/(.*)\n(.*)\n(.*)/\2 \3  \1/gp;b
2154 "|sort -r
2155 }
2156
2157 # * misc stuff
2158
2159
2160 if $use_color && type -p tput &>/dev/null; then
2161   term_bold="$(tput bold)"
2162   term_red="$(tput setaf 1)"
2163   term_green="$(tput setaf 2)"
2164   term_yellow="$(tput setaf 3)"
2165   term_purple="$(tput setaf 5)"
2166   term_nocolor="$(tput sgr0)" # no font attributes
2167
2168   # unused so far. commented for shellcheck
2169   # term_underl="$(tput smul)"
2170   # term_blue="$(tput setaf 4)"
2171   # term_cyan="$(tput setaf 6)"
2172 fi
2173 # Try to keep environment pollution down, EPA loves us.
2174 unset safe_term match_lhs use_color
2175
2176 # * prompt
2177
2178
2179 if [[ $- == *i* ]]; then
2180
2181
2182   case $HOSTNAME in
2183     bk|je|li)
2184       if [[ $EUID == 1000 ]]; then
2185         system-status _ ||:
2186       fi
2187       ;;
2188   esac
2189
2190
2191   # this needs to come before next ps1 stuff
2192   # this stuff needs bash 4, feb 2009,
2193   # old enough to no longer condition on $BASH_VERSION anymore
2194   shopt -s autocd
2195   shopt -s dirspell
2196   PS1='\w'
2197   if [[ $- == *i* ]]  && [[ ! $LC_INSIDE_EMACS ]]; then
2198     PROMPT_DIRTRIM=2
2199     bind -m vi-command B:shell-backward-word
2200     bind -m vi-command W:shell-forward-word
2201   fi
2202
2203   if [[ $SSH_CLIENT || $SUDO_USER ]]; then
2204     unset PROMPT_DIRTRIM
2205     PS1="\h:$PS1"
2206   fi
2207
2208   # emacs terminal has problems if this runs slowly,
2209   # so I've thrown a bunch of things at the wall to speed it up.
2210   prompt-command() {
2211     local return=$? # this MUST COME FIRST
2212     local ps_char ps_color
2213     unset IFS
2214
2215     if [[ $HISTFILE ]]; then
2216       history -a # save history
2217     fi
2218
2219     # assigned in brc2
2220     # shellcheck disable=SC1303
2221     if [[ $jr_pid ]]; then
2222       if [[ -e /proc/$jr_pid ]]; then
2223         kill $jr_pid
2224       fi
2225       unset jr_pid
2226     fi
2227
2228     case $return in
2229       0) ps_color="$term_purple"
2230          ps_char='\$'
2231          ;;
2232       *) ps_color="$term_green"
2233          ps_char="$return \\$"
2234          ;;
2235     esac
2236     if [[ ! -O . ]]; then # not owner
2237       if [[ -w . ]]; then # writable
2238         ps_color="$term_bold$term_red"
2239       else
2240         ps_color="$term_bold$term_green"
2241       fi
2242     fi
2243
2244     # faster than sourceing the file im guessing
2245     if [[ -e /dev/shm/iank-status && ! -e /tmp/quiet-status ]]; then
2246       eval $(< /dev/shm/iank-status)
2247     fi
2248     if [[ $MAIL_HOST && $MAIL_HOST != "$HOSTNAME" ]]; then
2249       ps_char="@ $ps_char"
2250     fi
2251     # We could test if sudo is active with sudo -nv
2252     # but then we get an email and log of lots of failed sudo commands.
2253     # We could turn those off, but seems better not to.
2254     if [[ $EUID != 0 ]] && [[ $DID_SUDO ]]; then
2255       psudo="\[$term_bold$term_red\]s\[$term_nocolor\] "
2256     fi
2257     if [[ ! $HISTFILE ]]; then
2258       ps_char="NOHIST $ps_char"
2259     fi
2260     PS1="${PS1%"${PS1#*[wW]}"} $psudo\[$ps_color\]$ps_char\[$term_nocolor\] "
2261
2262     # set titlebar. instead, using more advanced
2263     # titelbar below
2264     #echo -ne "$_title_escape $HOSTNAME ${PWD/#$HOME/~}  \007"
2265   }
2266   PROMPT_COMMAND=prompt-command
2267
2268   if [[ $TERM == screen* ]]; then
2269     _title_escape="\033]..2;"
2270   else
2271     # somme sites recommend this, i dunno what the diff is.
2272     #_title_escape="\033]30;"
2273     _title_escape="\033]0;"
2274   fi
2275
2276   settitle () {
2277     # this makes it so we show the current command if
2278     # one is running, otherwise, show nothing
2279
2280     if [[ $1 == prompt-command ]]; then
2281       return 0
2282     fi
2283     if (( ${#BASH_ARGC[@]} == 1 && BASH_SUBSHELL == 0 )); then
2284       echo -ne "$_title_escape ${PWD/#$HOME/~} "
2285       printf "%s" "$*"
2286       echo -ne "\007"
2287     fi
2288   }
2289
2290   # note, this wont work:
2291   # x=$(mktemp); cp a $x
2292   # I havnt figured out why, bigger fish to fry.
2293   #
2294   # for titlebar.
2295   # condition from the screen man page i think.
2296   # note: duplicated in tx()
2297   if [[ $TERM == *(screen*|xterm*|rxvt*) ]]; then
2298     trap 'settitle "$BASH_COMMAND"' DEBUG
2299   else
2300     trap DEBUG
2301   fi
2302
2303 fi
2304
2305 # * stuff that makes sense to be at the end
2306
2307
2308 # best practice
2309 unset IFS
2310
2311 # shellcheck disable=SC1090
2312 [[ -s "$HOME/.rvm/scripts/rvm" ]] && source "$HOME/.rvm/scripts/rvm" # Load RVM into a shell session *as a function*
2313
2314 # I had this idea to start a bash shell which would run an initial
2315 # command passed through this env variable, then continue on
2316 # interactively. But the use case I had in mind went away.
2317 #
2318 # if [[ $MY_INIT_CMD ]]; then
2319 #   "${MY_INIT_CMD[@]}"
2320 #   unset MY_INIT_CMD
2321 # fi
2322
2323 # ensure no bad programs appending to this file will have an affect
2324 return 0