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