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 # note, to catch errors in functions but not outside, do:
   7 # set -E -o pipefail
   8 # trap return ERR
   9 # trap 'trap ERR' RETURN
  10
  11
  12 # * settings
  13
  14 CDPATH=.
  15
  16 set -o pipefail
  17
  18 # remove all aliases. aliases provided by the system tend to get in the way,
  19 # for example, error happens if I try to define a function the same name as an alias
  20 unalias -a
  21
  22 # remove gnome keyring warning messages
  23 # there is probably a more proper way, but I didnt find any easily on google
  24 # now using xfce+xmonad instead of vanilla xmonad, so disabling this
  25 #unset GNOME_KEYRING_CONTROL
  26
  27 # use extra globing features.
  28 shopt -s extglob
  29 # include .files when globbing, but ignore files name . and ..
  30 # setting this also sets dotglob.
  31 export GLOBIGNORE="*/.:*/.."
  32
  33 # broken with bash_completion package. Saw a bug for this once. dont anymore.
  34 # still broken in wheezy
  35 # still buggered in latest stable from the web, version 2.1
  36 # perhaps its fixed in newer git version, which fails to make for me
  37 # this note is from 6-2014.
  38 # still broken in flidas.
  39 #shopt -s nullglob
  40
  41 # make tab on an empty line do nothing
  42 shopt -s no_empty_cmd_completion
  43
  44 # fix spelling errors for cd, only in interactive shell
  45 shopt -s cdspell
  46 # append history instead of overwritting it
  47 shopt -s histappend
  48 # for compatibility, per gentoo/debian bashrc
  49 shopt -s checkwinsize
  50 # attempt to save multiline single commands as single history entries.
  51 shopt -s cmdhist
  52 # enable **
  53 shopt -s globstar
  54
  55
  56 # inside emacs fixes
  57 if [[ $RLC_INSIDE_EMACS ]]; then
  58   # EMACS is used by bash on startup, but we dont need it anymore.
  59   # plus I hit a bug in a makefile which inherited it
  60   unset EMACS
  61   export RLC_INSIDE_EMACS
  62   export PAGER=cat
  63   export MANPAGER=cat
  64   # scp completion does not work, but this doesnt fix it. todo, figure this out
  65   complete -r scp &> /dev/null
  66   # todo, remote file completion fails, figure out how to turn it off
  67   export NODE_DISABLE_COLORS=1
  68   # This gets rid of ugly terminal escape chars in node repl
  69   # sometime, Id like to have completion working in emacs shell for node
  70   # the offending chars can be found in lib/readline.js,
  71   # things that do like:
  72   # stream.write('\x1b[' + (x + 1) + 'G');
  73   # We can remove them and keep readline, for example by doing this
  74   # to start a repl:
  75   #!/usr/bin/env nodejs
  76   # var readline = require('readline');
  77   # readline.cursorTo = function(a,b,c) {};
  78   # readline.clearScreenDown = function(a) {};
  79   # const repl = require('repl');
  80   # var replServer = repl.start('');
  81   #
  82   # no prompt, or else readline complete seems to be confused, based
  83   # on our column being different? node probably needs to send
  84   # different kind of escape sequence that is not ugly. Anyways,
  85   # completion doesnt work yet even with the ugly prompt, so whatever
  86   #
  87   export NODE_NO_READLINE=1
  88
  89 fi
  90
  91 # emacs has a different default search path than the info command. This
  92 # adds the info defaults to emacs, but not the reverse, because I dun
  93 # care much about the cli. The search path is only on the cli if you run
  94 # "info xxx", or in emacs if you run '(info xxx)', so not that
  95 # important, but might as well fix it.
  96
  97 # info info says this path is what was compiled, and its not documented
  98 # anywhere. Through source grepping, i found it in filesys.h of the info
  99 # source in trisquel flidas.
 100 #
 101 # Traling : means for emacs to add its own stuff on to the end.
 102
 103 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:.:
 104
 105 if [[ $- == *i* ]]; then
 106   # for readline-complete.el
 107   if [[ $RLC_INSIDE_EMACS ]]; then
 108     # all for readline-complete.el
 109     stty echo
 110     bind 'set horizontal-scroll-mode on'
 111     bind 'set print-completions-horizontally on'
 112     bind '"\C-i": self-insert'
 113   else
 114
 115     if [[ $KONSOLE_PROFILE_NAME ]]; then
 116       TERM=xterm-256color
 117     fi
 118
 119     # todo: not sure this works in sakura
 120     #stty werase undef
 121     #bind "\C-w": kill-region
 122     # sakura == xterm-256color
 123     # konsole == xterm
 124     if [[ $TERM == xterm* ]]; then
 125       # control + arrow keys. for other terminals, see http://unix.stackexchange.com/questions/10806/how-to-change-previous-next-word-shortcut-in-bash
 126       bind '"\e[1;5C": shell-forward-word' 2>/dev/null
 127       bind '"\e[1;5D": shell-backward-word' 2>/dev/null
 128     else
 129       # make ctrl-backspace work. for konsole, i fixed it through
 130       # /home/iank/.local/share/konsole/default.keytab
 131       stty werase '^h'
 132       bind '"\eOc": shell-forward-word'
 133       bind '"\eOd": shell-backward-word'
 134     fi
 135     # i cant remember why i did this, probably to free up some keys to bind
 136     # to other things in bash.
 137     # other than C-c and C-z, the rest defined by stty -a are, at least in
 138     # gnome-terminal, overridden by bash, or disabled by the system
 139     stty  lnext undef stop undef start undef
 140   fi
 141
 142 fi
 143
 144
 145 # history number. History expansion is good.
 146 PS4='$LINENO+ '
 147 # history file size limit, set to unlimited.
 148 # this needs to be different from the default because
 149 # default HISTFILESIZE is 500 and could clobber our history
 150 HISTFILESIZE=
 151 # max commands 1 session can append/read from history
 152 HISTSIZE=1000000
 153 # the time format display when doing the history command
 154 # also, setting this makes the history file record time
 155 # of each command as seconds from the epoch
 156 HISTTIMEFORMAT="%Y-%m-%d %I:%M %p "
 157 # consecutive duplicate lines dont go in history
 158 HISTCONTROL=ignoredups
 159 # works in addition to HISTCONTROL to do more flexible things
 160 # it could also do the same things as HISTCONTROL and thus replace it,
 161 # but meh. dunno why, but just " *" does glob expansion, so use [ ] to avoid it.
 162 HISTIGNORE='pass *:[ ]*:otp *:oathtool *'
 163
 164 export BC_LINE_LENGTH=0
 165
 166 export PROFILE_TASKS_TASK_OUTPUT_LIMIT=100
 167
 168 # note, if I use a machine I dont want files readable by all users, set
 169 # umask 077  # If fewer than 4 digits are entered, leading zeros are assumed
 170
 171 # i for insensitive. the rest from
 172 # X means dont remove the current screenworth of output upon exit
 173 # R means to show colors n things
 174 export LESS=RXi
 175 export SYSTEMD_LESS=$LESS
 176
 177
 178 # * include files
 179
 180
 181
 182 # if someone exported $SOE (stop on error), catch errors.
 183 #
 184 # Note, on debian this results in the following warning when in ssh,
 185 # hich I haven't figured out how to fix. It doesn't happen if we source
 186 # after the shell has started
 187 #
 188 # bash: /usr/share/bashdb/bashdb-main.inc: No such file or directory
 189 # bash: warning: cannot start debugger; debugging mode disabled
 190 if [[ $SOE ]]; then
 191   if [[ -e /a/bin/errhandle/err ]]; then
 192     source /a/bin/errhandle/err
 193   fi
 194 fi
 195
 196 # based on readme.debian. dunno if this will break on other distros.
 197 if [[ -s /usr/share/wcd/wcd-include.sh ]]; then
 198   source /usr/share/wcd/wcd-include.sh
 199 fi
 200
 201 if [[ -s /a/bin/small-misc-bash/ll-function ]]; then
 202   # shellcheck source=/a/bin/small-misc-bash/ll-function
 203   source /a/bin/small-misc-bash/ll-function
 204 elif [[ -s ~/.iank/ll-function ]]; then
 205   source ~/.iank/ll-function
 206 fi
 207
 208 # * functions
 209
 210
 211 ..() { c ..; }
 212 ...() { c ../..; }
 213 ....() { c ../../..; }
 214 .....() { c ../../../..; }
 215 ......() { c ../../../../..; }
 216
 217 # file cut copy and paste, like the text buffers :)
 218 # I havnt tested these.
 219 _fbufferinit() { # internal use
 220   ! [[ $my_f_tempdir ]] && my_f_tempdir=$(mktemp -d)
 221   rm -rf "${my_f_tempdir:?}"/*
 222 }
 223 fcp() { # file cp
 224   _fbufferinit
 225   cp "$@" "$my_f_tempdir"/
 226 }
 227 fct() { # file cut
 228   _fbufferinit
 229   mv "$@" "$my_f_tempdir"/
 230 }
 231 fpst() { # file paste
 232   [[ $2 ]] && { echo too many arguments; return 1; }
 233   target=${1:-.}
 234   cp "$my_f_tempdir"/* "$target"
 235 }
 236
 237 _khfix_common() {
 238   local host=${1##*@}
 239   local ip port
 240   read -r ip port < <(timeout 1 ssh -oBatchMode=yes -oControlMaster=no -oControlPath=/ -v $1 |& sed -rn "s/debug1: Connecting to $host \[([^\]*)] port ([0-9]+).*/\1 \2/p")
 241   if [[ ! $ip ]]; then
 242     echo "khfix: ssh failed"
 243     return 1
 244   fi
 245   if [[ $port != 22 ]]; then
 246     ip_entry="[$ip]:$port"
 247     host_entry="[$host]:$port"
 248   else
 249     ip_entry=$ip
 250     host_entry=$host
 251   fi
 252   ssh-keygen -R "$host_entry" -f $(readlink -f ~/.ssh/known_hosts)
 253   echo "khfix: removing key for $ip_entry"
 254   ssh-keygen -R "$ip_entry" -f $(readlink -f ~/.ssh/known_hosts)
 255 }
 256 khfix() { # known hosts fix
 257   _khfix_common "$@" || return 1
 258   ssh $1 :
 259 }
 260 khcopy() {
 261   _khfix_common "$@"
 262   ssh-copy-id $1
 263 }
 264
 265 a() {
 266   local x
 267   x=$(readlink -nf "${1:-$PWD}")
 268   # yes, its kinda dumb that xclip/xsel cant do this in one invocation
 269   echo -n "$x" | xclip -selection clipboard
 270   echo -n "$x" | xclip
 271 }
 272
 273 ack() { ack-grep "$@"; }
 274
 275 b() {
 276   # backwards
 277   c -
 278 }
 279
 280
 281 # c. better cd
 282 if type -p wcd &>/dev/null; then
 283   if [[ $RLC_INSIDE_EMACS ]]; then
 284     c() { wcd -c -z 50 -o "$@"; }
 285   else
 286     # lets see what the fancy terminal does from time to time
 287     c() { wcd -c -z 50 "$@"; }
 288   fi
 289 else
 290   c() { cd "$@"; }
 291 fi
 292
 293 c4() { c /var/log/exim4; }
 294
 295 caa() { git commit --amend --no-edit -a; }
 296
 297 caf() {
 298   # shellcheck disable=SC2033
 299   find -L $1 -type f -not \( -name .svn -prune -o -name .git -prune \
 300        -o -name .hg -prune -o -name .editor-backups -prune \
 301        -o -name .undo-tree-history -prune \) \
 302        -exec bash -lc 'hr; echo "$1"; hr; cat "$1"' _ {} \; 2>/dev/null
 303
 304 }
 305
 306 calc() { echo "scale=3; $*" | bc -l; }
 307 # no having to type quotes, but also no command history:
 308 clc() {
 309   local x
 310   read -r x
 311   echo "scale=3; $x" | bc -l
 312 }
 313
 314 cam() {
 315   git commit -am "$*"
 316 }
 317
 318
 319 ccat () { # config cat. see a config without extra lines.
 320   grep '^\s*[^;[:space:]#]' "$@"
 321 }
 322
 323
 324 _cdiff-prep() {
 325   # join options which are continued to multiples lines onto one line
 326   local first=true
 327   while IFS= read -r line; do
 328     # remove leading spaces/tabs. assumes extglob
 329     if [[ $line == "[   ]*" ]]; then
 330       line="${line##+( )}"
 331     fi
 332     if $first; then
 333       pastline="$line"
 334       first=false
 335     elif [[ $line == *=* ]]; then
 336       echo "$pastline" >> "$2"
 337       pastline="$line"
 338     else
 339       pastline="$pastline $line"
 340     fi
 341   done < <(grep -vE '^([ \t]*#|^[ \t]*$)' "$1")
 342   echo "$pastline" >> "$2"
 343 }
 344
 345 cdiff() {
 346   # diff config files,
 347   # setup for format of postfix, eg:
 348   # option = stuff[,]
 349   #    [more stuff]
 350   local pastline unified f1 f2
 351   unified="$(mktemp)"
 352   f1="$(mktemp)"
 353   f2="$(mktemp)"
 354   _cdiff-prep "$1" "$f1"
 355   _cdiff-prep "$2" "$f2"
 356   cat "$f1" "$f2" |  grep -Po '^[^=]+=' | sort | uniq > "$unified"
 357   while IFS= read -r line; do
 358     # the default bright red / blue doesnt work in emacs shell
 359     dwdiff -cblue,red -A best -d "      ," <(grep "^$line" "$f1" || echo ) <(grep "^$line" "$f2" || echo ) | colordiff
 360   done < "$unified"
 361 }
 362
 363
 364 cat-new-files() {
 365   local start=$SECONDS
 366   local dir="$1"
 367   inotifywait -m "$dir" -e create -e moved_to |
 368     # shellcheck disable=SC2030
 369     while read -r filedir _ file; do
 370       cat "$filedir$file"
 371       hr
 372       calc $((SECONDS - start)) / 60
 373       sleep 5
 374     done
 375
 376 }
 377
 378 # shellcheck disable=SC2032
 379 chown() {
 380   # makes it so chown -R symlink affects the symlink and its target.
 381   if [[ $1 == -R ]]; then
 382     shift
 383     command chown -h "$@"
 384     command chown -R "$@"
 385   else
 386     command chown "$@"
 387   fi
 388 }
 389
 390 cim() {
 391   git commit -m "$*"
 392 }
 393
 394 cl() {
 395   # choose recent directory. cl = cd list
 396   c =
 397 }
 398
 399 d() { builtin bg; }
 400 complete -A stopped -P '"%' -S '"' d
 401
 402
 403 dc() {
 404   diff --strip-trailing-cr -w "$@"   # diff content
 405 }
 406
 407 despace() {
 408   local x y
 409   for x in "$@"; do
 410     y="${x// /_}"
 411     safe_rename "$x" "$y"
 412   done
 413 }
 414
 415 dt() {
 416   date "+%A, %B %d, %r" "$@"
 417 }
 418
 419 dus() { # du, sorted, default arg of
 420   du -sh ${@:-*} | sort -h
 421 }
 422
 423
 424
 425 e() { echo "$@"; }
 426
 427 # echo var. print var including escapes, etc
 428 ev() {
 429   printf "%qEOL\n" "${!1}"
 430   printf "%s" "${!1}" |& hexdump -C
 431 }
 432
 433
 434 ediff() {
 435   [[ ${#@} == 2 ]] || { echo "error: ediff requires 2 arguments"; return 1; }
 436   emacs --eval "(ediff-files \"$1\" \"$2\")"
 437 }
 438
 439 # mail related
 440 etail() {
 441   tail -F /var/log/exim4/mainlog -n 200
 442 }
 443 eless() {
 444   less /var/log/exim4/mainlog
 445 }
 446 eqcat() {
 447   exiqgrep -i | while read i; do
 448     exim -Mvh $i; hr; exim -Mvb $i; hr;
 449     exigrep $i /var/log/exim4/mainlog; hr
 450   done
 451 }
 452
 453
 454 # shellcheck disable=SC2032
 455 f() {
 456   # cd forward
 457   c +
 458 }
 459
 460 fa() {
 461   # find array. make an array of file names found by find into $x
 462   # argument: find arguments
 463   # return: find results in an array $x
 464   while read -rd ''; do
 465     x+=("$REPLY");
 466   done < <(find "$@" -print0);
 467 }
 468
 469 faf() { # find all files. use -L to follow symlinks
 470   find $@ -not \( -name .svn -prune -o -name .git -prune \
 471        -o -name .hg -prune -o -name .editor-backups -prune \
 472        -o -name .undo-tree-history -prune \) -type f 2>/dev/null
 473 }
 474
 475 # mail related
 476 frozen() {
 477   rm -rf /tmp/frozen
 478   s mailq |gr frozen|awk '{print $3}' | while read -r id; do
 479     s exim -Mvl $id
 480     echo
 481     s exim -Mvh $id
 482     echo
 483     s exim -Mvb $id
 484     echo -e '\n\n##############################\n'
 485   done | tee -a /tmp/frozen
 486 }
 487 frozenrm() {
 488   local ids=()
 489   while read -r line; do
 490     printf '%s\n' "$line"
 491     ids+=($(printf '%s\n' "$line" |gr frozen|awk '{print $3}'))
 492   done < <(s mailq)
 493   echo "sleeping for 2 in case you change your mind"
 494   sleep 2
 495   s exim -Mrm "${ids[@]}"
 496 }
 497
 498 funce() {
 499   # like -e for functions. returns on error.
 500   # at the end of the function, disable with:
 501   # trap ERR
 502   trap 'echo "${BASH_COMMAND:+BASH_COMMAND=\"$BASH_COMMAND\" }
 503 ${FUNCNAME:+FUNCNAME=\"$FUNCNAME\" }${LINENO:+LINENO=\"$LINENO\"  }\$?=$?"
 504 trap ERR
 505 return' ERR
 506 }
 507
 508 getdir () {
 509   local help="Usage: getdir [--help] PATH
 510 Output the directory of PATH, or just PATH if it is a directory."
 511   if [[ $1 == --help ]]; then
 512     echo "$help"
 513     return 0
 514   fi
 515   if [[ $# -ne 1 ]]; then
 516     echo "getdir error: expected 1 argument, got $#"
 517     return 1
 518   fi
 519   if [[ -d $1 ]]; then
 520     echo "$1"
 521   else
 522     local dir
 523     dir="$(dirname "$1")"
 524     if [[ -d $dir ]]; then
 525       echo "$dir"
 526     else
 527       echo "getdir error: directory does not exist"
 528       return 1
 529     fi
 530   fi
 531 }
 532
 533 git_empty_branch() { # start an empty git branch. carefull, it deletes untracked files.
 534   [[ $# == 1 ]] || { echo 'need a branch name!'; return 1;}
 535   local root
 536   root=$(gitroot) || return 1 # function to set gitroot
 537   builtin cd "$root"
 538   git symbolic-ref HEAD refs/heads/$1
 539   rm .git/index
 540   git clean -fdx
 541 }
 542
 543 # shellcheck disable=SC2120
 544 gitroot() {
 545   local help="Usage: gitroot [--help]
 546 Print the full path to the root of the current git repo
 547
 548 Handles being within a .git directory, unlike git rev-parse --show-toplevel,
 549 and works in older versions of git which did not have that."
 550   if [[ $1 == --help ]]; then
 551     echo "$help"
 552     return
 553   fi
 554   local p
 555   p=$(git rev-parse --git-dir) || { echo "error: not in a git repo" ; return 1; }
 556   [[ $p != /* ]] && p=$PWD
 557   echo "${p%%/.git}"
 558 }
 559
 560 gh() {
 561   # i got an error, gh not found when doing a pull request, it seems like it wants itself in it\'s path.
 562   local _oldpath="$PATH"
 563   PATH="$PATH:$HOME/node_modules/.bin"
 564   command gh "$@"
 565   PATH="$_oldpath"
 566 }
 567
 568 gmacs() {
 569   # quit will prompt if the program crashes.
 570   gdb -ex=r -ex=quit --args emacs "$@"; r;
 571 }
 572
 573 gdkill() {
 574   # kill the emacs daemon
 575   pk1 emacs --daemon
 576 }
 577
 578 gr() {
 579   grep -iIP --color=auto "$@"
 580 }
 581
 582 grr() { # grep recursive
 583   if [[ ${#@} == 1 ]]; then
 584     grep --exclude-dir='*.emacs.d' --exclude-dir='*.git' -RiIP --color=auto "$@" .
 585   else
 586     grep --exclude-dir='*.emacs.d' --exclude-dir='*.git' -RiIP --color=auto "$@"
 587   fi
 588 }
 589 rg() {
 590   command rg -i -M 200 "$@"
 591 }
 592
 593 hr() { # horizontal row. used to break up output
 594   printf "$(tput setaf 5)█$(tput sgr0)%.0s" $(seq ${COLUMNS:-60})
 595   echo
 596 }
 597
 598 hrcat() { local f; for f; do [[ -f $f ]] || continue; hr; echo "$f"; cat "$f"; done }
 599
 600 # get latest hub and run it
 601 # main command to use:
 602 # hub pull-request --no-edit
 603 # --no-edit means to use the first commit\'s message as the pull request message.
 604 # Also, you need to use a feature branch, not master in your fork.
 605 # On first use, you input username/pass and it gets an oath token so you dont have to repeat
 606 # it\'s at ~/.config/hub
 607 hub() {
 608   local up uptar updir p
 609   p=/github/hub/releases/
 610   up=https://github.com/$(curl -s https://github.com$p| grep -o $p'download/[^/]*/hub-linux-amd64[^"]*' | head -n1)
 611   uptar=${up##*/}
 612   updir=${uptar%.tgz}
 613   if [[ ! -e /a/opt/$updir ]]; then
 614     rm -rf /a/opt/hub-linux-amd64*
 615     wget -P /a/opt $up
 616     tar -C /a/opt -zxf /a/opt/$uptar
 617     rm -f /a/opt/$uptar
 618     s /a/opt/$updir/install
 619   fi
 620
 621   # save token across computers
 622   if [[ ! -L ~/.config/hub ]]; then
 623     if [[ -e ~/.config/hub  ]]; then
 624       mv ~/.config/hub /p/c/subdir_files/.config/
 625     fi
 626     if [[ -e /p/c/subdir_files/.config/hub ]]; then
 627       conflink
 628     fi
 629   fi
 630   command hub "$@"
 631 }
 632
 633 i() { git "$@"; }
 634 # modified from ~/local/bin/git-completion.bash
 635 # other completion commands are mostly taken from bash_completion package
 636 complete -o bashdefault -o default -o nospace -F _git i 2>/dev/null \
 637   || complete -o default -o nospace -F _git i
 638
 639 if ! type service &>/dev/null; then
 640   service() {
 641     echo actually running: systemctl $2 $1
 642     systemctl $2 $1
 643   }
 644 fi
 645
 646
 647
 648 ic() {
 649   # fast commit all
 650   git commit -am "$*"
 651 }
 652
 653
 654
 655 ifn() {
 656   # insensitive find
 657   find -L . -not \( -name .svn -prune -o -name .git -prune \
 658        -o -name .hg -prune -o -name .editor-backups -prune \
 659        -o -name .undo-tree-history -prune \) -iname "*$**" 2>/dev/null
 660 }
 661
 662 ipdrop() {
 663   s iptables -A INPUT -s $1 -j DROP
 664 }
 665
 666
 667 istext() {
 668   grep -Il "" "$@" &>/dev/null
 669 }
 670
 671 jtail() {
 672   journalctl -n 10000 -f "$@"
 673 }
 674 jr() { journalctl "$@" ; }
 675 jrf() { journalctl -f "$@" ; }
 676
 677 l() {
 678   if [[ $PWD == /[iap] ]]; then
 679     command ls -A --color=auto -I lost+found "$@"
 680   else
 681     command ls -A --color=auto "$@"
 682   fi
 683 }
 684
 685
 686 lcn() { locate -i "*$**"; }
 687
 688 lg() { LC_COLLATE=C.UTF-8 ll --group-directories-first; }
 689
 690 lt() { ll -tr "$@"; }
 691
 692 lld() { ll -d "$@"; }
 693
 694 low() {  # make filenames lowercase, remove bad chars
 695   local f new
 696   for f in "$@"; do
 697     new="${f,,}" # downcase
 698     new="${new//[^[:alnum:]._-]/_}" # sub bad chars
 699     new="${new#"${new%%[[:alnum:]]*}"}" # remove leading/trailing non-alnum
 700     new="${new%"${new##*[[:alnum:]]}"}"
 701     # remove bad underscores, like __ and _._
 702     new=$(echo $new | sed -r 's/__+/_/g;s/_+([.-])|([.-])_+/\1/g')
 703     safe_rename "$f" "$new" || return 1
 704   done
 705   return 0
 706 }
 707
 708 lower() { # make first letter of filenames lowercase.
 709   local x
 710   for x in "$@"; do
 711     if [[ ${x::1} == [A-Z] ]]; then
 712       y=$(tr '[:upper:]' '[:lower:]' <<<"${x::1}")"${x:1}"
 713       safe_rename "$x" "$y" || return 1
 714     fi
 715   done
 716 }
 717
 718
 719 k() { # history search
 720   grep -P --binary-files=text "$@" ${HISTFILE:-~/.bash_history}  | tail -n 80;
 721 }
 722
 723 ks() { # history search
 724   grep -P --binary-files=text "$@" ${HISTFILE:-~/.bash_history}  | uniq;
 725 }
 726
 727
 728 make-targets() {
 729   # show make targets, via http://stackoverflow.com/questions/3063507/list-goals-targets-in-gnu-make
 730   make -qp | awk -F':' '/^[a-zA-Z0-9][^$#\/\t=]*:([^=]|$)/ {split($1,A,/ /);for(i in A)print A[i]}'
 731 }
 732
 733 mkc() {
 734   mkdir "$1"
 735   c "$1"
 736 }
 737
 738 mkct() {
 739   mkc $(mktemp -d)
 740 }
 741
 742 mkt() { # mkdir and touch file
 743   local path="$1"
 744   mkdir -p "$(dirname "$path")"
 745   touch "$path"
 746 }
 747
 748 # shellcheck disable=SC2032
 749 mkdir() { command mkdir -p "$@"; }
 750
 751 nopanic() {
 752   # shellcheck disable=SC2024
 753   sudo tee -a /var/log/exim4/paniclog-archive </var/log/exim4/paniclog; sudo truncate -s0 /var/log/exim4/paniclog
 754 }
 755
 756 p8() { ping 8.8.8.8; }
 757 p6() { ping6 2001:4860:4860::8888; }
 758
 759 pkx() { # package extract
 760   local pkg cached tmp f
 761   c $(mktemp -d)
 762   pkg=$1
 763   # shellcheck disable=SC2012
 764   cached=$(ls -t /var/cache/apt/archives/$pkg* | tail -n1 2>/dev/null)
 765   if [[ $cached ]]; then
 766     cp $cached .
 767   else
 768     aptitude download $pkg || return 1
 769   fi
 770   tmp=(*); f=${tmp[0]} # only 1 expected
 771   ex $f
 772   rm -f $f
 773 }
 774
 775 # pgrep and kill
 776 pk1() {
 777   local pid
 778   pid=($(pgrep -f "$*"))
 779   case ${#pid[@]} in
 780     1)
 781       # shellcheck disable=SC2128
 782       {
 783         ps -F $pid
 784         m kill $pid
 785       }
 786       ;;
 787     0) echo "no pid found" ;;
 788     *)
 789       ps -F ${pid[@]}
 790       ;;
 791   esac
 792 }
 793
 794 pubip() { curl -4s https://icanhazip.com; }
 795 pubip6() { curl -6s https://icanhazip.com; }
 796 whatismyip() { pubip; }
 797
 798 pwgen() {
 799   # -m = min length
 800   # -x = max length
 801   # -t = print pronunciation
 802   apg -m 14 -x 17 -t
 803   for (( i=0; i<10; i++ )); do
 804     shuf -n3 /usr/share/hunspell/en_US.dic | sed 's,/.*,,' | paste -sd . -
 805
 806   done
 807 }
 808
 809 pwlong() {
 810   # -M CLN = use Caps, Lowercase, Numbers
 811   # -n 1 = 1 password
 812   # -a 1 = use random instead of pronounceable algorithm
 813   apg -m 50 -x 70 -n 1 -a 1 -M CLN
 814 }
 815
 816
 817 q() { # start / launch a program in the backround and redir output to null
 818   "$@" &> /dev/null &
 819 }
 820
 821 # shellcheck disable=SC2120
 822 r() {
 823   history -a # save history
 824   exit ${1:0}
 825   # i had this redir, not sure why
 826   #  exit "$@" 2>/dev/null
 827 }
 828
 829 rl() {
 830   # rsync, root is required to keep permissions right.
 831   # rsync  --archive --human-readable --verbose --itemize-changes --checksum \(-ahvic\) \
 832     #                                   --no-times --delete
 833   # basically, make an exact copy, use checksums instead of file times to be more accurate
 834   rsync -ahvic --delete "$@"
 835 }
 836 rld() {
 837   # like rlu, but dont delete files on the target end which
 838   # do not exist on the original end.
 839   rsync -ahvic "$@"
 840 }
 841 complete -F _rsync -o nospace rld rl rlt
 842
 843 rlt() {
 844   # rl without preserving modification time.
 845   rsync -ahvic --delete --no-t "$@"
 846 }
 847
 848 rlu() { # [OPTS] HOST PATH
 849   # eg. rlu -opts frodo /testpath
 850   # relative paths will expanded with readlink -f.
 851   opts=("${@:1:$#-2}") #  1 to last -2
 852   path="${*:$#}" # last
 853   host="${*:$#-1:1}" # last -1
 854   if [[ $path == .* ]]; then
 855     path=$(readlink -f $path)
 856   fi
 857   # rync here uses checksum instead of time so we dont mess with
 858   # unison relying on time as much. g is for group, same reason
 859   # to keep up with unison.
 860   s rsync -rlpchviog --relative "${opts[@]}" "$path" "root@$host:/";
 861 }
 862
 863 rmstrips() {
 864   ssh fencepost head -n 300 /gd/gnuorg/EventAndTravelInfo/rms-current-trips.txt | less
 865 }
 866
 867 s() {
 868   # background
 869   # I use a function because otherwise we cant use in a script,
 870   # cant assign to variable.
 871   #
 872   # note: gksudo is recommended for X apps because it does not set the
 873   # home directory to the same, and thus apps writing to ~ fuck things up
 874   # with root owned files.
 875   #
 876   if [[ $EUID != 0 || $1 == -* ]]; then
 877     SUDOD="$PWD" sudo -i "$@"
 878   else
 879     "$@"
 880   fi
 881 }
 882
 883 safe_rename() { # warn and dont rename if file exists.
 884   # mv -n exists, but it\'s silent
 885   if [[ $# != 2 ]]; then
 886     echo safe_rename error: $# args, need 2 >2
 887     return 1
 888   fi
 889   if [[ $1 != "$2" ]]; then # yes, we want to silently ignore this
 890     if [[ -e $2 || -L $2 ]]; then
 891       echo "Cannot rename $1 to $2 as it already exists."
 892     else
 893       mv -vi "$1" "$2"
 894     fi
 895   fi
 896 }
 897
 898
 899 sb() { # sudo bash -c
 900   # use sb instead of s is for sudo redirections,
 901   # eg. sb 'echo "ok fine" > /etc/file'
 902   local SUDOD="$PWD"
 903   sudo -i bash -c "$@"
 904 }
 905 complete -F _root_command s sb
 906
 907
 908 ser() {
 909   local s; [[ $EUID != 0 ]] && s=s
 910   if type -p systemctl &>/dev/null; then
 911     $s systemctl $1 $2
 912   else
 913     $s service $2 $1
 914   fi
 915 }
 916 # like restart, but do nothing if its not already started
 917 srestart() {
 918   local service=$1
 919   if [[ $(s systemctl --no-pager show -p ActiveState $service ) == ActiveState=active ]]; then
 920     systemctl restart $service
 921   fi
 922 }
 923
 924 setini() { # set a value in a .ini style file
 925   key="$1" value="$2" section="$3" file="$4"
 926   if [[ -s $file ]]; then
 927     sed -ri -f - "$file" <<EOF
 928 # remove existing keys
 929 / *\[$section\]/,/^ *\[[^]]+\]/{/^\s*$key[[:space:]=]/d}
 930 # add key
 931 /^\s*\[$section\]/a $key=$value
 932 # from section to eof, do nothing
 933 /^\s*\[$section\]/,\$b
 934 # on the last line, if we haven't found section yet, add section and key
 935 \$a [$section]\\
 936 $key=$value
 937 EOF
 938   else
 939     cat >"$file" <<EOF
 940 [$section]
 941 $key=$value
 942 EOF
 943   fi
 944 }
 945
 946 sgo() { # service go
 947   service=$1
 948   ser restart $service || return 1
 949   if type -p systemctl &>/dev/null; then
 950     ser enable $service
 951   fi
 952 }
 953
 954 sgu() {
 955   systemctl list-unit-files | rg "$@"
 956 }
 957
 958
 959 sk() {
 960   # 2086: unquoted $var
 961   # 2046: unquoted $(cmd)
 962   # 2068: Double quote array expansions to avoid re-splitting elements.
 963   # 2119: Functions with optional args get bad warnings when none are passed.
 964   # 2033: too many false positives for thing that will never work, passing shell function to find.
 965   # i had -x as an arg, but debian testing(stretch) doesn\'t support it
 966   shellcheck -x -e 2086,2046,2068,2119,2033 "$@"
 967   # had this before. not sure what it is 2119
 968 }
 969
 970
 971 slog() {
 972   # log with script. timing is $1.t and script is $1.s
 973   # -l to save to ~/typescripts/
 974   # -t to add a timestamp to the filenames
 975   local logdir do_stamp arg_base
 976   (( $# >= 1 )) || { echo "arguments wrong"; return 1; }
 977   logdir="/a/dt/"
 978   do_stamp=false
 979   while getopts "lt" option
 980   do
 981     case $option in
 982       l ) arg_base=$logdir ;;
 983       t ) do_stamp=true ;;
 984     esac
 985   done
 986   shift $((OPTIND - 1))
 987   arg_base+=$1
 988   [[ -e $logdir ]] || mkdir -p $logdir
 989   $do_stamp && arg_base+=$(date +%F.%T%z)
 990   script -t $arg_base.s 2> $arg_base.t
 991 }
 992 splay() { # script replay
 993   #logRoot="$HOME/typescripts/"
 994   #scriptreplay "$logRoot$1.t" "$logRoot$1.s"
 995   scriptreplay "$1.t" "$1.s"
 996 }
 997
 998 sr() {
 999   # sudo redo. be aware, this command may not work right on strange distros or earlier software
1000   if [[ $# == 0 ]]; then
1001     sudo -E bash -c -l "$(history -p '!!')"
1002   else
1003     echo this command redos last history item. no argument is accepted
1004   fi
1005 }
1006
1007 srm () {
1008   # with -ll, less secure but faster.
1009   command srm -ll "$@"
1010 }
1011
1012 srun() {
1013   scp $2 $1:/tmp
1014   ssh $1 /tmp/${2##*/} $(printf "%q\n" "${@:2}")
1015 }
1016
1017
1018 swap() {
1019   local tmp
1020   tmp=$(mktemp)
1021   mv $1 $tmp
1022   mv $2 $1
1023   mv $tmp $2
1024 }
1025
1026 tclock() { # terminal clock
1027   local x
1028   clear
1029   date +%l:%_M
1030   len=60
1031   # this goes to full width
1032   #len=${1:-$((COLUMNS -7))}
1033   x=1
1034   while true; do
1035     if (( x == len )); then
1036       end=true
1037       d="$(date +%l:%_M)   "
1038     else
1039       end=false
1040       d=$(date +%l:%M:%_S)
1041     fi
1042     echo -en "\r"
1043     echo -n "$d"
1044     for ((i=0; i<x; i++)); do
1045       if (( i % 6 )); then
1046         echo -n _
1047       else
1048         echo -n .
1049       fi
1050     done
1051     if $end; then
1052       echo
1053       x=1
1054     else
1055       x=$((x+1))
1056     fi
1057     sleep 5
1058   done
1059 }
1060
1061
1062 te() {
1063   # test existence / exists
1064   local ret=0
1065   for x in "$@"; do
1066     [[ -e "$x" || -L "$x" ]] || ret=1
1067   done
1068   return $ret
1069 }
1070
1071
1072 tx() { # toggle set -x, and the prompt so it doesnt spam
1073   if [[ $- == *x* ]]; then
1074     set +x
1075     PROMPT_COMMAND=prompt-command
1076     # disabled due to issue on stretch, running ll we get error. something
1077     # about the DEBUG trap is broken
1078     # if [[ $TERM == *(screen*|xterm*|rxvt*) ]]; then
1079     #   trap 'settitle "$BASH_COMMAND"' DEBUG
1080     # fi
1081   else
1082     # normally, i would just execute these commands in the function.
1083     # however, DEBUG is not inherited, so we need to run it outside a function.
1084     # And we want to run set -x afterwards to avoid spam, so we cram everything
1085     # in here, and then it will run after this function is done.
1086     #PROMPT_COMMAND='trap DEBUG; unset PROMPT_COMMAND; PS1="\w \$ "; set -x'
1087
1088     unset PROMPT_COMMAND
1089     PS1="\w \$ "
1090     set -x
1091   fi
1092 }
1093
1094 psnetns() {
1095   # show all processes in the network namespace $1.
1096   # blank entries appear to be subprocesses/threads
1097   local x netns
1098   netns=$1
1099   ps -w | head -n 1
1100   s find -L /proc/[1-9]*/task/*/ns/net -samefile /run/netns/$netns | cut -d/ -f5 | \
1101     while read -r l; do
1102       x=$(ps -w --no-headers -p $l);
1103       if [[ $x ]]; then echo "$x"; else echo $l; fi;
1104     done
1105 }
1106
1107 m() { printf "%s\n" "$*";  "$@"; }
1108
1109
1110 virshrm() {
1111   for x in "$@"; do virsh destroy "$x"; virsh undefine "$x"; done
1112 }
1113
1114 vm-set-listen(){
1115   local t
1116   t=$(mktemp)
1117   local vm=$1
1118   local ip=$2
1119   s virsh dumpxml $vm | sed -r "s/(<listen.*address=')([^']+)/\1$ip/" | \
1120     sed -r "s/listen='[^']+/listen='$ip/"> $t
1121   s virsh undefine $vm
1122   s virsh define $t
1123 }
1124
1125
1126 vmshare() {
1127   vm-set-listen $1 0.0.0.0
1128 }
1129
1130
1131 vmunshare() {
1132   vm-set-listen $1 127.0.0.1
1133 }
1134
1135 # * misc stuff
1136
1137
1138 # temporary variables to test colorization
1139 # some copied from gentoo /etc/bash/bashrc,
1140 use_color=false
1141 # dircolors --print-database uses its own built-in database
1142 # instead of using /etc/DIR_COLORS.  Try to use the external file
1143 # first to take advantage of user additions.
1144 safe_term=${TERM//[^[:alnum:]]/?}   # sanitize TERM
1145 match_lhs=""
1146 [[ -f ~/.dir_colors   ]] && match_lhs="${match_lhs}$(<~/.dir_colors)"
1147 [[ -f /etc/DIR_COLORS ]] && match_lhs="${match_lhs}$(</etc/DIR_COLORS)"
1148 [[ -z ${match_lhs}    ]] \
1149   && type -P dircolors >/dev/null \
1150   && match_lhs=$(dircolors --print-database)
1151 # test if our $TERM is in the TERM values in dircolor
1152 [[ $'\n'${match_lhs} == *$'\n'"TERM "${safe_term}* ]] && use_color=true
1153
1154
1155 if ${use_color} && [[ $- == *i* ]]; then
1156
1157   term_bold="$(tput bold)"
1158   term_red="$(tput setaf 1)"
1159   term_green="$(tput setaf 2)"
1160   term_yellow="$(tput setaf 3)"
1161   term_purple="$(tput setaf 5)"
1162   term_nocolor="$(tput sgr0)" # no font attributes
1163
1164   # unused so far. commented for shellcheck
1165   # term_underl="$(tput smul)"
1166   # term_blue="$(tput setaf 4)"
1167   # term_cyan="$(tput setaf 6)"
1168
1169 fi
1170 # Try to keep environment pollution down, EPA loves us.
1171 unset safe_term match_lhs use_color
1172
1173 # * prompt
1174
1175
1176 if [[ $- == *i* ]]; then
1177
1178   # this needs to come before next ps1 stuff
1179   # this stuff needs bash 4, feb 2009,
1180   # old enough to no longer condition on $BASH_VERSION anymore
1181   shopt -s autocd
1182   shopt -s dirspell
1183   PS1='\w'
1184   if [[ $- == *i* ]]  && [[ ! $RLC_INSIDE_EMACS ]]; then
1185     PROMPT_DIRTRIM=2
1186     bind -m vi-command B:shell-backward-word
1187     bind -m vi-command W:shell-forward-word
1188   fi
1189
1190   if [[ $SSH_CLIENT || $SUDO_USER ]]; then
1191     PS1="\h $PS1"
1192   fi
1193
1194   # emacs terminal has problems if this runs slowly,
1195   # so I've thrown a bunch of things at the wall to speed it up.
1196   prompt-command() {
1197     local return=$? # this MUST COME FIRST
1198     local ps_char ps_color
1199     unset IFS
1200     history -a # save history
1201
1202     case $return in
1203       0) ps_color="$term_purple"
1204          ps_char='\$'
1205          ;;
1206       1) ps_color="$term_green"
1207          ps_char="$return \\$"
1208          ;;
1209       *) ps_color="$term_yellow"
1210          ps_char="$return \\$"
1211          ;;
1212     esac
1213     if [[ ! -O . ]]; then # not owner
1214       if [[ -w . ]]; then # writable
1215         ps_color="$term_bold$term_red"
1216       else
1217         ps_color="$term_bold$term_green"
1218       fi
1219     fi
1220
1221     # faster than sourceing the file im guessing
1222     if [[ -e /dev/shm/iank-status ]]; then
1223       eval $(< /dev/shm/iank-status)
1224     fi
1225     if [[ ! $SSH_CLIENT && $MAIL_HOST != "$HOSTNAME" ]]; then
1226       ps_char="@ $ps_char"
1227     fi
1228     PS1="${PS1%"${PS1#*[wW]}"} \[$ps_color\]$ps_char\[$term_nocolor\] "
1229   }
1230   PROMPT_COMMAND=prompt-command
1231
1232   settitle () {
1233     if [[ $TERM == screen* ]]; then
1234       local title_escape="\033]..2;"
1235     else
1236       local title_escape="\033]0;"
1237     fi
1238     if [[ $0 != prompt-command ]]; then
1239       echo -ne "$title_escape$USER@$HOSTNAME ${PWD/#$HOME/~} "
1240       printf "%s" "$*"
1241       echo -ne "\007"
1242     fi
1243   }
1244
1245   # for titlebar.
1246   # condition from the screen man page i think.
1247   # note: duplicated in tx()
1248   # disabled. see note in tx
1249   # if [[ $TERM == *(screen*|xterm*|rxvt*) ]]; then
1250   #   trap 'settitle "$BASH_COMMAND"' DEBUG
1251   # else
1252   #   trap DEBUG
1253   # fi
1254
1255 fi
1256
1257 # * stuff that makes sense to be at the end
1258
1259
1260 # best practice
1261 unset IFS
1262
1263 # shellcheck disable=SC1090
1264 [[ -s "$HOME/.rvm/scripts/rvm" ]] && source "$HOME/.rvm/scripts/rvm" # Load RVM into a shell session *as a function*
1265
1266
1267 # ensure no bad programs appending to this file will have an affect
1268 return 0