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
   9
  10 if [[ -s /a/bin/errhandle/err ]]; then
  11   # shellcheck source=/a/bin/errhandle/err
  12   source /a/bin/errhandle/err
  13   # wtf, shellcheck doesn't allow disabling warnings in elifs
  14 else
  15   # bleh shellcheck can't handle disabling in an elif, so nesting this if.
  16   # shellcheck disable=SC2154 # set in .bashrc
  17   if [[ -s $bashrc_dir/err ]]; then
  18     # shellcheck source=/a/bin/errhandle/err
  19     source $bashrc_dir/err
  20   fi
  21 fi
  22
  23 # In t8, it runs clear_console for login shells by default. I don't want
  24 # my console cleared. And linux ttys get cleared without this.
  25 if shopt login_shell >/dev/null && [[ -e ~/.bash_logout ]]; then
  26   rm ~/.bash_logout
  27 fi
  28
  29 # if [[ -s /usr/share/bash-completion/completions/git ]]; then
  30 #   source /usr/share/bash-completion/completions/git
  31 # fi
  32 # if [[ -s /usr/share/bash-completion/completions/gitk ]]; then
  33 #   source /usr/share/bash-completion/completions/gitk
  34 # fi
  35
  36 # for testing error catching:
  37 # t2() {
  38 #   echo t2
  39 #   grep sdf sdfd
  40 #   echo wtf
  41 # }
  42 # t1() {
  43 #   echo t1
  44 #   t2 a b c
  45 # }
  46
  47 # * settings
  48
  49 CDPATH=.
  50
  51
  52 # remove all aliases. aliases provided by the system tend to get in the way,
  53 # for example, error happens if I try to define a function the same name as an alias
  54 unalias -a
  55
  56 # remove gnome keyring warning messages
  57 # there is probably a more proper way, but I didnt find any easily on google
  58 # now using xfce+xmonad instead of vanilla xmonad, so disabling this
  59 #unset GNOME_KEYRING_CONTROL
  60
  61 # use extra globing features.
  62 shopt -s extglob
  63 # include .files when globbing, but ignore files name . and ..
  64 # setting this also sets dotglob.
  65 export GLOBIGNORE="*/.:*/.."
  66
  67 # Useful info. see man bash.
  68 PS4='$LINENO+ '
  69
  70
  71 # broken with bash_completion package. Saw a bug for this once. dont anymore.
  72 # still broken in wheezy
  73 # still buggered in latest stable from the web, version 2.1
  74 # perhaps its fixed in newer git version, which fails to make for me
  75 # this note is from 6-2014.
  76 # still broken in flidas.
  77 #shopt -s nullglob
  78
  79 # make tab on an empty line do nothing
  80 shopt -s no_empty_cmd_completion
  81
  82 # fix spelling errors for cd, only in interactive shell
  83 shopt -s cdspell
  84 # append history instead of overwritting it
  85 shopt -s histappend
  86 # for compatibility, per gentoo/debian bashrc
  87 shopt -s checkwinsize
  88 # attempt to save multiline single commands as single history entries.
  89 shopt -s cmdhist
  90 # enable **
  91 shopt -s globstar
  92
  93
  94 # inside emacs fixes
  95 if [[ $LC_INSIDE_EMACS ]]; then
  96   # EMACS is used by bash on startup, but we dont need it anymore.
  97   # plus I hit a bug in a makefile which inherited it
  98   unset EMACS
  99   export LC_INSIDE_EMACS
 100   export PAGER=cat
 101   export MANPAGER=cat
 102   # scp completion does not work, but this doesnt fix it. todo, figure this out
 103   #complete -r scp &> /dev/null
 104   # todo, remote file completion fails, figure out how to turn it off
 105   export NODE_DISABLE_COLORS=1
 106   # This gets rid of ugly terminal escape chars in node repl
 107   # sometime, Id like to have completion working in emacs shell for node
 108   # the offending chars can be found in lib/readline.js,
 109   # things that do like:
 110   # stream.write('\x1b[' + (x + 1) + 'G');
 111   # We can remove them and keep readline, for example by doing this
 112   # to start a repl:
 113   #!/usr/bin/env nodejs
 114   # var readline = require('readline');
 115   # readline.cursorTo = function(a,b,c) {};
 116   # readline.clearScreenDown = function(a) {};
 117   # const repl = require('repl');
 118   # var replServer = repl.start('');
 119   #
 120   # no prompt, or else readline complete seems to be confused, based
 121   # on our column being different? node probably needs to send
 122   # different kind of escape sequence that is not ugly. Anyways,
 123   # completion doesnt work yet even with the ugly prompt, so whatever
 124   #
 125   export NODE_NO_READLINE=1
 126
 127 fi
 128
 129 export SSH_CONFIG_FILE_OVERRIDE=/root/.ssh/confighome
 130
 131 # emacs has a different default search path than the info command. This
 132 # adds the info defaults to emacs, but not the reverse, because I dun
 133 # care much about the cli. The search path is only on the cli if you run
 134 # "info xxx", or in emacs if you run '(info xxx)', so not that
 135 # important, but might as well fix it.
 136
 137 # info info says this path is what was compiled, and its not documented
 138 # anywhere. Through source grepping, i found it in filesys.h of the info
 139 # source in trisquel flidas.
 140 #
 141 # Traling : means for emacs to add its own stuff on to the end.
 142
 143 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:.:
 144
 145 # for openwrt system that has no stty, this is easier than
 146 # guarding every time i use it.
 147 if ! type -p stty >/dev/null; then
 148   stty() { :; }
 149 fi
 150
 151
 152 use_color=false
 153 if [[ $- == *i* ]]; then
 154   # for readline-complete.el
 155   if [[ $LC_INSIDE_EMACS ]]; then
 156     # all for readline-complete.el
 157     stty echo
 158     bind 'set horizontal-scroll-mode on'
 159     bind 'set print-completions-horizontally on'
 160     bind '"\C-i": self-insert'
 161   else
 162
 163
 164     if [[ $TERM != dumb ]] && test -t 1; then
 165       use_color=true
 166     fi
 167
 168     if [[ $KONSOLE_PROFILE_NAME ]]; then
 169       TERM=xterm-256color
 170     fi
 171
 172     if [[ $TERM == alacritty && ! -e /usr/share/terminfo/a/alacritty ]]; then
 173       # todo: we should try installing the alacritty terminfo if it is not found
 174       # https://github.com/alacritty/alacritty/issues/2838
 175       TERM=xterm-256color
 176     fi
 177
 178     # copying from the alacritty example above,
 179     if [[ $TERM == xterm-kitty ]]; then
 180       if [[ ! -e /usr/share/terminfo/x/xterm-kitty ]]; then
 181         TERM=xterm-256color
 182       else
 183         if [[ -e /a/opt/kitty/shell-integration/bash/kitty.bash ]]; then
 184           KITTY_SHELL_INTEGRATION=t
 185           source /a/opt/kitty/shell-integration/bash/kitty.bash
 186         fi
 187       fi
 188     fi
 189
 190     # todo: not sure this works in sakura
 191     #stty werase undef
 192     #bind "\C-w": kill-region
 193     # sakura == xterm-256color
 194     # konsole == xterm
 195     if [[ $TERM != xterm-kitty && $TERM == xterm* ]]; then
 196       # control + arrow keys. for other terminals, see http://unix.stackexchange.com/questions/10806/how-to-change-previous-next-word-shortcut-in-bash
 197       bind '"\e[1;5C": shell-forward-word' 2>/dev/null
 198       bind '"\e[1;5D": shell-backward-word' 2>/dev/null
 199     else
 200       # make ctrl-backspace work. for konsole, i fixed it through
 201       # /home/iank/.local/share/konsole/default.keytab
 202       stty werase ^h
 203       bind '"\eOc": shell-forward-word'
 204       bind '"\eOd": shell-backward-word'
 205     fi
 206     # i cant remember why i did this, probably to free up some keys to bind
 207     # to other things in bash.
 208     # other than C-c and C-z, the rest defined by stty -a are, at least in
 209     # gnome-terminal, overridden by bash, or disabled by the system
 210     stty  lnext undef stop undef start undef
 211   fi
 212
 213 fi
 214
 215 case $TERM in
 216   # fixup broken backspace in chroots
 217   xterm-kitty|alacritty)
 218     chroot() {
 219       TERM=xterm-256color command chroot "$@"
 220     }
 221     ;;
 222 esac
 223
 224 export BC_LINE_LENGTH=0
 225
 226 # ansible option
 227 export PROFILE_TASKS_TASK_OUTPUT_LIMIT=100
 228
 229 # note, if I use a machine I dont want files readable by all users, set
 230 # umask 077  # If fewer than 4 digits are entered, leading zeros are assumed
 231
 232 # i for insensitive. the rest from
 233 # X means dont remove the current screenworth of output upon exit
 234 # R means to show colors n things
 235 # a useful flag is -F aka --quit-if-one-screen
 236 export LESS=RXij12
 237 export SYSTEMD_LESS=$LESS
 238
 239 export NNN_COLORS=2136
 240
 241 export SL_FILES_DIR=/b/ds/sl/.iank
 242 export SL_INFO_DIR=/p/sshinfo
 243
 244
 245
 246 # * include files
 247
 248 if [[ -s $bashrc_dir/path-add-function ]]; then
 249   source $bashrc_dir/path-add-function
 250   if [[ $SSH_CLIENT ]]; then
 251     if grep -qF /home/iank/.iank/e/e /etc/exports &>/dev/null; then
 252       export EMACSDIR=/home/iank/.iank/e/e
 253     fi
 254     path-add $bashrc_dir
 255   fi
 256 fi
 257
 258 # if someone exported $SOE (stop on error), catch errors.
 259 #
 260 # Note, on debian this results in the following warning when in ssh,
 261 # hich I haven't figured out how to fix. It doesn't happen if we source
 262 # after the shell has started
 263 #
 264 # bash: /usr/share/bashdb/bashdb-main.inc: No such file or directory
 265 # bash: warning: cannot start debugger; debugging mode disabled
 266 if [[ $SOE ]]; then
 267   if [[ -e /a/bin/errhandle/err ]]; then
 268     source /a/bin/errhandle/err
 269   fi
 270 fi
 271
 272
 273 mysrc() {
 274   local path dir file
 275   path=$1
 276   dir=${path%/*}
 277   file=${path##*/}
 278   if [[ -s $path ]]; then
 279     # shellcheck disable=SC1090 # this is dynamic, shellcheck can't follow it.
 280     source $path
 281   elif [[ -s $bashrc_dir/$file ]]; then
 282     # shellcheck disable=SC1090 # this is dynamic, shellcheck can't follow it.
 283     source $bashrc_dir/$file
 284   fi
 285 }
 286
 287
 288 mysrc /a/bin/small-misc-bash/ll-function
 289 mysrc /a/bin/distro-functions/src/package-manager-abstractions
 290
 291 # things to remember:
 292 # ALT-C - cd into the selected directory
 293 # CTRL-T - Paste the selected file path into the command line
 294 #
 295 # good guide to some of its basic features is the readme file
 296 # https://github.com/junegunn/fzf
 297
 298 # if [[ -s /usr/share/doc/fzf/examples/key-bindings.bash ]]; then
 299 #   source /usr/share/doc/fzf/examples/key-bindings.bash
 300 # fi
 301
 302 # * functions
 303
 304 ### begin FSF section ###
 305
 306 # use for temporary functions
 307 y() {
 308   m "${@//spring/fall}"
 309 }
 310 h() {
 311   e "${@//spring/fall}"
 312 }
 313
 314
 315 # Comments before functions are meant to be good useful
 316 # documentation. If they fail at that, please improve them or send Ian a
 317 # note.
 318
 319 ## copy bash completion
 320 # Usage: ORIGINAL_COMMAND TARGET_COMMAND...
 321 #
 322 # It copies how the bash completion works from one command to other
 323 # commands.
 324 ccomp() {
 325   local c src
 326   src=$1
 327   shift
 328   if ! c=$(complete -p $src 2>/dev/null); then
 329     _completion_loader $src &>/dev/null ||:
 330     c=$(complete -p $src 2>/dev/null) || return 0
 331   fi
 332   # remove $src( .*|$)
 333   c=${c% "$src"}
 334   c=${c%% "$src" *}
 335   eval $c $*
 336 }
 337
 338 ## directory history tracking and navigation.
 339 #
 340 # cd becomes a function, also aliased to c. b to go back, f to go
 341 # forward, cl to list recent directories and choose one.
 342 #
 343 # The finer details you may want to skip:
 344 #
 345 # We also define bl to print the list of back and forward directories.
 346 #
 347 # We keep 2 stacks, forward and back. Unlike with a web browser, the
 348 # forward stack is not erased when going somewhere new.
 349 #
 350 # Recent directories are stored in ~/.cdirs.
 351 #
 352 declare -a _dir_forward _dir_back
 353 c() {
 354   # normally, the top of _dir_back is our current dir. if it isn't,
 355   # put it on there, except we don't want to do that when we
 356   # just launched a shell
 357   if [[ $OLDPWD ]]; then
 358     if (( ${#_dir_back[@]} == 0 )) || [[ ${_dir_back[-1]} != "$PWD" ]]; then
 359       _dir_back+=("$PWD")
 360     fi
 361   fi
 362   command cd "$@"
 363   if (( ${#_dir_back[@]} == 0 )) || [[ ${_dir_back[-1]} != "$PWD" ]]; then
 364     _dir_back+=("$PWD")
 365   fi
 366   echo "$PWD" >> ~/.cdirs
 367 }
 368 ccomp cd c
 369
 370 # back
 371 b() {
 372   local top_back
 373   if (( ${#_dir_back[@]} == 0 )); then
 374     echo "nothing left to go back to" >&2
 375     return 0
 376   fi
 377   top_back="${_dir_back[-1]}"
 378
 379   if [[ $top_back == "$PWD" ]] && (( ${#_dir_back[@]} == 1 )); then
 380     echo "already on last back entry" >&2
 381     return 0
 382   fi
 383
 384
 385   if [[ $top_back == "$PWD" ]]; then
 386     # add to dirf if not already there
 387     if (( ${#_dir_forward[@]} == 0 )) || [[ ${_dir_forward[-1]} != "$top_back" ]]; then
 388       _dir_forward+=("$top_back")
 389     fi
 390     unset "_dir_back[-1]"
 391     command cd "${_dir_back[-1]}"
 392   else
 393     if (( ${#_dir_forward[@]} == 0 )) || [[ ${_dir_forward[-1]} != "$PWD" ]]; then
 394       _dir_forward+=("$PWD")
 395     fi
 396     command cd "$top_back"
 397   fi
 398
 399   # Interesting feature, not sure I want it.
 400   # give us a peek at what is next in the list
 401   # if (( ${#_dir_back[@]} >= 2 )); then
 402   #   printf "%s\n" "${_dir_back[-2]}"
 403   # fi
 404   #
 405
 406   # c/b/f Implementation notes:
 407   #
 408   # The top of the back is $PWD
 409   # as long as the last directory change was due to c,b,or cl.
 410   #
 411   # Example of stack changes:
 412   #
 413   # a b c (d)
 414   ## back
 415   # a b (c)
 416   # d
 417   #back
 418   #a (b)
 419   #d c
 420   #back
 421   #(a)
 422   #d c b
 423   #forward
 424   #a (b)
 425   #d c
 426   #
 427   # a b c
 428   ## back
 429   # a b
 430   # (c)
 431   ## forward
 432
 433 }
 434 # forward
 435 f() {
 436   local top_forward
 437   if (( ${#_dir_forward[@]} == 0 )); then
 438     echo "no forward dir left" >&2
 439     return 0
 440   fi
 441   top_forward="${_dir_forward[-1]}"
 442   unset "_dir_forward[-1]"
 443   c "$top_forward"
 444
 445   # give us a peek at what is next in the list
 446   # if (( ${#_dir_forward[@]} )); then
 447   #   printf "%s\n" "${_dir_forward[-1]}"
 448   # fi
 449 }
 450 # cd list
 451 cl() {
 452   local i line input start
 453   local -A buttondirs alines
 454   local -a buttons dirs lines
 455   buttons=( {a..z} {2..9} )
 456   if [[ ! -s ~/.cdirs ]]; then
 457     echo nothing in ~/.cdirs
 458     return 0
 459   fi
 460
 461   i=0
 462
 463   mapfile -t lines <~/.cdirs
 464   start=$(( ${#lines[@]} - 1 ))
 465
 466   # we have ~33 buttons as of this writing, so lets
 467   # prune down the history every once in a while.
 468   if (( start > 500 )); then
 469     tac ~/.cdirs | awk '!seen[$0]++' | head -n 200 | tac | sponge ~/.cdirs || [[ $? == 141 ]]
 470   fi
 471
 472   for (( j=start; j >= 0; j-- )); do
 473     line="${lines[$j]}"
 474     if [[ ! $line || ${alines[$line]} || ! -d "$line" || $line == "$PWD" || line == "$HOME"  ]]; then
 475       continue
 476     fi
 477     alines[$line]=t
 478     buttondirs[${buttons[i]}]="$line"
 479     printf "%s %s\n" ${buttons[i]} "$line"
 480     if (( i == ${#buttons[@]} - 1 )); then
 481       break
 482     fi
 483     i=$(( i + 1 ))
 484   done
 485
 486   if (( i == 0 )); then
 487     echo "no dirs in ~/.cdirs"
 488     return 0
 489   fi
 490   read -r -N 1 input
 491   if [[ $input != $'\n' ]]; then
 492     c "${buttondirs[$input]}"
 493   fi
 494 }
 495 # back list
 496 bl() {
 497   local start i j max
 498   max=10
 499   start=$(( ${#_dir_back[@]} - 1 ))
 500
 501   # cleanup possible repeating of pwd
 502   if (( start >= 0 )) && [[ ${_dir_back[$start]} == "$PWD" ]]; then
 503     start=$(( start - 1 ))
 504   fi
 505   j=1
 506   if (( start >= 0 )); then
 507     for (( i=start; i >= 0 ; i-- )); do
 508       printf "%s %s\n" $j ${_dir_back[i]}
 509       j=$(( j + 1 ))
 510       if (( j >= max )); then
 511         break
 512       fi
 513     done
 514   fi
 515
 516   max=10
 517   start=$(( ${#_dir_forward[@]} - 1 ))
 518
 519   # cleanup possible repeating of pwd
 520   if (( start >= 0 )) && [[ ${_dir_forward[$start]} == "$PWD" ]]; then
 521     start=$(( start - 1 ))
 522   fi
 523   if (( start < 0 )); then
 524     return 0
 525   fi
 526   echo --
 527   j=1
 528   for (( i=start; i >= 0 ; i-- )); do
 529     printf "%s %s\n" $j ${_dir_forward[i]}
 530     j=$(( j + 1 ))
 531     if (( j >= max )); then
 532       break
 533     fi
 534   done
 535 }
 536
 537 # pee do. run args as a command with output copied to syslog.
 538 #
 539 # Usage: pd [-t TAG] COMMAND...
 540 #
 541 # -t TAG Override the tag in the syslog. The default is COMMAND with
 542 #        any path part is removed, eg. for /bin/cat the tag is cat.
 543 #
 544 # You can view the log via "journalctl -t TAG"
 545 pd() {
 546   local tag ret
 547   ret=0
 548   tag=${1##*/}
 549   case $1 in
 550     -t) tag="$2"; shift 2 ;;
 551   esac
 552   echo "PWD=$PWD command: $*" | logger -t $tag
 553   "$@" |& pee cat "logger -t $tag" || ret=$?
 554   echo "exited with status=$ret" | pee cat "logger -t $tag"
 555   # this avoids any err-catch
 556   (( ret == 0 )) || return $ret
 557 }
 558 ccomp time pd
 559
 560 # jdo = journal do. Run command as transient systemd service, tailing
 561 # its output in the journal until it completes.
 562 #
 563 # Usage: jdo COMMAND...
 564 #
 565 # Compared to pd: commands recognize this is a non-interactive shell.
 566 # The service is unaffected if our ssh connection dies, no need to run
 567 # in screen or tmux.
 568 #
 569 # Note: The last few lines of any existing entries for a unit by that
 570 # name will be output first, and there will be a few second delay at the
 571 # start of the command, and a second or so at the end.
 572 #
 573 # Note: Functions and aliases obviously won't work, we resolve the
 574 # command to a file.
 575 #
 576 # Note: requires running as root.
 577 jdo() {
 578   local cmd cmd_name jr_pid ret
 579   ret=0
 580   cmd="$1"
 581   shift
 582   if [[ $EUID != 0 ]]; then
 583     echo "jdo: error: rerun as root"
 584     return 1
 585   fi
 586   cmd_name=${cmd##*/}
 587   if [[ $cmd != /* ]]; then
 588     cmd=$(type -P "$cmd")
 589   fi
 590   # -q = quiet
 591   journalctl -qn2 -f -u "$cmd_name" &
 592   # Trial and error of time needed to avoid missing initial lines.
 593   # .5 was not reliable. 1 was not reliable. 2 was not reliable
 594   sleep 4
 595   jr_pid=$!
 596   systemd-run --unit "$cmd_name" --wait --collect "$cmd" "$@" || ret=$?
 597   # The sleep lets the journal output its last line
 598   # before the prompt comes up.
 599   sleep .5
 600   kill $jr_pid &>/dev/null ||:
 601   unset jr_pid
 602   fg &>/dev/null ||:
 603   # this avoids any err-catch
 604   (( ret == 0 )) || return $ret
 605 }
 606 ccomp time jdo
 607 #### end fsf section
 608
 609
 610 ..() { c ..; }
 611 ...() { c ../..; }
 612 ....() { c ../../..; }
 613 .....() { c ../../../..; }
 614 ......() { c ../../../../..; }
 615
 616 chere() {
 617   local f path
 618   for f; do
 619     path=$(readlink -e "$f")
 620     echo "cat >$path <<'EOF'"
 621     cat "$f"
 622     echo EOF
 623   done
 624 }
 625
 626
 627 # file cut copy and paste, like the text buffers :)
 628 # I havnt tested these.
 629 _fbufferinit() { # internal use
 630   ! [[ $my_f_tempdir ]] && my_f_tempdir="$(mktemp -d)"
 631   rm -rf "${my_f_tempdir:?}"/*
 632 }
 633 fcp() { # file cp
 634   _fbufferinit
 635   cp "$@" "$my_f_tempdir"/
 636 }
 637 fct() { # file cut
 638   _fbufferinit
 639   mv "$@" "$my_f_tempdir"/
 640 }
 641 fpst() { # file paste
 642   [[ $2 ]] && { echo too many arguments; return 1; }
 643   target=${1:-.}
 644   cp "$my_f_tempdir"/* "$target"
 645 }
 646
 647 _khfix_common() {
 648   local host ip port file key
 649   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" ||: )
 650   file=$(readlink -f ~/.ssh/known_hosts)
 651   if [[ ! $ip ]]; then
 652     echo "khfix: ssh failed"
 653     return 1
 654   fi
 655   if [[ $port != 22 ]]; then
 656     ip_entry="[$ip]:$port"
 657     host_entry="[$host]:$port"
 658   else
 659     ip_entry=$ip
 660     host_entry=$host
 661   fi
 662   if [[ $host != "$ip" ]]; then
 663     key=$(ssh-keygen -F "$host_entry" -f $file | sed -r 's/^.*([^ ]+ +[^ ]+) *$/\1/')
 664     if [[ $key ]]; then
 665       grep -Fv "$key" "$file" | sponge "$file"
 666     fi
 667   fi
 668   key=$(ssh-keygen -F "$ip_entry" -f $file | sed -r 's/^.*([^ ]+ +[^ ]+) *$/\1/')
 669   if [[ $key ]]; then
 670     grep -Fv "$key" "$file" | sponge "$file"
 671   fi
 672   ll ~/.ssh/known_hosts
 673   rootsshsync
 674 }
 675 khfix() { # known hosts fix
 676   _khfix_common "$@" || return 1
 677   ssh $1 :
 678 }
 679 khcopy() {
 680   _khfix_common "$@"
 681   ssh-copy-id $1
 682 }
 683
 684 # ya, hacky hardcoded hostnames in 2023. we could do better
 685 hssh-update() {
 686   local -a failed_hosts hosts
 687   case $HOSTNAME in
 688     sy|kd)
 689       hosts=(
 690         kd x3.office.fsf.org syw
 691       )
 692       ;;
 693     x3)
 694       hosts=(
 695         b8.nz sywg.b8.nz
 696       )
 697       ;;
 698   esac
 699   for host in ${hosts[@]}; do
 700     e $host
 701     if ! scp /b/fai/fai/config/files/usr/local/bin/hssh/IANK root@$host:/usr/local/bin/hssh; then
 702       failed_hosts+=($host)
 703     fi
 704   done
 705   if (( ${#failed_hosts[@]} >= 1 )); then
 706     echo failed_hosts=${failed_hosts[*]}
 707     return 1
 708   fi
 709 }
 710
 711 a() {
 712   local x
 713   x=$(readlink -nf "${1:-$PWD}")
 714   # yes, its kinda dumb that xclip/xsel cant do this in one invocation
 715   echo -n "$x" | xclip -selection clipboard
 716   echo -n "$x" | xclip
 717 }
 718
 719 # a1 = awk {print $1}
 720 for field in {1..20}; do
 721   eval a$field"() { awk '{print \$$field}'; }"
 722 done
 723 # h1 = head -n1
 724 for num in {1..9}; do
 725   eval h$num"() { head -n$num || [[ \$? == 141 ]]; }"
 726 done
 727
 728
 729 hexipv4() {
 730   # shellcheck disable=SC2046 disable=SC2001 disable=SC2183 # hacks, expected
 731   printf '%d.%d.%d.%d\n' $(echo $1 | sed 's/../0x& /g')
 732 }
 733
 734 vp9() {
 735   local f out outdir in fname origdir skip1
 736   origdir="$PWD"
 737   outdir=vp9
 738   skip1=false
 739   while [[ $1 == -* ]]; do
 740     case $1 in
 741       # if we got interrupted after 1st phase
 742       -2)
 743         skip1=true
 744         shift
 745         ;;
 746       --out)
 747         outdir=$2
 748         shift 2
 749         ;;
 750     esac
 751   done
 752   m mkdir -p $outdir
 753   # first pass only uses about 1 cpu, so run in parallel
 754   for f; do
 755     {
 756       fname="${f##*/f}"
 757       if [[ $f == /* ]]; then
 758         in="$f"
 759       else
 760         in=$origdir/$f
 761       fi
 762       out="$origdir/$outdir/$fname"
 763       mkdir -p /tmp/vp9/$fname
 764       cd /tmp/vp9/$fname
 765       if ! $skip1 && [[ ! -s ffmpeg2pass-0.log ]]; then
 766         # -nostdin or else wait causes ffmpeg to go into stopped state. dunno why, random stackoverflow answer.
 767         m ffmpeg -nostdin -hide_banner -loglevel error -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
 768       fi
 769       if [[ -e $out ]]; then rm -f $out; fi
 770       m ffmpeg -nostdin -hide_banner -loglevel error -y -i $in -g 192 -vcodec libvpx-vp9 -tile-rows 2 -vf scale=-1:720 -max_muxing_queue_size 9999 -b:v 750K -pass 2 -c:a libvorbis -qscale:a 5 $out
 771     } &
 772   done
 773   wait -f
 774   cd "$origdir"
 775 }
 776
 777 utcl() { # utc 24 hour time to local hour 24 hour time
 778   echo "print( ($1  $(date +%z | sed -r 's/..$//;s/^(-?)0*/\1/')) % 24)"|python3
 779 }
 780
 781 bwm() {
 782   s bwm-ng -T avg -d
 783 }
 784
 785
 786 # for running in a fai rescue. iank specific.
 787 kdrescue() {
 788   d=vgata-Samsung_SSD_850_EVO_2TB_S2RLNX0J502123D
 789   for f in $d vgata-Samsung_SSD_870_QVO_8TB_S5VUNG0N900656V; do
 790     cryptsetup luksOpen --key-file /p /dev/$f/root crypt-$f-root
 791     cryptsetup luksOpen --key-file /p /dev/$f/o crypt-$f-o
 792   done
 793   mount -o subvol=root_trisquelaramo /dev/mapper/crypt-$d-root /mnt
 794   mount -o subvol=a /dev/mapper/crypt-$d-root /mnt/a
 795   mount -o subvol=o /dev/mapper/crypt-$d-o /mnt/o
 796   mount -o subvol=boot_trisquelaramo /dev/sda2 /mnt/boot
 797   cd /mnt
 798   chrbind
 799 }
 800
 801
 802
 803
 804 c4() { c /var/log/exim4; }
 805
 806 caa() { git commit --amend --no-edit -a; }
 807
 808 cf() {
 809   for f; do
 810     hr
 811     echo "$f"
 812     hr
 813     cat "$f"
 814   done
 815 }
 816 caf() {
 817   # shellcheck disable=SC2033
 818   find -L "$@" -type f -not \( -name .svn -prune -o -name .git -prune \
 819        -o -name .hg -prune -o -name .editor-backups -prune \
 820        -o -name .undo-tree-history -prune \) \
 821        -exec bash -c '. ~/.bashrc; hr; echo "$1"; hr; cat "$1"' _ {} \; 2>/dev/null
 822
 823 }
 824 ccomp cat cf caf
 825
 826 calc() { echo "scale=3; $*" | bc -l; }
 827 # no having to type quotes, but also no command history:
 828 clc() {
 829   local x
 830   read -r x
 831   echo "scale=3; $x" | bc -l
 832 }
 833
 834 cam() {
 835   git commit -am "$*"
 836 }
 837
 838 ccat () { # config cat. see a config without extra lines.
 839   sed -r '/^[[:space:]]*([;#]|--|\/\/|$)/d' "$@"
 840 }
 841 ccomp grep ccat
 842
 843 chrbind() {
 844   local d
 845   # dev/pts needed for pacman signature check
 846   for d in dev proc sys dev/pts; do
 847     [[ -d $d ]]
 848     if ! mountpoint $d &>/dev/null; then
 849       m s mount -o bind /$d $d
 850     fi
 851   done
 852 }
 853 chumount() {
 854   local d
 855   # dev/pts needed for pacman signature check
 856   for d in dev/pts dev proc sys; do
 857     [[ -d $d ]]
 858     if mountpoint $d &>/dev/null; then
 859       m s umount $d
 860     fi
 861   done
 862 }
 863
 864
 865 _cdiff-prep() {
 866   # join options which are continued to multiples lines onto one line
 867   local first=true
 868   while IFS= read -r line; do
 869     # remove leading spaces/tabs. assumes extglob
 870     if [[ $line == "[   ]*" ]]; then
 871       line="${line##+( )}"
 872     fi
 873     if $first; then
 874       pastline="$line"
 875       first=false
 876     elif [[ $line == *=* ]]; then
 877       echo "$pastline" >> "$2"
 878       pastline="$line"
 879     else
 880       pastline="$pastline $line"
 881     fi
 882   done < <(grep -vE '^([ \t]*#|^[ \t]*$)' "$1")
 883   echo "$pastline" >> "$2"
 884 }
 885
 886 cdiff() {
 887   # diff config files,
 888   # setup for format of postfix, eg:
 889   # option = stuff[,]
 890   #    [more stuff]
 891   local pastline unified f1 f2
 892   unified="$(mktemp)"
 893   f1="$(mktemp)"
 894   f2="$(mktemp)"
 895   _cdiff-prep "$1" "$f1"
 896   _cdiff-prep "$2" "$f2"
 897   cat "$f1" "$f2" |  grep -Po '^[^=]+=' | sort | uniq > "$unified"
 898   while IFS= read -r line; do
 899     # the default bright red / blue doesnt work in emacs shell
 900     dwdiff -cblue,red -A best -d "      ," <(grep "^$line" "$f1" || echo ) <(grep "^$line" "$f2" || echo ) | colordiff
 901   done < "$unified"
 902 }
 903
 904
 905 cat-new-files() {
 906   local start=$SECONDS
 907   local dir="$1"
 908   # shellcheck disable=SC2030
 909   inotifywait -m "$dir" -e create -e moved_to | \
 910     while read -r filedir _ file; do
 911       cat "$filedir$file"
 912       hr
 913       calc $((SECONDS - start)) / 60
 914       sleep 5
 915     done
 916
 917 }
 918
 919 chownme() {
 920   s chown -R $USER:$USER "$@"
 921 }
 922
 923 # shellcheck disable=SC2032
 924 chown() {
 925   # makes it so chown -R symlink affects the symlink and its target.
 926   if [[ $1 == -R ]]; then
 927     shift
 928     command chown -h "$@"
 929     command chown -R "$@"
 930   else
 931     command chown "$@"
 932   fi
 933 }
 934
 935 cim() {
 936   git commit -m "$*"
 937 }
 938
 939
 940 d() { builtin bg "$@"; }
 941 ccomp bg d
 942
 943 # f would be more natural, but i already am using it for something
 944 z() { builtin fg "$@"; }
 945 ccomp fg z
 946
 947 x() { builtin kill %%; }
 948
 949 dc() {
 950   diff --strip-trailing-cr -w "$@"   # diff content
 951 }
 952 ccomp diff dc
 953
 954 despace() {
 955   local x y
 956   for x in "$@"; do
 957     y="${x// /_}"
 958     safe_rename "$x" "$y"
 959   done
 960 }
 961
 962 # df progress
 963 # usage: dfp MOUNTPOINT [SECOND_INTERVAL]
 964 # SECOND_INTERVAL defaults to 90
 965 dfp() {
 966   # mp = mountpoint
 967   local a b mp interval
 968   mp=$1
 969   interval=${2:-90}
 970   if [[ ! $mp ]]; then
 971     echo "dfp: error, missing 1st arg" >&2
 972     return 1
 973   fi
 974   while true; do
 975     a=$(df --output=used $mp | tail -n1)
 976     sleep $interval
 977     b=$(df --output=used $mp | tail -n1)
 978     printf "used mib: %'d  mib/min: %s\n" $(( b /1000 )) $(( (b-a) / (interval * 1000 / 60 ) ))
 979   done
 980 }
 981
 982 # get ipv4 ip from HOST. or if it is already a number, return that
 983 hostip() {
 984   local host="$1"
 985   case $host in
 986     [0-9:])
 987       echo "$host"
 988       ;;
 989     *)
 990       getent ahostsv4 "$host" | awk '{ print $1 }' | head -n1
 991       ;;
 992   esac
 993 }
 994
 995 dig() {
 996   command dig +nostats +nocmd "$@"
 997 }
 998 # Output with sections sorted, and removal of query id, so 2 dig outputs can be diffed.
 999 digsort() {
1000   local sec
1001   sec=
1002   dig +nordflag "$@" | sed -r 's/^(;; ->>HEADER<<-.*), id: .*/\1/' | while read -r l; do
1003     if [[ $l == [^\;]* ]]; then
1004       sec+="$l"$'\n'
1005     else
1006       if [[ $sec ]]; then
1007         printf "%s" "$sec" | sort
1008         sec=
1009       fi
1010       printf "%s\n" "$l"
1011     fi
1012   done
1013 }
1014 ccomp dig digsort
1015 # compare digs to the 2 servers
1016 # usage: digdiff @server1 @server2 DIG_ARGS
1017 # note: only the soa master nameserver will respond with
1018 # ra "recursive answer" flag. That difference is meaningless afaik.
1019 digdiff() {
1020   local s1 s2
1021   s1=$1
1022   shift
1023   s2=$1
1024   shift
1025   digsort $s1 "$@" | tee /tmp/digdiff
1026   diff -u /tmp/digdiff <(digsort $s2 "$@")
1027 }
1028
1029 # date in a format i like reading
1030 dt() {
1031   date "+%A, %B %d, %r" "$@"
1032 }
1033 dtr() {
1034   date -R "$@"
1035 }
1036 # date with all digits in a format i like
1037 dtd() {
1038   date +%F_%T% "$@"
1039 }
1040 ccomp date dt dtr dtd
1041
1042 dus() { # du, sorted, default arg of
1043   du -sh ${@:-*} | sort -h
1044 }
1045 ccomp du dus
1046
1047
1048 e() { printf "%s\n" "$*"; }
1049
1050 # echo args
1051 ea() {
1052   if (( ! $# )); then
1053     echo no args
1054   fi
1055   for arg; do
1056     printf "%qEOL\n" "${arg}"
1057     printf "%s" "${arg}" |& hexdump -C
1058   done
1059 }
1060
1061 # echo variables. print var including escapes, etc, like xxd for variable
1062 ev() {
1063   if (( ! $# )); then
1064     echo no args
1065   fi
1066   for arg; do
1067     if [[ -v $arg ]]; then
1068       printf "%qEOL\n" "${!arg}"
1069       printf "%s" "${!arg}" |& hexdump -C
1070     else
1071       echo arg $arg is unset
1072     fi
1073   done
1074 }
1075
1076 ediff() {
1077   [[ ${#@} == 2 ]] || { echo "error: ediff requires 2 arguments"; return 1; }
1078   emacs --eval "(ediff-files \"$1\" \"$2\")"
1079 }
1080
1081 # mail related
1082 # shellcheck disable=SC2120 # we expect to pass arguments in use outside this file
1083 etail() {
1084   ngset
1085   tail -F /var/log/exim4/mainlog /var/log/exim4/*main /var/log/exim4/paniclog /var/log/exim4/*panic -n 200 "$@"
1086   ngreset
1087 }
1088 etailm() {
1089   tail -F /var/log/exim4/mainlog -n 200 "$@"
1090 }
1091 etail2() {
1092   tail -F /var/log/exim4/mymain -n 200 "$@"
1093 }
1094 ccomp tail etail etail2
1095
1096 # ran into this online, trying it out
1097 detach() {
1098   ( "$@" &>/dev/null & disown )
1099 }
1100
1101 showkeys() {
1102   ssh "$@" cat .ssh/authorized_keys{,2}
1103 }
1104
1105
1106 # print exim old pids
1107 eoldpids() {
1108   local configtime pid piduptime now daemonpid
1109   printf -v now '%(%s)T' -1
1110   configtime=$(stat -c%Y /var/lib/exim4/config.autogenerated)
1111   if [[ -s /run/exim4/exim.pid ]]; then
1112     daemonpid=$(cat /run/exim4/exim.pid)
1113   fi
1114   for pid in $(pgrep -f '^/usr/sbin/exim4( |$)'); do
1115     # the daemonpid gets reexeced on HUP (service reloads), keeping its same old timestamp
1116     if [[ $pid == "$daemonpid" ]]; then
1117       continue
1118     fi
1119     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
1120     if (( configtime > now - piduptime )); then
1121       echo $pid
1122     fi
1123   done
1124 }
1125
1126 # exim tail but only watch lines from new pids
1127 etailnew() {
1128   local pid oldpids
1129   for pid in $(eoldpids); do
1130     oldpids+="$pid|"
1131   done
1132   if [[ $oldpids ]]; then
1133     etail | awk '$3 !~ /^\[('"${oldpids%|}"')\]$/'
1134   else
1135     etail
1136   fi
1137 }
1138 # exim watch as old pids go away
1139 ewatchold() {
1140   local configtime pid piduptime now tmpstr
1141   local -i count
1142   local -a oldpids
1143   count=0
1144   while true; do
1145     tmpstr=$(eoldpids)
1146     mapfile -t oldpids <<<"$tmpstr"
1147     if (( ! ${#oldpids[@]} )); then
1148       return
1149     fi
1150     # print the date every 20 iterations
1151     if (( ! count % 20 )); then
1152       date
1153     fi
1154     count+=1
1155     ps -f -p "${oldpids[*]}"
1156     sleep 1
1157   done
1158 }
1159
1160 eless() {
1161   less /var/log/exim4/mainlog
1162 }
1163 ccomp less eless
1164 eqcat() {
1165   exiqgrep -ir.\* -o 60 | while read -r i; do
1166     hlm exim -Mvc $i
1167     echo
1168     hlm exigrep $i /var/log/exim4/mainlog | cat ||:
1169   done
1170 }
1171 eqrmf() {
1172   # other ways to get the list of message ids:
1173   # exim -bp | awk 'NF == 4 {print $3}'
1174   # # this is slower 160ms, vs 60.
1175   # exipick -i
1176   exiqgrep -ir.\* | xargs exim -Mrm
1177 }
1178
1179 econfdevnew() {
1180   rm -rf /tmp/edev
1181   mkdir -p /tmp/edev/etc
1182   cp -ra /etc/exim4 /tmp/edev/etc
1183   cp -ra /etc/alias* /tmp/edev/etc
1184   find /tmp/edev/etc/exim4 -type f -execdir sed -i "s,/etc/,/tmp/edev/etc/,g" '{}' +
1185   econfdev
1186 }
1187 econfdev() {
1188   update-exim4.conf -d /tmp/edev/etc/exim4 -o /tmp/edev/e.conf
1189 }
1190
1191 # exim grep in
1192 # show important information about incoming mail in the exim log
1193 egrin() {
1194   sed -rn '/testignore|jtuttle|eximbackup/!s/^[^ ]+ ([^ ]+) [^ ]+ [^ ]+ <= ([^ ]+).*T="(.*)" from (<[^ ]+> .*$)/\1 \4\n \3/p' <${1:-/var/log/exim4/mainlog}
1195 }
1196
1197 # 2nd line is message-id:
1198 egrinid() {
1199   sed -rn '/testignore|jtuttle|eximbackup/!s/^[^ ]+ ([^ ]+) [^ ]+ [^ ]+ <= ([^ ]+).* id=([^ ]+) T="(.*)" from (<[^ ]+> .*$)/\1 \5\n \3\n \4/p' <${1:-/var/log/exim4/mainlog}
1200 }
1201 etailin() {
1202   tail -F /var/log/exim4/mainlog | sed -rn '/testignore|jtuttle|eximbackup/!s/^[^ ]+ ([^ ]+) [^ ]+ [^ ]+ <= ([^ ]+).*T="(.*)" from (<[^ ]+> .*$)/\1 \4\n \3/p'
1203 }
1204
1205
1206
1207
1208 fa() {
1209   # find array. make an array of file names found by find into $x
1210   # argument: find arguments
1211   # return: find results in an array $x
1212   while read -rd ''; do
1213     x+=("$REPLY");
1214   done < <(find "$@" -print0);
1215 }
1216
1217 faf() { # find all files. use -L to follow symlinks
1218   find "$@" -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 \) -type f 2>/dev/null
1221 }
1222
1223 # usage ffconcat FILES_TO_CONCAT OUTPUT_FILE
1224 ffconcat() {
1225   local tmpf
1226   tmpf=$(mktemp)
1227   printf "file '%s'\n" "$1" >$tmpf
1228   while (( $# > 1 )); do
1229     shift
1230     printf "file '%s'\n" "$1" >>$tmpf
1231   done
1232   # https://trac.ffmpeg.org/wiki/Concatenate
1233   ffmpeg -f concat -safe 0 -i $tmpf -c copy "$1"
1234   rm $tmpf
1235 }
1236 ffremux() {
1237   local tmpf tmpd
1238   if (( $# == 0 )); then
1239     echo ffremux error expected args >&2
1240     return 1
1241   fi
1242   tmpd="$(mktemp -d)"
1243   for f; do
1244     tmpf=$tmpd/"${f##*/}"
1245     ffmpeg -i "$f" -c:v copy -c:a copy $tmpf
1246     cat $tmpf >"$f"
1247   done
1248   rm -r $tmpd
1249 }
1250
1251
1252
1253 # absolute path of file/dir without resolving symlinks.
1254 #
1255 # Most of the time, I want this where I would normally use readlink.
1256 # This is what realpath -s does in most cases, but sometimes it
1257 # actually resolves symlinks, at least when they are in /.
1258 #
1259 # Note, if run on a dir, if the final component is relative, it won't
1260 # resolve that. Use the below fpd for that.
1261 #
1262 # note: we could make a variation of this which
1263 # assigns to a variable name using eval, so that we don't have to do
1264 # x=$(fp somepath), which might save subshell overhead and look nice,
1265 # but I'm not going to bother.
1266 fp() {
1267   local initial_oldpwd initial_pwd dir base
1268   initial_oldpwd="$OLDPWD"
1269   initial_pwd="$PWD"
1270   if [[ $1 == */* ]]; then
1271     dir="${1%/*}"
1272     base="/${1##*/}"
1273     # CDPATH because having it set will cause cd to possibly print output
1274     CDPATH='' cd "$dir"
1275     printf "%s%s\n" "$PWD" "$base"
1276     CDPATH='' cd "$initial_pwd"
1277     OLDPWD="$initial_oldpwd"
1278   else
1279     printf "%s/%s\n" "$PWD" "$1"
1280   fi
1281 }
1282 # full path of directory without resolving symlinks
1283 fpd() {
1284   local initial_oldpwd initial_pwd dir
1285   initial_oldpwd="$OLDPWD"
1286   initial_pwd="$PWD"
1287   dir="$1"
1288   CDPATH='' cd "$dir"
1289   printf "%s%s\n" "$PWD" "$base"
1290   cd "$initial_pwd"
1291   OLDPWD="$initial_oldpwd"
1292 }
1293
1294
1295 # mail related
1296 frozen() {
1297   rm -rf /tmp/frozen
1298   sudo mailq |gr frozen|awk '{print $3}' | while read -r id; do
1299     sudo exim -Mvl $id
1300     echo
1301     sudo exim -Mvh $id
1302     echo
1303     sudo exim -Mvb $id
1304     echo -e '\n\n##############################\n'
1305   done | tee -a /tmp/frozen
1306 }
1307 frozenrm() {
1308   local ids=()
1309   while read -r line; do
1310     printf '%s\n' "$line"
1311     ids+=("$(printf '%s\n' "$line" |gr frozen|awk '{print $3}')")
1312   done < <(s mailq)
1313   echo "sleeping for 2 in case you change your mind"
1314   sleep 2
1315   sudo exim -Mrm "${ids[@]}"
1316 }
1317
1318 funce() {
1319   # like -e for functions. returns on error.
1320   # at the end of the function, disable with:
1321   # trap ERR
1322   trap 'echo "${BASH_COMMAND:+BASH_COMMAND=\"$BASH_COMMAND\" }
1323 ${FUNCNAME:+FUNCNAME=\"$FUNCNAME\" }${LINENO:+LINENO=\"$LINENO\"  }\$?=$?"
1324 trap ERR
1325 return' ERR
1326 }
1327
1328 getdir () {
1329   local help="Usage: getdir [--help] PATH
1330 Output the directory of PATH, or just PATH if it is a directory."
1331   if [[ $1 == --help ]]; then
1332     echo "$help"
1333     return 0
1334   fi
1335   if [[ $# -ne 1 ]]; then
1336     echo "getdir error: expected 1 argument, got $#"
1337     return 1
1338   fi
1339   if [[ -d $1 ]]; then
1340     echo "$1"
1341   else
1342     local dir
1343     dir="$(dirname "$1")"
1344     if [[ -d $dir ]]; then
1345       echo "$dir"
1346     else
1347       echo "getdir error: directory does not exist"
1348       return 1
1349     fi
1350   fi
1351 }
1352
1353 git_empty_branch() { # start an empty git branch. carefull, it deletes untracked files.
1354   [[ $# == 1 ]] || { echo 'need a branch name!'; return 1;}
1355   local root
1356   root=$(gitroot) || return 1 # function to set gitroot
1357   builtin cd "$root"
1358   git symbolic-ref HEAD refs/heads/$1
1359   rm .git/index
1360   git clean -fdx
1361 }
1362
1363 # shellcheck disable=SC2120
1364 gitroot() {
1365   local help="Usage: gitroot [--help]
1366 Print the full path to the root of the current git repo
1367
1368 Handles being within a .git directory, unlike git rev-parse --show-toplevel,
1369 and works in older versions of git which did not have that."
1370   if [[ $1 == --help ]]; then
1371     echo "$help"
1372     return
1373   fi
1374   local p
1375   p=$(git rev-parse --git-dir) || { echo "error: not in a git repo" ; return 1; }
1376   [[ $p != /* ]] && p=$PWD
1377   echo "${p%%/.git}"
1378 }
1379
1380 g() {
1381
1382   # todo: patch emacs so it will look elsewhere. this is kinda sad:
1383   # https://emacs.stackexchange.com/questions/4253/how-to-start-emacs-with-a-custom-user-emacs-directory
1384
1385   local args gdb=false
1386
1387   if [[ $EMACSDIR ]]; then
1388     path-add "$EMACSDIR/lib-src" "$EMACSDIR/src"
1389   fi
1390
1391   if [[ $DISPLAY ]]; then
1392     args=-n
1393   fi
1394
1395   if (( $# == 0 )); then
1396     args+=" -c"
1397   fi
1398   # duplicate -c, but oh well
1399   if ! pgrep -u $EUID emacsclient; then
1400     if (( $# == 0 )) && type -p gdb &>/dev/null; then
1401       gdb=true
1402     else
1403       args+=" -c"
1404     fi
1405   fi
1406   if [[ $EMACSDIR ]]; then
1407     # Alter the path here, otherwise the nfs mount gets triggered on the
1408     # first path lookup when emacs is not being used.
1409     # shellcheck disable=SC2098 disable=SC2097 # false positive
1410     PATH="$EMACSDIR/lib-src:$EMACSDIR/src:$PATH" EHOME=$HOME HOME=$EMACSDIR m emacsclient -a "" $args "$@"
1411   else
1412     if $gdb; then
1413       # due to a bug, we cant debug from the start unless we get a new gdb
1414       # https://sourceware.org/bugzilla/show_bug.cgi?id=24454
1415       # m gdb -ex="set follow-fork-mode child" -ex=r -ex=quit --args emacs --daemon
1416       m emacsclient -a "" $args "$@"
1417       sleep 1
1418       cd "/a/opt/emacs-$(distro-name)$(distro-num)"
1419       s gdb -p "$(pgrep -f 'emacs --daemon')" -ex c
1420       cd -
1421     else
1422       m emacsclient -a "" $args "$@"
1423     fi
1424   fi
1425 }
1426
1427 # force terminal version
1428 gn() {
1429   g -n "$@"
1430 }
1431
1432 gmacs() {
1433   # quit will prompt if the program crashes.
1434   gdb -ex=r -ex=quit --args emacs "$@"; r;
1435 }
1436
1437 gdkill() {
1438   # kill the emacs daemon
1439   pk1 emacs --daemon
1440 }
1441
1442 gr() {
1443   grep -iIP --color=auto "$@" || return $?
1444 }
1445 grr() { # grep recursive
1446   # Don't return 1 on nonmatch because this is meant to be
1447   # interactive, not in a conditional.
1448   if [[ ${#@} == 1 ]]; then
1449     grep --exclude-dir='*.emacs.d' --exclude-dir='*.git' -riIP --color=auto "$@" . || [[ $? == 1 ]]
1450   else
1451     grep --exclude-dir='*.emacs.d' --exclude-dir='*.git' -riIP --color=auto "$@" || [[ $? == 1 ]]
1452   fi
1453 }
1454 ccomp grep gr grr
1455
1456 rg() { grr "$@"; }
1457 ccomp grep rg
1458
1459 # recursive everything. search for files/dirs and lines. rs = easy chars to press
1460 re() {
1461   local query
1462   query="$1"
1463   find "$@" -not \( -name .svn -prune -o -name .git -prune \
1464        -o -name .hg -prune -o -name .editor-backups -prune \
1465        -o -name .undo-tree-history -prune \) 2>/dev/null | grep -iP --color=auto "$query"
1466   grr -m 5 "$@"
1467 }
1468
1469 # horizontal row. used to break up output
1470 hr() {
1471   local blocks
1472   # 180 is long enough.
1473   blocks=██████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████████
1474   printf "%s\n" "$(tput setaf 5 2>/dev/null ||:)${blocks:0:${COLUMNS:-180}}$(tput sgr0 2>/dev/null||:)"
1475 }
1476 # highlight
1477 hl() {
1478   local col input_len=0
1479   for arg; do
1480     input_len=$((input_len + 1 + ${#arg}))
1481   done
1482   col=$((60 - input_len))
1483   printf "\e[1;97;41m%s" "$*"
1484   if (( col > 0 )); then
1485     # shellcheck disable=SC2046 # needed to work as intended. a better way would be like hr above.
1486     printf "\e[1;97;41m \e[0m%.0s" $(eval echo "{1..${col}}")
1487   fi
1488   echo
1489 }
1490 hlm() { hl "$*";  "$@"; }
1491
1492 hrcat() { local f; for f; do [[ -f $f ]] || continue; hr; echo "$f"; cat "$f"; done }
1493
1494
1495 # get latest hub and run it
1496 # main command to use:
1497 # hub pull-request --no-edit
1498 # --no-edit means to use the first commit\'s message as the pull request message.
1499 # If that fails, try doing
1500 # hub pull-request --no-edit -b UPSTREAM_OWNER:branch
1501 # where branch is usually master. it does the pr against your current branch.
1502 #
1503 # On first use, you input username/pass and it gets an oath token so you dont have to repeat
1504 # it\'s at ~/.config/hub
1505 hub() {
1506   local up uptar updir p re
1507   # example https://github.com/github/hub/releases/download/v2.14.2/hub-linux-amd64-2.14.2.tgz
1508   up=$(wget -q -O- https://api.github.com/repos/github/hub/releases/latest | jq -r .assets[].browser_download_url | grep linux-amd64)
1509   re='[[:space:]]'
1510   if [[ ! $up || $up =~ $re ]]; then
1511     echo "failed to get good update url. got: $up"
1512   fi
1513   uptar=${up##*/}
1514   updir=${uptar%.tgz}
1515   if [[ ! -e /a/opt/$updir ]]; then
1516     rm -rf /a/opt/hub-linux-amd64*
1517     wget -P /a/opt $up
1518     tar -C /a/opt -zxf /a/opt/$uptar
1519     rm -f /a/opt/$uptar
1520   fi
1521   if ! which hub &>/dev/null; then
1522     sudo /a/opt/$updir/install
1523   fi
1524
1525   # save token across computers
1526   if [[ ! -L ~/.config/hub ]]; then
1527     if [[ -e ~/.config/hub  ]]; then
1528       mv ~/.config/hub /p/c/subdir_files/.config/
1529     fi
1530     if [[ -e /p/c/subdir_files/.config/hub ]]; then
1531       conflink
1532     fi
1533   fi
1534   command hub "$@"
1535 }
1536
1537 i() { git "$@"; }
1538 ccomp git i
1539
1540 # git status:
1541 # cvs -qn update
1542
1543 # git checkout FILE
1544 # cvs update -C FILE
1545
1546 # git pull
1547 # cvs up[date]
1548
1549 # potentially useful command translation
1550 # https://fling.seas.upenn.edu/~giesen/dynamic/wordpress/equivalent-commands-for-git-svn-and-cvs/
1551
1552 # importing cvs repo into git using git-cvs package:
1553 # /f/www $ /usr/lib/git-core/git-cvsimport -C /f/www-git
1554
1555 ic() {
1556   # fast commit all
1557   git commit -am "$*"
1558 }
1559
1560 ipp() {
1561   git pull
1562   git push
1563 }
1564
1565 ifn() {
1566   local glob
1567   glob="$1"
1568   shift
1569   find -L "$@" -not \( -name .svn -prune -o -name .git -prune \
1570        -o -name .hg -prune -o -name .editor-backups -prune \
1571        -o -name .undo-tree-history -prune \) -iname "*$glob*" 2>/dev/null
1572 }
1573
1574 ifh() {
1575   # insensitive find here. args are combined into the search string.
1576   # -L = follow symlinks
1577   find -L . -not \( -name .svn -prune -o -name .git -prune \
1578        -o -name .hg -prune -o -name .editor-backups -prune \
1579        -o -name .undo-tree-history -prune \) -iname "*$**" 2>/dev/null
1580 }
1581
1582 ifd() {
1583   # insensitive find directory
1584   find -L . -type d -not \( -name .svn -prune -o -name .git -prune \
1585        -o -name .hg -prune -o -name .editor-backups -prune \
1586        -o -name .undo-tree-history -prune \) -iname "*$**" 2>/dev/null
1587 }
1588
1589
1590 ipdrop() {
1591   sudo iptables -A INPUT -s $1 -j DROP
1592 }
1593
1594
1595 istext() {
1596   grep -Il "" "$@" &>/dev/null
1597 }
1598
1599 pst() {
1600   pstree -apnA
1601 }
1602
1603 # journalctl with times in the format the --since= and --until= options accept
1604 jrt() { journalctl -e -n100000 -o short-full "$@"; }
1605 jr() { journalctl -e -n100000 "$@" ; }
1606 jrf() { journalctl -n1000 -f "$@" ; }
1607 jru() {
1608   # the invocation id is "assigned each time the unit changes from an inactive
1609   # state into an activating or active state" man systemd.exec
1610   journalctl -e --no-tail -u exim4 _SYSTEMD_INVOCATION_ID="$(systemctl show -p InvocationID --value $1)"
1611 }
1612 ccomp journalctl jr jrf jru
1613
1614
1615
1616 l() {
1617   if [[ $PWD == /[iap] ]]; then
1618     command ls -A --color=auto -I lost+found "$@"
1619   else
1620     command ls -A --color=auto "$@"
1621   fi
1622 }
1623
1624 lcn() { locate -i "*$**"; }
1625
1626 lg() { LC_COLLATE=C.UTF-8 ll --group-directories-first "$@"; }
1627
1628 lt() { ll -tr "$@"; }
1629
1630 lld() { ll -d "$@"; }
1631
1632 ccomp ls l lg lt lld ll
1633
1634 # low recursively
1635 lowr() {
1636   local f dirs i a
1637   local -a all
1638   for dirs in false true; do
1639     for f; do
1640       if [[ -d $f ]]; then
1641         all=("$f"/**)
1642         # reverse the order to rename the nested dirs first.
1643         # note: 0 element is the dir itself
1644         for ((i=${#all[@]}-1; i>=1; i--)); do
1645           a="${all[i]}"
1646           if $dirs && [[ -d $a ]]; then
1647             # e dirs low "$a" # debug
1648             low "$a"
1649           elif ! $dirs && [[ ! -d $a && -e $a ]]; then
1650             # debug
1651             # e not dirs low "$a" # debug
1652             low "$a"
1653           fi
1654         done
1655       fi
1656       # just rename all the top level args on the second pass
1657       if $dirs; then
1658         # e final dirs low "$f" # debug
1659         low "$f"
1660       fi
1661     done
1662   done
1663 }
1664
1665 low() {  # make filenames lowercase, remove bad chars
1666   local arg new dir f
1667   for arg; do
1668     arg="${arg%%+(/)}" # remove trailing slashes. assumes we have extglob on.
1669     dir="${arg%/*}"
1670     if (( ${#dir} == ${#arg} )); then
1671       dir=.
1672     fi
1673     f="${arg##*/}"
1674     new="${f,,}" # downcase
1675     # shellcheck disable=SC2031 # seems like a shellcheck bug
1676     new="${new//[^a-zA-Z0-9._-]/_}" # sub bad chars
1677     new="${new#"${new%%[[:alnum:]]*}"}" # remove leading/trailing non-alnum
1678     new="${new%"${new##*[[:alnum:]]}"}"
1679     # remove bad underscores, like __ and _._
1680     new=$(echo $new | sed -r 's/__+/_/g;s/_+([.-])|([.-])_+/\1/g')
1681     safe_rename "$dir/$f" "$dir/$new" || return 1
1682   done
1683   return 0
1684 }
1685
1686 lower() { # make first letter of filenames lowercase.
1687   local x
1688   for x in "$@"; do
1689     if [[ ${x::1} == [A-Z] ]]; then
1690       y=$(tr '[:upper:]' '[:lower:]' <<<"${x::1}")"${x:1}"
1691       safe_rename "$x" "$y" || return 1
1692     fi
1693   done
1694 }
1695
1696
1697 k() { # history search
1698   grep -iP --binary-files=text "$@" ${HISTFILE:-~/.bash_history}  | tail -n 80 || [[ $? == 1 ]];
1699 }
1700 ks() { # history search with context
1701   # args are an extended regex used by sed
1702   history | sed -nr "h;s/^\s*(\S+\s+){4}//;/$*/{g;p}" | tail -n 80 || [[ $? == 1 ]];
1703 }
1704 ksu() { # history search unique
1705   grep -P --binary-files=text "$@" ${HISTFILE:-~/.bash_history}  | uniq || [[ $? == 1 ]];
1706 }
1707
1708 # todo: id like to do maybe a daily or hourly cronjob to
1709 # check that my history file size is increasing. Ive had it
1710 # inexplicably truncated in the past.
1711 histrm() {
1712   history -n
1713   HISTTIMEFORMAT='' history | awk -v IGNORECASE=1 '{ a=$1; sub(/^ *[^ ]+ */, "") }; /'"$*"'/'
1714   read -r -p "press anything but contrl-c to delete"
1715   for entry in $(HISTTIMEFORMAT='' history | awk -v IGNORECASE=1 '{ a=$1; sub(/^ *[^ ]+ */, "") }; /'"$*"'/ { print a }' | tac); do
1716     history -d $entry
1717   done
1718   history -w
1719 }
1720
1721 # history without the date
1722 histplain() {
1723   history "$@" | cut -d' ' -f 7-
1724 }
1725
1726 ccomp grep k ks ksu histrm
1727
1728
1729 make-targets() {
1730   # show make targets, via http://stackoverflow.com/questions/3063507/list-goals-targets-in-gnu-make
1731   make -qp | awk -F':' '/^[a-zA-Z0-9][^$#\/\t=]*:([^=]|$)/ {split($1,A,/ /);for(i in A)print A[i]}'
1732 }
1733
1734 mkc() {
1735   mkdir "$1"
1736   c "$1"
1737 }
1738 ccomp mkdir mkc
1739
1740 mkct() {
1741   mkc "$(mktemp -d)"
1742 }
1743 # mkdir the last arg, cp the rest into it
1744 mkcp() {
1745   mkdir -p "${@: -1}"
1746   cp "${@:1:$#-1}" "${@: -1}"
1747 }
1748 mkmv() {
1749   mkdir -p "${@: -1}"
1750   mv "${@:1:$#-1}" "${@: -1}"
1751 }
1752
1753 mkt() { # mkdir and touch file
1754   local path="$1"
1755   mkdir -p "$(dirname "$path")"
1756   touch "$path"
1757 }
1758
1759 # shellcheck disable=SC2032
1760 mkdir() { command mkdir -p "$@"; }
1761
1762 nags() {
1763   # https://github.com/HenriWahl/Nagstamon/issues/357
1764   if ! pgrep -f /usr/bin/dunst >/dev/null; then
1765     /usr/bin/dunst &
1766   fi
1767   /usr/bin/nagstamon &
1768 }
1769
1770 # profanity screen
1771 profsrc() {
1772   screen -RD -S profanity
1773 }
1774
1775 # i dont want to wait for konsole to exit...
1776 prof() {
1777   command prof &>/dev/null &
1778 }
1779 # self chat
1780 sc() {
1781   while read -r l; do
1782     printf '\033[1A\033[K'; printf "%s\n" "$l"| ts "%F %T" | tee -a /p/self-chat.log
1783   done
1784 }
1785
1786 nmt() {
1787   # cant use s because sudo -i doesnt work for passwordless sudo command
1788   case $EUID in
1789     0)
1790       sudo nmtui-connect "$@"
1791       ;;
1792     *)
1793       nmtui-connect "$@"
1794       ;;
1795   esac
1796 }
1797
1798
1799 ngset() {
1800   if shopt nullglob >/dev/null; then
1801     ngreset=false
1802   else
1803     shopt -s nullglob
1804     ngreset=true
1805   fi
1806 }
1807 ngreset() {
1808   if $ngreset; then
1809     shopt -u nullglob
1810   fi
1811 }
1812
1813 nopanic() {
1814   # shellcheck disable=SC2024
1815   ngset
1816   for f in /var/log/exim4/paniclog /var/log/exim4/*panic; do
1817     base=${f##*/}
1818     if [[ -s $f ]]; then
1819       echo ================== $f =============
1820       s tee -a /var/log/exim4/$base-archive <$f
1821       s truncate -s0 $f
1822     fi
1823   done
1824   ngreset
1825 }
1826
1827
1828 ping() { command ping -O "$@"; }
1829 p8() { ping "$@" 8.8.8.8; }
1830 p6() { ping6 "$@" 2001:4860:4860::8888; }
1831
1832 pkx() { # package extract
1833   local pkg cached tmp f
1834   c "$(mktemp -d)"
1835   pkg=$1
1836   # shellcheck disable=SC2012
1837   cached=$(ls -t /var/cache/apt/archives/${pkg}_* | tail -n1 2>/dev/null) ||:
1838   if [[ $cached ]]; then
1839     m cp $cached .
1840   else
1841     m aptitude download $pkg || return 1
1842   fi
1843   tmp=(*); f=${tmp[0]} # only 1 expected
1844   m ex $f
1845   m rm -f $f
1846 }
1847
1848 # pgrep and kill
1849 pk1() {
1850   local tmpf
1851   local -a pids
1852   tmpf=$(pgrep -f "$*")
1853   mapfile -t pids <<<"$tmpf"
1854   case ${#pids[@]} in
1855     1)
1856       # shellcheck disable=SC2128
1857       {
1858         ps -F ${pids[0]}
1859         m kill ${pids[0]}
1860       }
1861       ;;
1862     0) echo "no pid found" ;;
1863     *)
1864       ps -F ${pids[@]}
1865       ;;
1866   esac
1867 }
1868
1869 psg () {
1870   local x y help
1871   help="Usage: psg [--help] GREP_ARGS
1872 grep ps and output in a nice format"
1873   if [[ $1 == --help ]]; then
1874     echo "$help"
1875     return
1876   fi
1877   x=$(ps -eF)
1878   # final grep is because some commands tend to have a lot of trailing spaces
1879   y=$(echo "$x" | grep -iP "$@" | grep -o '.*[^ ]') ||:
1880   if [[ $y ]]; then
1881     echo "$x" | head -n 1 || [[ $? == 141 ]]
1882     echo "$y"
1883   fi
1884 }
1885
1886 pubip() { curl -4s https://icanhazip.com; }
1887 pubip6() { curl -6s https://icanhazip.com; }
1888 whatismyip() { pubip; }
1889
1890
1891 q() { # start / launch a program in the backround and redir output to null
1892   "$@" &> /dev/null &
1893 }
1894
1895 # shellcheck disable=SC2120
1896 r() {
1897   if [[ $HISTFILE ]]; then
1898     history -a # save history
1899   fi
1900   trap ERR # this avoids a segfault
1901   exit ${1:0}
1902   # i had this redir, not sure why
1903   #  exit "$@" 2>/dev/null
1904 }
1905
1906 # scp is insecure and deprecated.
1907 scp() {
1908   rsync -Pt --inplace "$@"
1909 }
1910 ccomp rsync scp
1911
1912 randport() {
1913   # available high ports are 1024-65535,
1914   # but lets skip things that are more likely to be in use
1915   python3 <<'EOF'
1916 import secrets
1917 print(secrets.SystemRandom().randrange(10002,65500))
1918 EOF
1919 }
1920
1921 # reapply bashrc
1922 reb() {
1923   # shellcheck disable=SC1090 # expected to not follow
1924   source ~/.bashrc
1925 }
1926
1927 rl() {
1928   readlink -f "$@"
1929 }
1930 ccomp readlink rl
1931
1932 rsd() {
1933   # rsync, root is required to keep permissions right.
1934   # rsync  --archive --human-readable --verbose --itemize-changes --checksum \(-ahvic\) \
1935     #                                   --no-times --delete
1936   # basically, make an exact copy, use checksums instead of file times to be more accurate
1937   rsync -ahvic --delete "$@"
1938 }
1939 rsa() {
1940   # like rlu, but dont delete files on the target end which
1941   # do not exist on the original end.
1942   rsync -ahvic "$@"
1943 }
1944 rst() {
1945   # rl without preserving modification time.
1946   rsync -ahvic --delete --no-t "$@"
1947 }
1948 # [RSYNC_OPTS] HOST PATH
1949 rsu() {
1950   # eg. rsu -opts frodo /testpath
1951   # relative paths will expanded with readlink -f.
1952   opts=("${@:1:$#-2}") #  1 to last -2
1953   path="${*:$#}" # last
1954   host="${*:$#-1:1}" # last -1
1955   if [[ $path == .* ]]; then
1956     path=$(readlink -f $path)
1957   fi
1958   m rsync -ahvi --relative --no-implied-dirs "${opts[@]}" "$path" "root@$host:/";
1959 }
1960 ccomp rsync rsd rsa rst rsu
1961
1962 # find programs listening on a port
1963 ssp() {
1964   local port=$1
1965   # to figure out these args, i had to look at the man page from git version, as of 2022-04.
1966   s ss -lpn state listening sport = $port
1967 }
1968
1969 resolvcat() {
1970   local f
1971   if [[ $(systemctl is-active nscd ||:) != inactive ]]; then
1972     m s nscd -i hosts
1973   fi
1974   f=/etc/resolv.conf
1975   echo $f:;  ccat $f
1976   hr; s ss -lpn sport = 53
1977   if systemctl is-enabled dnsmasq &>/dev/null || [[ $(systemctl is-active dnsmasq ||:) != inactive ]]; then
1978     # this will fail is dnsmasq is failed
1979     hr; m ser status dnsmasq | cat || :
1980     f=/etc/dnsmasq.conf
1981     hr; echo $f:;  ccat $f
1982     hr; m grr '^ *(servers-file|server) *=|^ *no-resolv *$' /etc/dnsmasq.conf /etc/dnsmasq.d
1983     f=/etc/dnsmasq-servers.conf
1984     hr; echo $f:;  ccat $f
1985   fi
1986   hr
1987   echo /etc/nsswitch.conf:
1988   grep '^ *hosts:' /etc/nsswitch.conf
1989   if systemctl is-enabled systemd-resolved &>/dev/null || [[ $(systemctl is-active systemd-resolved ||:) != inactive ]]; then
1990     hr; m ser status systemd-resolved | cat || :
1991     hr; m resolvectl status | cat
1992   fi
1993
1994 }
1995 rcat() {
1996   resolvcat | less
1997 }
1998 reresolv() {
1999   if [[ $(systemctl is-active nscd ||:) != inactive ]]; then
2000     m ser stop nscd
2001     sleep .5
2002     m ser start nscd
2003     m sudo nscd -i hosts
2004   fi
2005   if [[ $(systemctl is-active dnsmasq ||:) != inactive ]]; then
2006     m sudo systemctl restart dnsmasq
2007   fi
2008   if [[ $(systemctl is-active systemd-resolved ||:) != inactive ]]; then
2009     m sudo systemctl restart systemd-resolved
2010   fi
2011   if type -P resolvectl &>/dev/null; then
2012     resolvectl flush-caches
2013   fi
2014 }
2015
2016 # add annoyingly long argument which should be the default
2017 sedi() {
2018   sed -i --follow-symlinks "$@"
2019 }
2020
2021 rmstrips() {
2022   ssh fencepost head -n 300 /gd/gnuorg/EventAndTravelInfo/rms-current-trips.txt | less
2023 }
2024
2025 urun () {
2026   umask $1
2027   shift
2028   "$@"
2029 }
2030 sudo () {
2031   command sudo "$@" || return $?
2032   DID_SUDO=true
2033 }
2034 s() {
2035   # background
2036   # I use a function because otherwise we cant use in a script,
2037   # cant assign to variable.
2038   #
2039   # note: gksudo is recommended for X apps because it does not set the
2040   # home directory to the same, and thus apps writing to ~ fuck things up
2041   # with root owned files.
2042   #
2043   if [[ $EUID != 0 || $1 == -* ]]; then
2044     # shellcheck disable=SC2034
2045     SUDOD="$PWD" command sudo -i "$@"
2046     DID_SUDO=true
2047   else
2048     "$@"
2049   fi
2050 }
2051 sb() { # sudo bash -c
2052   # use sb instead of s is for sudo redirections,
2053   # eg. sb 'echo "ok fine" > /etc/file'
2054   # shellcheck disable=SC2034
2055   local SUDOD="$PWD"
2056   sudo -i bash -c "$@"
2057 }
2058 # secret sudo
2059 se() { s urun 0077 "$@"; }
2060 ccomp sudo s sb se
2061
2062 safe_rename() { # warn and dont rename if file exists.
2063   # mv -n exists, but it\'s silent
2064   if [[ $# != 2 ]]; then
2065     echo safe_rename error: $# args, need 2 >&2
2066     return 1
2067   fi
2068   if [[ $1 != "$2" ]]; then # yes, we want to silently ignore this
2069     if [[ -e $2 || -L $2 ]]; then
2070       echo "Cannot rename $1 to $2 as it already exists."
2071     else
2072       mv -vi "$1" "$2"
2073     fi
2074   fi
2075 }
2076
2077
2078 sd() {
2079   sudo dd status=none of="$1"
2080 }
2081
2082 ser() {
2083   if type -p systemctl &>/dev/null; then
2084     s systemctl "$@"
2085   else
2086     if (( $# >= 3 )); then
2087       echo iank: ser expected 2 or less arguments
2088       return 1
2089     fi
2090     s service $2 $1
2091   fi
2092 }
2093 serstat() {
2094   systemctl -n 40 status "$@"
2095 }
2096
2097 seru() { systemctl --user "$@"; }
2098 # like restart, but do nothing if its not already started
2099 srestart() {
2100   local service=$1
2101   if [[ $(s systemctl --no-pager show -p ActiveState $service ) == ActiveState=active ]]; then
2102     systemctl restart $service
2103   fi
2104 }
2105
2106 setini() { # set a value in a .ini style file
2107   key="$1" value="$2" section="$3" file="$4"
2108   if [[ -s $file ]]; then
2109     sed -ri -f - "$file" <<EOF
2110 # remove existing keys
2111 / *\[$section\]/,/^ *\[[^]]+\]/{/^\s*${key}[[:space:]=]/d}
2112 # add key
2113 /^\s*\[$section\]/a $key=$value
2114 # from section to eof, do nothing
2115 /^\s*\[$section\]/,\$b
2116 # on the last line, if we haven't found section yet, add section and key
2117 \$a [$section]\\
2118 $key=$value
2119 EOF
2120   else
2121     cat >"$file" <<EOF
2122 [$section]
2123 $key=$value
2124 EOF
2125   fi
2126 }
2127
2128 sgo() { # service go
2129   service=$1
2130   ser restart $service || return 1
2131   if type -p systemctl &>/dev/null; then
2132     ser enable $service
2133   fi
2134 }
2135 soff () {
2136   for service; do
2137     # ignore services that dont exist
2138     if systemctl cat $service &>/dev/null; then
2139       ser stop $service;
2140       ser disable $service
2141     fi
2142   done
2143 }
2144
2145 sgu() {
2146   systemctl list-unit-files | rg "$@"
2147 }
2148
2149
2150 sk() {
2151   # disable a warning with:
2152   # shellcheck disable=SC2206 # reasoning
2153
2154   # see bash-template/style-guide.md for justifications
2155
2156   local quotes others
2157   quotes=2048,2068,2086,2206,2254
2158   others=2029,2032,2033,2054,2164,
2159   shellcheck -W 999 -x -e $quotes,$others "$@" || return $?
2160 }
2161 # sk with quotes. For checking scripts that we expect to take untrusted
2162 # input in order to verify we quoted vars.
2163 skq() {
2164   local others
2165   others=2029,2033,2054,2164
2166   shellcheck -W 999 -x -e $others "$@" || return $?
2167 }
2168
2169 skgit() {
2170   local f
2171   for f in $(i s | awk '$1 == "modified:" {print $2}'); do
2172     if [[ $(head -n1 "$f") == '#!/bin/bash'* ]]; then
2173       sk $f ||:
2174     fi
2175   done
2176 }
2177
2178 # sl: ssh, but firsh rsync our bashrc and related files to a special
2179 # directory on the remote host if needed.
2180
2181 # Some environment variables and files need to be setup for this to work
2182 # (mine are set at the beginning of this file)
2183
2184 # SL_FILES_DIR: Environment variable. Path to folder which should at
2185 # least have a .bashrc file or symlink. This dir will be rsynced to ~ on
2186 # remote hosts (top level symlinks are resolved) unless the host already
2187 # has a $SL_FILES_DIR/.bashrc. In that case, we assume it is a host you
2188 # control and sync files to separately and already has the ~/.bashrc you
2189 # want. The remote bash will also take its .inputrc config from this
2190 # folder (default of not existing is fine). Mine looks like this:
2191 # https://iankelling.org/git/?p=distro-setup;a=tree;f=sl/.iank
2192
2193 # SL_INFO_DIR: Environment variable. This folder stores info about what
2194 # we detected on the remote system and when we last synced. It will be created
2195 # if it does not exist. Sometimes you may want to forget about a
2196 # remote system, you can use sl --rsync, or the function for that slr
2197 # below.
2198
2199 # SL_TEST_CMD: Env var. Meant to be used to vary the files synced
2200 # depending on the remote host. Run this string on the remote host the
2201 # first time sl is run (or if we run slr). The result is passed to
2202 # SL_TEST_HOOK. For example,
2203 # export SL_TEST_CMD=". /etc/os-release ; echo \${VERSION//[^a-zA-Z0-9]/}"
2204
2205 # SL_TEST_HOOK: Env var. It is run as $SL_TEST_HOOK. This can set
2206 # $SL_FILES_DIR to vary the files synced.
2207
2208 # SL_RSYNC_ARGS: Env var. String of arguments passed to rsync. For
2209 # example to exclude files within a directory. Note, excluded
2210 # files wont be deleted on rsync, you can add --delete-excluded
2211 # to the rsync command if that is desired.
2212
2213 # SL_SSH_ARGS: Env var. Default arguments passed to ssh.
2214
2215 # For when ~/.bashrc is already customized on the remote server, you
2216 # might find it problematic that ~/.bashrc is sourced for ALL ssh
2217 # commands, even in scripts. This paragraph is all about that. bash
2218 # scripts dont source ~/.bashrc, but call ssh in scripts and you get
2219 # ~/.bashrc. You dont want this. .bashrc is meant for interactive shells
2220 # and if you customize it, probably has bugs from time to time. This is
2221 # bad. Here's how I fix it. I have a special condition to "return" in my
2222 # .bashrc for noninteractive ssh shells (copy that code). Then use this
2223 # function or similar that passes LC_USEBASHRC=t when sshing and I want
2224 # my bashrc. Also, I don't keep most of my bashrc in .bashrc, i source a
2225 # separate file because even if I return early on, the whole file gets
2226 # parsed which can fail if there is a syntax error.
2227 sl() {
2228   # Background on LC_USEBASHRC var (no need to read if you just want to
2229   # use this function): env variables sent across ssh are strictly
2230   # limited, but we get LC_* at least in debian based machines, so we
2231   # just make that * be something no normal program would use. Note, on
2232   # hosts that dont allow LC_* I start an inner shell with LC_USEBASHRC
2233   # set, and the inner shell also allows running a nondefault
2234   # .bashrc. This means the outer shell still ran the default .bashrc,
2235   # but that is the best we can do.
2236
2237   local now args remote dorsync haveinfo tmpa sshinfo tmp tmp2 type info_sec force_rsync \
2238         sync_dirname testcmd extra_info testbool files_sec sl_test_cmd sl_test_hook
2239   declare -a args tmpa
2240
2241   args=($SL_SSH_ARGS)
2242
2243   # ssh [-1246Antivivisectionist] [-b bind_address] [-c cipher_spec] [-D [bind_address:]port]
2244   # [-E log_file] [-e escape_char] [-F configfile] [-I pkcs11] [-i identity_file] [-L address]
2245   # [-l login_name] [-m mac_spec] [-O ctl_cmd] [-o option] [-p port] [-Q query_option]
2246   # [-R address] [-S ctl_path] [-W host:port] [-w local_tun[:remote_tun]] [user@]hostname
2247   # [command]
2248
2249   # ssh [-46AaCfGgKkMNnqsTtVvXxYy] [-b bind_address] [-c cipher_spec]
2250   # [-D [bind_address:]port] [-E log_file] [-e escape_char]
2251   # [-F configfile] [-I pkcs11] [-i identity_file]
2252   # [-J [user@]host[:port]] [-L address] [-l login_name] [-m mac_spec]
2253   # [-O ctl_cmd] [-o option] [-p port] [-Q query_option] [-R address]
2254   # [-S ctl_path] [-W host:port] [-w local_tun[:remote_tun]]
2255
2256   force_rsync=false
2257   if [[ $1 == --rsync ]]; then
2258     force_rsync=true
2259     shift
2260   fi
2261   # shellcheck disable=SC2153 # intentional
2262   sl_test_cmd=$SL_TEST_CMD
2263   # shellcheck disable=SC2153 # intentional
2264   sl_test_hook=$SL_TEST_HOOK
2265   # shellcheck disable=SC2153 # intentional
2266   sl_rsync_args=$SL_RSYNC_ARGS
2267   while [[ $1 ]]; do
2268     case "$1" in
2269       --rsync)
2270         force_rsync=true
2271         ;;
2272       --sl-test-cmd)
2273         sl_test_cmd="$2"
2274         shift
2275         ;;
2276       --sl-test-hook)
2277         sl_test_hook="$2"
2278         shift
2279         ;;
2280       --sl-rsync-args)
2281         sl_rsync_args="$2"
2282         shift
2283         ;;
2284       *)
2285         break
2286         ;;
2287     esac
2288     shift
2289   done
2290
2291   while [[ $1 ]]; do
2292     case "$1" in
2293       # note we dont support things like -4oOption
2294       -[46AaCfGgKkMNnqsTtVvXxYy]*)
2295         args+=("$1"); shift
2296         ;;
2297       -[bcDEeFIiJLlmOopQRSWw]*)
2298         # -oOption etc is valid
2299         if (( ${#1} >= 3 )); then
2300           args+=("$1"); shift
2301         else
2302           args+=("$1" "$2"); shift 2
2303         fi
2304         ;;
2305       *)
2306         break
2307         ;;
2308     esac
2309   done
2310   remote="$1"
2311   if [[ ! $remote ]]; then
2312     echo $0: error hostname required >&2
2313     return 1
2314   fi
2315   shift
2316
2317   if [[ ! $SL_INFO_DIR  ]]; then
2318     echo 'error: missing SL_INFO_DIR env var' >&2
2319     return 1
2320   fi
2321
2322   dorsync=false
2323   haveinfo=false
2324   tmpa=($SL_INFO_DIR/???????????"$remote")
2325   sshinfo=${tmpa[0]}
2326   if [[ -e $sshinfo ]]; then
2327     if $force_rsync; then
2328       rm -f $sshinfo
2329     else
2330       haveinfo=true
2331     fi
2332   fi
2333   if $haveinfo; then
2334     tmp=${sshinfo[0]##*/}
2335     tmp2=${tmp::11}
2336     type=${tmp2: -1}
2337     extra_info=$(cat $sshinfo)
2338   else
2339     # we test for string to know ssh succeeded
2340     testbool="test -e $SL_FILES_DIR/.bashrc -a -L .bashrc -a -v LC_USEBASHRC"
2341     testcmd="if $testbool; then printf y; else printf n; fi"
2342     if ! tmp=$(LC_USEBASHRC=y command ssh "${args[@]}" "$remote" "$testcmd; $sl_test_cmd"); then
2343       echo failed sl test. doing plain ssh -v
2344       command ssh -v "${args[@]}" "$remote"
2345     fi
2346     if [[ $tmp == y* ]]; then
2347       type=a
2348     else
2349       dorsync=true
2350       type=b
2351     fi
2352     extra_info="${tmp:1}"
2353   fi
2354   if [[ $sl_test_hook ]]; then
2355     RSYNC_RSH="ssh ${args[*]}" $sl_test_hook "$extra_info" "$remote"
2356   fi
2357
2358   if $haveinfo && [[ $type == b ]]; then
2359     info_sec=${tmp::10}
2360     read -r files_sec _ < <(find -L $SL_FILES_DIR -printf "%T@ %p\n" | sort -nr || [[ $? == 141 || ${PIPESTATUS[0]} == 32 ]]  )
2361     files_sec=${files_sec%%.*}
2362     if (( files_sec > info_sec )); then
2363       dorsync=true
2364       rm -f $sshinfo
2365     fi
2366   fi
2367
2368   sync_dirname=${SL_FILES_DIR##*/}
2369
2370   if [[ ! $SL_FILES_DIR  ]]; then
2371     echo 'error: missing SL_FILES_DIR env var' >&2
2372     return 1
2373   fi
2374
2375   if $dorsync; then
2376     RSYNC_RSH="ssh ${args[*]}" m rsync -rptL --delete $sl_rsync_args $SL_FILES_DIR "$remote":
2377   fi
2378   if $dorsync || ! $haveinfo; then
2379     sshinfo=$SL_INFO_DIR/$EPOCHSECONDS$type"$remote"
2380     [[ -e $SL_INFO_DIR ]] || mkdir -p $SL_INFO_DIR
2381     printf "%s\n" "$extra_info" >$sshinfo
2382     chmod 666 $sshinfo
2383   fi
2384   if [[ $type == b ]]; then
2385     if (( ${#@} )); then
2386       # Theres a couple ways to pass arguments, im not sure whats best,
2387       # but relying on bash 4.4+ escape quoting seems most reliable.
2388       command ssh "${args[@]}" "$remote" \
2389               LC_USEBASHRC=t bash -c '.\ '$sync_dirname'/.bashrc\;"\"\$@\""' bash ${@@Q}
2390     elif [[ ! -t 0 ]]; then
2391       # This case is when commands are being piped to ssh.
2392       # Normally, no bashrc gets sourced.
2393       # But, since we are doing all this, lets source it because we can.
2394       cat <(echo . $sync_dirname/.bashrc) - | command ssh "${args[@]}" "$remote" LC_USEBASHRC=t bash
2395     else
2396       command ssh -t "${args[@]}" "$remote" LC_USEBASHRC=t INPUTRC=$sync_dirname/.inputrc bash --rcfile $sync_dirname/.bashrc
2397     fi
2398   else
2399     if [[ -t 0 ]]; then
2400       LC_USEBASHRC=t command ssh "${args[@]}" "$remote" ${@@Q}
2401     else
2402       command ssh "${args[@]}" "$remote" LC_USEBASHRC=t bash
2403     fi
2404   fi
2405   # this function inspired from https://github.com/Russell91/sshrc
2406 }
2407
2408 slr() {
2409   sl --rsync "$@"
2410 }
2411 sss() { # ssh solo
2412   sl -oControlMaster=no -oControlPath=/ "$@"
2413 }
2414 # kill off old shared socket then ssh
2415 ssk() {
2416   m ssh -O exit "$@" || [[ $? == 255 ]]
2417   m sl "$@"
2418 }
2419 ccomp ssh sl slr sss ssk
2420 # plain ssh
2421 ssh() {
2422   if [[ $TERM == alacritty || $TERM == xterm-kitty ]]; then
2423     TERM=xterm-256color LC_USEBASHRC=t command ssh "$@"
2424   else
2425     LC_USEBASHRC=t command ssh "$@"
2426   fi
2427 }
2428
2429
2430 slog() {
2431   # log with script. timing is $1.t and script is $1.s
2432   # -l to save to ~/typescripts/
2433   # -t to add a timestamp to the filenames
2434   local logdir do_stamp arg_base
2435   (( $# >= 1 )) || { echo "arguments wrong"; return 1; }
2436   logdir="/a/dt/"
2437   do_stamp=false
2438   while getopts "lt" option
2439   do
2440     case $option in
2441       l) arg_base=$logdir ;;
2442       t) do_stamp=true ;;
2443       *)
2444         echo error: bad option
2445         return 1
2446         ;;
2447     esac
2448   done
2449   shift $((OPTIND - 1))
2450   arg_base+=$1
2451   [[ -e $logdir ]] || mkdir -p $logdir
2452   $do_stamp && arg_base+=$(date +%F.%T%z)
2453   script -t $arg_base.s 2> $arg_base.t
2454 }
2455 splay() { # script replay
2456   #logRoot="$HOME/typescripts/"
2457   #scriptreplay "$logRoot$1.t" "$logRoot$1.s"
2458   scriptreplay "$1.t" "$1.s"
2459 }
2460
2461 sr() {
2462   # sudo redo. be aware, this command may not work right on strange distros or earlier software
2463   if [[ $# == 0 ]]; then
2464     sudo -E bash -c -l "$(history -p '!!')"
2465   else
2466     echo this command redos last history item. no argument is accepted
2467   fi
2468 }
2469
2470 srm () {
2471   # with -ll, less secure but faster.
2472   command srm -ll "$@"
2473 }
2474
2475 srun() {
2476   scp $2 $1:/tmp
2477   ssh $1 "/tmp/${2##*/}" "$(printf "%q\n" "${@:2}")"
2478 }
2479
2480
2481 swap() {
2482   local tmp
2483   tmp=$(mktemp)
2484   mv $1 $tmp
2485   mv $2 $1
2486   mv $tmp $2
2487 }
2488
2489 tclock() { # terminal clock
2490   local x
2491   clear
2492   date +%l:%_M
2493   len=60
2494   # this goes to full width
2495   #len=${1:-$((COLUMNS -7))}
2496   x=1
2497   while true; do
2498     if (( x == len )); then
2499       end=true
2500       d="$(date +%l:%_M)   "
2501     else
2502       end=false
2503       d=$(date +%l:%M:%_S)
2504     fi
2505     echo -en "\r"
2506     echo -n "$d"
2507     for ((i=0; i<x; i++)); do
2508       if (( i % 6 )); then
2509         echo -n _
2510       else
2511         echo -n .
2512       fi
2513     done
2514     if $end; then
2515       echo
2516       x=1
2517     else
2518       x=$((x+1))
2519     fi
2520     sleep 5
2521   done
2522 }
2523
2524
2525 te() {
2526   # test existence / exists
2527   local ret=0
2528   for x in "$@"; do
2529     [[ -e "$x" || -L "$x" ]] || ret=1
2530   done
2531   return $ret
2532 }
2533
2534 psoff() {
2535   # normally, i would just execute these commands in the function.
2536   # however, DEBUG is not inherited, so we need to run it outside a function.
2537   # And we want to run set -x afterwards to avoid spam, so we cram everything
2538   # in here, and then it will run after this function is done.
2539   # # set as array to satisfy shellcheck, but it is equivalent to setting it as non-array
2540   PROMPT_COMMAND=('trap DEBUG; unset PROMPT_COMMAND; PS1="\w \$ "')
2541 }
2542 pson() {
2543   PROMPT_COMMAND=(prompt-command)
2544   if [[ $TERM == *(screen*|xterm*|rxvt*) ]]; then
2545     trap 'settitle "$BASH_COMMAND"' DEBUG
2546   fi
2547 }
2548
2549 # prometheus node curl
2550 pnodecurl() {
2551   local host
2552   host=${1:-127.0.0.1}
2553   s curl --cert-type PEM --cert /etc/prometheus/ssl/prometheus_cert.pem --key /etc/prometheus/ssl/prometheus_key.pem --cacert /etc/prometheus/ssl/prom_node_cert.pem --resolve prom_node:9100:$host -v https://prom_node:9100/metrics
2554 }
2555
2556 tx() { # toggle set -x, and the prompt so it doesnt spam
2557   if [[ $- == *x* ]]; then
2558     set +x
2559     pson
2560   else
2561     psoff
2562   fi
2563 }
2564
2565 psnetns() {
2566   # show all processes in the network namespace $1.
2567   # blank entries appear to be subprocesses/threads
2568   local x netns
2569   netns=$1
2570   ps -w | head -n 1
2571   sudo find -L /proc/[1-9]*/task/*/ns/net -samefile /run/netns/$netns | cut -d/ -f5 | \
2572     while read -r l; do
2573       x=$(ps -w --no-headers -p $l);
2574       if [[ $x ]]; then echo "$x"; else echo $l; fi;
2575     done
2576 }
2577 nonet() {
2578   if ! s ip netns list | grep -Fx nonet &>/dev/null; then
2579     s ip netns add nonet
2580   fi
2581   sudo -E env /sbin/ip netns exec nonet sudo -E -u iank /bin/bash
2582 }
2583
2584 m() { printf "%s\n" "$*";  "$@"; }
2585
2586 # update file. note: duplicated in mail-setup.
2587 # updates $ur u result to true or false
2588 # updates $reload to true if file updated is in /etc/systemd/system
2589 u() {
2590   local tmp tmpdir dest="$1"
2591   local base="${dest##*/}"
2592   local dir="${dest%/*}"
2593   if [[ $dir != "$base" ]]; then
2594     # dest has a directory component
2595     mkdir -p "$dir"
2596   fi
2597   # shellcheck disable=SC2034 # see comment at top of function
2598   ur=false # u result
2599   tmpdir="$(mktemp -d)"
2600   cat >$tmpdir/"$base"
2601   tmp=$(rsync -ic $tmpdir/"$base" "$dest")
2602   if [[ $tmp ]]; then
2603     printf "%s\n" "$tmp"
2604     # shellcheck disable=SC2034 # see comment at top of function
2605     ur=true
2606     if [[ $dest == /etc/systemd/system/* ]]; then
2607       # shellcheck disable=SC2034 # see comment at top of function
2608       reload=true
2609     fi
2610   fi
2611   rm -rf $tmpdir
2612 }
2613
2614
2615 uptime() {
2616   if type -p uprecords &>/dev/null; then
2617     uprecords -B
2618   else
2619     command uptime
2620   fi
2621 }
2622
2623 virshrm() {
2624   for x in "$@"; do virsh destroy "$x"; virsh undefine "$x"; done
2625 }
2626
2627 vm-set-listen(){
2628   local t
2629   t=$(mktemp)
2630   local vm=$1
2631   local ip=$2
2632   sudo virsh dumpxml $vm | sed -r "s/(<listen.*address=')([^']+)/\1$ip/" | \
2633     sed -r "s/listen='[^']+/listen='$ip/"> $t
2634   sudo virsh undefine $vm
2635   sudo virsh define $t
2636 }
2637
2638
2639 vmshare() {
2640   vm-set-listen $1 0.0.0.0
2641 }
2642
2643
2644 vmunshare() {
2645   vm-set-listen $1 127.0.0.1
2646 }
2647
2648 myiwscan() {
2649   # find input, copy to pattern space, when we find the first field, print the copy in different order without newlines.
2650   # instead of using labels, we could just match a line and group, eg: /signal:/,{s/signal:(.*)/\1/h}
2651   sudo iw dev wls1 scan | sed -rn  "
2652 s/^\Wcapability: (.*)/\1/;Ta;h;b
2653 :a;s/^\Wsignal: -([^.]+).*/\1/;Tb;H;b
2654 # padded to min width of 20
2655 :b;s/\WSSID: (.*)/\1                    /;T;s/^(.{20}(.*[^ ])?) */\1/;H;g;s/(.*)\n(.*)\n(.*)/\2 \3  \1/gp;b
2656 "|sort -r
2657 }
2658
2659 # Run script by copying it to a temporary location first,
2660 # and changing directory, so we don't have any open
2661 # directories or files that could cause problems when
2662 # remounting.
2663 zr() {
2664   local tmp
2665   tmp=$(type -p "$1")
2666   if [[ $tmp ]]; then
2667     cd "$(mktemp -d)"
2668     cp -a "$tmp" .
2669     shift
2670     ./"${tmp##*/}" "$@"
2671   else
2672     "$@"
2673   fi
2674 }
2675
2676
2677 # * spark
2678 # spark 1 5 22 13 53
2679 #   # => ▁▁▃▂▇
2680
2681 # The MIT License
2682 # Copyright (c) Zach Holman, https://zachholman.com
2683 # https://github.com/holman/spark
2684
2685 # As of 2022-10-28, I reviewed github forks that had several newer
2686 # commits, none had anything interesting. I did a little refactoring
2687 # mostly to fix emacs indent bug.
2688
2689 # Generates sparklines.
2690 _spark_echo()
2691 {
2692   if [ "X$1" = "X-n" ]; then
2693     shift
2694     printf "%s" "$*"
2695   else
2696     printf "%s\n" "$*"
2697   fi
2698 }
2699
2700
2701 spark()
2702 {
2703   local f tc
2704   local n numbers=
2705
2706   # find min/max values
2707   local min=0xffffffff max=0
2708
2709   for n in ${@//,/ }
2710   do
2711     # on Linux (or with bash4) we could use `printf %.0f $n` here to
2712     # round the number but that doesn't work on OS X (bash3) nor does
2713     # `awk '{printf "%.0f",$1}' <<< $n` work, so just cut it off
2714     n=${n%.*}
2715     (( n < min )) && min=$n
2716     (( n > max )) && max=$n
2717     numbers=$numbers${numbers:+ }$n
2718   done
2719
2720   # print ticks
2721   local ticks=(▁ ▂ ▃ ▄ ▅ ▆ ▇ █)
2722
2723   # use a high tick if data is constant
2724   (( min == max )) && ticks=(▅ ▆)
2725
2726   tc=${#ticks[@]}
2727   f=$(( ( (max-min) <<8)/( tc - 1) ))
2728   (( f < 1 )) && f=1
2729
2730   for n in $numbers
2731   do
2732     _spark_echo -n ${ticks[$(( (((n-min)<<8)/f) ))]}
2733   done
2734   _spark_echo
2735 }
2736
2737 pdfwc() { local f; for f; do echo "$f" "$(pdfinfo "$f" | awk '/^Pages:/ {print $2}')"; done }
2738
2739
2740 # nvm install script appended this to my .bashrc. I dont want to run it all the time,
2741 # so put it in a function.
2742 nvm-init() {
2743   export NVM_DIR="$HOME/.nvm"
2744   # shellcheck disable=SC1091 # may not exist, & third party
2745   [ -s "$NVM_DIR/nvm.sh" ] && source "$NVM_DIR/nvm.sh"  # This loads nvm
2746   # shellcheck disable=SC1091 # may not exist, & third party
2747   [ -s "$NVM_DIR/bash_completion" ] && source "$NVM_DIR/bash_completion"  # This loads nvm bash_completion
2748 }
2749
2750
2751 leap-year() {
2752   if date -d 'february 29' &>/dev/null; then
2753     year_days=366
2754   else
2755     year_days=365
2756   fi
2757   echo $year_days
2758 }
2759
2760 # on-battery
2761 on-bat() {
2762   if [[ -e /sys/class/power_supply/AC/online && $(</sys/class/power_supply/AC/online) == 0 ]]; then
2763     return 1
2764   fi
2765 }
2766
2767 # make vim work with my light colortheme terminal.
2768 vim() {
2769   if [[ -e ~/.vimrc ]]; then
2770     command vim "$@"
2771   else
2772     command vim -c ':colorscheme peachpuff' "$@"
2773   fi
2774 }
2775
2776 # ls count. usage: pass a directory, get the number of files.
2777 # https://unix.stackexchange.com/questions/90106/whats-the-most-resource-efficient-way-to-count-how-many-files-are-in-a-director
2778 lsc() {
2779   ls -Uq "$@"|wc -l
2780 }
2781
2782 # run then notify. close notification after the next prompt.
2783 rn() {
2784   "$@"
2785   dunstify -u critical "$*"
2786   _psrun=(dunstctl close-all)
2787 }
2788 n() {
2789   dunstify -u critical n
2790 }
2791
2792 catnew() {
2793   local dir file
2794   dir="$1"
2795   inotifywait -m "$dir" -e create -e moved_to | while read -r _ _ file; do
2796     hr
2797     cat "$dir/$file"
2798   done
2799 }
2800 # cat mail
2801 cm() {
2802   catnew /m/md/$1/new
2803 }
2804
2805
2806 # * misc stuff
2807
2808
2809 if $use_color && type -p tput &>/dev/null; then
2810   term_bold="$(tput bold)"
2811   term_red="$(tput setaf 1)"
2812   term_green="$(tput setaf 2)"
2813   # shellcheck disable=SC2034 # expected
2814   term_yellow="$(tput setaf 3)"
2815   term_purple="$(tput setaf 5)"
2816   term_nocolor="$(tput sgr0)" # no font attributes
2817
2818   # unused so far. commented for shellcheck
2819   # term_underl="$(tput smul)"
2820   # term_blue="$(tput setaf 4)"
2821   # term_cyan="$(tput setaf 6)"
2822 fi
2823 # Try to keep environment pollution down, EPA loves us.
2824 unset safe_term match_lhs use_color
2825
2826 # * prompt
2827
2828
2829 if [[ $- == *i* ]]; then
2830
2831
2832   case $HOSTNAME in
2833     bk|je|li)
2834       if [[ $EUID == 1000 ]]; then
2835         system-status _ ||:
2836       fi
2837       ;;
2838   esac
2839
2840
2841   # this needs to come before next ps1 stuff
2842   # this stuff needs bash 4, feb 2009,
2843   # old enough to no longer condition on $BASH_VERSION anymore
2844   shopt -s autocd
2845   shopt -s dirspell
2846   PS1='\w'
2847   if [[ $- == *i* ]]  && [[ ! $LC_INSIDE_EMACS ]]; then
2848     PROMPT_DIRTRIM=2
2849     bind -m vi-command B:shell-backward-word
2850     bind -m vi-command W:shell-forward-word
2851   fi
2852
2853   if [[ $SSH_CLIENT || $SUDO_USER ]]; then
2854     unset PROMPT_DIRTRIM
2855     PS1="\h:$PS1"
2856   fi
2857
2858   # emacs terminal has problems if this runs slowly,
2859   # so I've thrown a bunch of things at the wall to speed it up.
2860   prompt-command() {
2861     local return=$? # this MUST COME FIRST
2862     local ps_char ps_color
2863     unset IFS
2864
2865     if [[ $HISTFILE ]]; then
2866       history -a # save history
2867     fi
2868
2869     case $return in
2870       0) ps_color="$term_purple"
2871          ps_char='\$'
2872          ;;
2873       *) ps_color="$term_green"
2874          ps_char="$return \\$"
2875          ;;
2876     esac
2877     if [[ ! -O . ]]; then # not owner
2878       if [[ -w . ]]; then # writable
2879         ps_color="$term_bold$term_red"
2880       else
2881         ps_color="$term_bold$term_green"
2882       fi
2883     fi
2884
2885     # faster than sourceing the file im guessing
2886     if [[ -e /dev/shm/iank-status && ! -e /tmp/quiet-status ]]; then
2887       eval "$(< /dev/shm/iank-status)"
2888     fi
2889     if [[ $MAIL_HOST && $MAIL_HOST != "$HOSTNAME" ]]; then
2890       ps_char="@ $ps_char"
2891     fi
2892     jobs_char=
2893     if [[ $(jobs -p) ]]; then
2894       jobs_char='j\j '
2895     fi
2896
2897
2898     # allow a function to specify a command to run after we run the next
2899     # command. Use case: a function makes a persistent notification. If
2900     # we happen to be using that terminal, we can just keep working by
2901     # entering our next command, even a noop in order to dismiss the
2902     # notification, instead of having to explicitly dismiss it.
2903     if [[ ${_psrun[@]} ]]; then
2904       if (( _psrun_count >= 1 )); then
2905
2906         "${_psrun[@]}" ||:
2907         _psrun_count=0
2908         unset _psrun
2909       else
2910         _psrun_count=$(( _psrun_count + 1 ))
2911       fi
2912     else
2913       _psrun_count=0
2914     fi
2915
2916     # We could test if sudo is active with sudo -nv
2917     # but then we get an email and log of lots of failed sudo commands.
2918     # We could turn those off, but seems better not to.
2919     if [[ $EUID != 0 ]] && [[ $DID_SUDO ]]; then
2920       psudo="\[$term_bold$term_red\]s\[$term_nocolor\] "
2921     fi
2922     if [[ ! $HISTFILE ]]; then
2923       ps_char="NOHIST $ps_char"
2924     fi
2925     PS1="${PS1%"${PS1#*[wW]}"} $jobs_char$psudo\[$ps_color\]$ps_char\[$term_nocolor\] "
2926
2927     # copy of what is automatically added by guix.
2928     # adds [env] to PS1 if GUIX_ENVIRONMENT is set and PS1 contains '$';
2929     if [ -n "$GUIX_ENVIRONMENT" ]; then
2930       if [[ $PS1 =~ (.*)"\\$" ]]; then
2931         PS1="${BASH_REMATCH[1]} [env]\\\$ "
2932       fi
2933     fi
2934
2935
2936     # set titlebar. instead, using more advanced
2937     # titelbar below
2938     #echo -ne "$_title_escape $HOSTNAME ${PWD/#$HOME/~}  \007"
2939   }
2940   PROMPT_COMMAND=(prompt-command)
2941
2942   if [[ $TERM == screen* ]]; then
2943     _title_escape="\033]..2;"
2944   else
2945     # somme sites recommend this, i dunno what the diff is.
2946     #_title_escape="\033]30;"
2947     _title_escape="\033]0;"
2948   fi
2949
2950   # make the titlebar be the last command and the current directory.
2951   settitle () {
2952
2953
2954     # These are some checks to help ensure we dont set the title at
2955     # times that the debug trap is running other than the case we
2956     # want. Some of them might not be needed.
2957     if (( ${#FUNCNAME[@]} != 1 || ${#BASH_ARGC[@]} != 2 || BASH_SUBSHELL != 0 )); then
2958       return 0
2959     fi
2960     if [[ $1 == prompt-command ]]; then
2961       return 0
2962     fi
2963     echo -ne "$_title_escape ${PWD/#$HOME/~} "
2964     printf "%s" "$*"
2965     echo -ne "\007"
2966   }
2967
2968   # note, this wont work:
2969   # x=$(mktemp); cp a $x
2970   # I havnt figured out why, bigger fish to fry.
2971   #
2972   # for titlebar.
2973   # condition from the screen man page i think.
2974   # note: duplicated in tx()
2975   if [[ $TERM == *(screen*|xterm*|rxvt*) ]]; then
2976     trap 'settitle "$BASH_COMMAND"' DEBUG
2977   else
2978     trap DEBUG
2979   fi
2980
2981 fi
2982
2983 # * stuff that makes sense to be at the end
2984
2985
2986 # best practice
2987 unset IFS
2988
2989 if [[ -s "$HOME/.rvm/scripts/rvm" ]]; then
2990   # shellcheck disable=SC1091
2991   source "$HOME/.rvm/scripts/rvm"
2992 fi
2993
2994 # I had this idea to start a bash shell which would run an initial
2995 # command passed through this env variable, then continue on
2996 # interactively. But the use case I had in mind went away.
2997 #
2998 # if [[ $MY_INIT_CMD ]]; then
2999 #   "${MY_INIT_CMD[@]}"
3000 #   unset MY_INIT_CMD
3001 # fi
3002
3003 # ensure no bad programs appending to this file will have an affect
3004 return 0