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