chiark - git - mdw - profile/blob - dot/shell-rc

   1 ### -*-sh-*-
   2 ###
   3 ### Common per-shell configuration.
   4
   5 ###--------------------------------------------------------------------------
   6 ### Utilities.
   7
   8 __mdw_programp () { type >/dev/null 2>&1 "$1"; }
   9
  10 __mdw_source_if_exists () {
  11   local i
  12   for i in "$@"; do
  13     if [ -r "$i" ]; then . "$i"; fi
  14   done
  15 }
  16
  17 ###--------------------------------------------------------------------------
  18 ### Hooks.
  19
  20 __mdw_addhook () {
  21   local hk=$1 fn=$2 t
  22
  23   eval t=\${$hk+t}
  24   case $t in t) ;; *) echo >&2 "unknown hook \`$hk'"; return 2; esac
  25
  26   eval t=\$$hk
  27   case " $t " in
  28     *" $fn "*) ;;
  29     *) eval "$hk=\${$hk:+\$$hk }\$fn" ;;
  30   esac
  31 }
  32
  33 __mdw_delhook () {
  34   local hk=$1 fn=$2 t l r
  35
  36   eval t=\${$hk+t}
  37   case $t in t) ;; *) echo >&2 "unknown hook \`$hk'"; return 2; esac
  38
  39   eval t=\" \$$hk \"
  40   case $t in
  41     *" $fn "*)
  42       l=${t%% $fn*} r=${t##*$fn }
  43       l=${l# } r=${r% }
  44       eval "$hk=\$l\${l:+ }\$r"
  45       ;;
  46   esac
  47 }
  48
  49 __mdw_setrc () { return $1; }
  50
  51 __mdw_runhook () {
  52   local hk=$1 saverc=$? t i; shift
  53
  54   eval t=\${$hk+t}
  55   case $t in t) ;; *) echo >&2 "unknown hook \`$hk'"; return 2; esac
  56
  57   eval t=\$$hk
  58   for i in $t; do __mdw_setrc $saverc; "$i" "$@"; done
  59 }
  60
  61 ###--------------------------------------------------------------------------
  62 ### Prompt machinery.
  63
  64 __mdw_host=$(hostname)
  65 __mdw_hqual=
  66 __mdw_hqual=$__mdw_hqual${SCHROOT_CHROOT_NAME+/$SCHROOT_CHROOT_NAME}
  67 __mdw_hqual=$__mdw_hqual${CROSS_BUILDENV+/$CROSS_BUILDENV}
  68 __mdw_set_prompt_hacks () { host=$__mdw_host; dir=""; }
  69
  70 __mdw_system=$(uname -s)
  71 : ${USER-${LOGNAME-$(id -un)}}
  72 __mdw_user=$USER
  73
  74 case $(id -u) in
  75   0)
  76     __mdw_rootp=t
  77     ;;
  78   *)
  79     case $__mdw_system in
  80       CYGWIN_*)
  81         case " $(id -G) " in
  82           *" 544 "*) __mdw_rootp=t __mdw_user="$__mdw_user%admin" ;;
  83           *) __mdw_rootp=nil ;;
  84         esac
  85         ;;
  86       *)
  87         __mdw_rootp=nil
  88         ;;
  89     esac
  90 esac
  91
  92 __mdw_set_prompt_pieces () {
  93
  94   ## Fancy highlighting in some terminals.
  95   local bold unbold nl more host dir
  96   local gitcolour extracolour rccolour uncolour
  97   bold="" unbold="" nl="" more=""
  98   gitcolour="" extracolour="" rccolour="" uncolour=""
  99   __mdw_set_prompt_hacks
 100
 101   ## Choose the right delimiters.  Highlight root prompts specially;
 102   ## highlight when I'm running as some other user.  Highlight when this
 103   ## isn't the outermost shell on the terminal.
 104   local left right u tty
 105   case $__mdw_rootp in
 106     t)
 107       left=$(echo « | iconv -f UTF-8 -t //translit)
 108       right=$(echo » | iconv -f UTF-8 -t //translit)
 109       ;;
 110     nil)
 111       case $USER in
 112         mdw | mwooding | nemo) u="" left="[" right="]" ;;
 113         *) u="$__mdw_user@" left="{" right="}" ;;
 114       esac
 115       tty=$(tty)
 116       case "$__mdw_tty" in
 117         "$tty") left="<" right=">" ;;
 118         *) __mdw_tty=$tty; export __mdw_tty ;;
 119       esac
 120       ;;
 121   esac
 122
 123   ## If this session is insecure then highlight that.
 124   local sec_l sec_r h
 125   h=$(hostname)
 126   case ${SSH_CLIENT-nil},${SCHROOT_CHROOT_NAME-nil},$__mdw_sechost in
 127     nil,nil,"$h") sec_l="" sec_r="" ;;
 128     nil,nil,*) sec_l="(" sec_r=")" ;;
 129     *) sec_l="" sec_r=""
 130   esac
 131
 132   ## If this is an schroot environment or some other interesting augmented
 133   ## environment then point this out.
 134
 135   ## Put together the main pieces.
 136   __mdw_prompt_left="$nl$bold$left$sec_l$u$host$__mdw_hqual$sec_r$dir"
 137   __mdw_prompt_git_left="$unbold$gitcolour"
 138   __mdw_prompt_git_right="$uncolour$bold"
 139   __mdw_prompt_rc_left="$unbold$rccolour"
 140   __mdw_prompt_rc_right="$uncolour$bold"
 141   __mdw_prompt_extra_left="$unbold$extracolour"
 142   __mdw_prompt_extra_right="$uncolour$bold"
 143   __mdw_prompt_right="$right$unbold"
 144   __mdw_prompt_more=" $more$bold>$unbold "
 145 }
 146
 147 __mdw_set_prompt () {
 148   case "${TERM-dumb}:${INSIDE_EMACS+$INSIDE_EMACS}" in
 149     dumb:)
 150       case $(id -u) in 0) PS1='# ' ;; *) PS1='$ ' ;; esac
 151       PS2='> '
 152       ;;
 153     *)
 154       __mdw_last_rc=$?
 155       local git extra rc
 156       if type __git_ps1 >/dev/null 2>&1; then
 157         git="$__mdw_prompt_git_left$(__git_ps1)$__mdw_prompt_git_right"
 158       else
 159         git=""
 160       fi
 161       case $__mdw_last_rc in
 162         0) rc="" ;;
 163         *) rc="$__mdw_prompt_rc_left rc=$__mdw_last_rc$__mdw_prompt_rc_right" ;;
 164       esac
 165       case $__mdw_prompt_extra in
 166         ?*) extra="$__mdw_prompt_extra_left [$__mdw_prompt_extra]$__mdw_prompt_extra_right" ;;
 167         *) extra="" ;;
 168       esac
 169       PS1="$__mdw_prompt_left$git$extra$rc$__mdw_prompt_right"
 170       PS2="$PS1$__mdw_prompt_more"
 171       unset __mdw_last_rc
 172       ;;
 173   esac
 174 }
 175
 176 __mdw_xterm_settitle () {
 177   printf >/dev/tty \
 178     "\e]0;%s@%s:%s – %s\e\\" \
 179     "$__mdw_user" "$__mdw_host$__mdw_hqual" "$PWD" \
 180     "$1"
 181 }
 182 __mdw_xterm_precmd () { __mdw_xterm_settitle "$__mdw_shell"; }
 183 __mdw_xterm_preexec () { __mdw_xterm_settitle "$1"; }
 184
 185 __mdw_screen_settitle () {
 186   printf >/dev/tty \
 187     "\ek%s\e\\" \
 188     "$1"
 189 }
 190 __mdw_screen_precmd () { __mdw_screen_settitle "$__mdw_shell"; }
 191 __mdw_screen_preexec () { __mdw_screen_settitle "$1"; }
 192
 193 if [ -t 0 ]; then
 194   case ${STY+t},${__mdw_precmd_hook+t},${__mdw_preexec_hook+t},${TERM} in
 195     ,t,t,xterm*)
 196       __mdw_addhook __mdw_precmd_hook __mdw_xterm_precmd
 197       __mdw_addhook __mdw_preexec_hook __mdw_xterm_preexec
 198       ;;
 199     t,t,t,*)
 200       __mdw_addhook __mdw_precmd_hook __mdw_screen_precmd
 201       __mdw_addhook __mdw_preexec_hook __mdw_screen_preexec
 202       ;;
 203   esac
 204   case ${__mdw_precmd_hook+t} in
 205     t) __mdw_addhook __mdw_precmd_hook __mdw_set_prompt ;;
 206   esac
 207 fi
 208
 209 ###--------------------------------------------------------------------------
 210 ### Some handy aliases.
 211
 212 alias cx='chmod +x'
 213 alias which="command -v"
 214 alias rc="rc -l"
 215 rootly () {
 216   case $# in 0) set -- "${SHELL-/bin/sh}" ;; esac
 217   $__MDW_ROOTLY "$@"
 218 }
 219 alias r=rootly
 220 alias re="rootly $EDITOR"
 221 alias pstree="pstree -hl"
 222 alias cdtmp='cd ${TMPDIR-/tmp}'
 223 alias pushtmp='pushd ${TMPDIR-/tmp}'
 224 alias e="$EDITOR"
 225 alias svn="svnwrap svn"
 226 alias @="ssh"
 227 __mdw_nice="nice"
 228 if command -v ionice >/dev/null 2>&1; then
 229   __mdw_nice="$__mdw_nice ionice -c3"
 230 fi
 231 alias mdw-nice="$__mdw_nice --"
 232 alias make="mdw-nice make"
 233 alias cross-run="mdw-nice cross-run"
 234 alias gdb="gdb -q"
 235
 236 ## Shut up Lisp interpreters.
 237 alias clisp="clisp -q -q"
 238 if command -v ionice >/dev/null 2>&1; then
 239   alias maybe-rlwrap="rlwrap"
 240 else
 241   alias maybe-rlwrap=""
 242 fi
 243 alias cmucl="maybe-rlwrap cmucl -quiet"
 244 alias ecl="maybe-rlwrap ecl"
 245 alias sbcl="maybe-rlwrap sbcl --noinform"
 246 alias ccl="maybe-rlwrap ccl"
 247 alias ccl32="maybe-rlwrap ccl32"
 248 alias ccl64="maybe-rlwrap ccl64"
 249 alias abcl="maybe-rlwrap abcl --noinform"
 250
 251 ###--------------------------------------------------------------------------
 252 ### Colour output.
 253
 254 mdw_colour_p () {
 255   if ! [ -t 1 ]; then return 1; fi
 256   case $TERM in dumb) return 1 ;; esac
 257   return 0
 258 }
 259
 260 ## Arrange for `ls' output to be in colour.
 261 unalias ls 2>/dev/null || :
 262 ls () {
 263   if mdw_colour_p; then command ls $LS_OPTIONS ${LS_COLORS+--color=always} "$@"
 264   else command ls "$@"; fi
 265 }
 266
 267 ## Arrange for `grep' output to be in colour.
 268 greplike () {
 269   local grep=$1; shift
 270   if mdw_colour_p; then
 271     command $grep ${GREP_COLORS+--color=always} "$@" | mdw-pager
 272   else
 273     command $grep "$@"
 274   fi
 275 }
 276 alias grep="greplike grep"
 277 alias egrep="greplike egrep"
 278 alias fgrep="greplike fgrep"
 279 alias zgrep="greplike zgrep"
 280
 281 ## Arrange for `diff' output to be in colour.
 282 difflike () {
 283   local diff=$1; shift
 284   if mdw_colour_p; then
 285     command $diff \
 286             ${DIFF_COLORS+--color=always} \
 287             ${DIFF_COLORS+--palette="$DIFF_COLORS"} \
 288             "$@" | mdw-pager
 289   else
 290     command $diff "$@" | cat
 291   fi
 292 }
 293 alias diff="difflike diff"
 294
 295 ###--------------------------------------------------------------------------
 296 ### Other hacks.
 297
 298 ## Turn off pagers inside Emacs shell buffers.
 299 case "$INSIDE_EMACS" in
 300   2[2-9].*,comint | [3-9][0-9].*,comint) export PAGER=cat ;;
 301 esac
 302
 303 ###--------------------------------------------------------------------------
 304 ### More complicated shell functions.
 305
 306 ## xt [@HOST] XTERM-ARGS
 307 ##
 308 ## Open a terminal, maybe on a remote host.
 309 xt () {
 310   case "$1" in
 311     @*)
 312       local remote=${1#@} title
 313       shift
 314       if [ $# -gt 0 ]; then
 315         title="xterm [$remote] $1"
 316       else
 317         title="xterm [$remote]"
 318       fi
 319       (xterm -title "$title" -e ssh $remote "$@" &)
 320       ;;
 321     *)
 322       (xterm "$@" &)
 323       ;;
 324   esac
 325 }
 326
 327 ## core [y|n]
 328 ##
 329 ## Tweak core dumps on and off, or show the current status.
 330 core () {
 331   case "x$1" in
 332     xon|xy|xyes) ulimit -Sc $(ulimit -Hc) ;;
 333     xoff|xn|xno) ulimit -Sc 0 ;;
 334     x)
 335       local l=$(ulimit -Sc)
 336       case $l in
 337         0) echo "Core dumps disabled" ;;
 338         unlimited) echo "Core dumps enabled" ;;
 339         *) echo "Core dump limit is $l blocks" ;;
 340       esac
 341       ;;
 342     *)
 343       echo >&2 "usage: core [y|n]"
 344       return 1
 345       ;;
 346   esac
 347 }
 348
 349 ## world [NAME]
 350 ##
 351 ## Set current security world to NAME.  With no NAME, print the currently
 352 ## selected world.
 353 world () {
 354   local nfast=${NFAST_HOME-/opt/nfast}
 355   local kmdata
 356   case "$#" in
 357     0)
 358       echo "${NFAST_KMDATA#$nfast/kmdata-}"
 359       ;;
 360     *)
 361       if [ -d "$1" ]; then
 362         kmdata=$1
 363       elif [ -d "$nfast/kmdata-$1" ]; then
 364         kmdata=$nfast/kmdata-$1
 365       else
 366         echo >&2 "world: can't find world $1"
 367         return 1
 368       fi
 369       shift
 370       case "$#" in
 371         0) export NFAST_KMDATA=$kmdata ;;
 372         *) "$@" ;;
 373       esac
 374       ;;
 375   esac
 376 }
 377
 378 ## path-add [VAR] DIR
 379 ##
 380 ## Add DIR to the beginning of PATH-like variable VAR (defaults to PATH) if
 381 ## it's not there already.
 382 path_add () {
 383   local pathvar export dir val
 384   case $# in
 385     1) pathvar=PATH dir=$1 export="export PATH" ;;
 386     2) pathvar=$1 dir=$2 export=: ;;
 387     *) echo >&2 "Usage: $0 [VAR] DIR"; return 1 ;;
 388   esac
 389   eval val=\$$pathvar
 390   case ":$val:" in
 391     *:"$dir":*) ;;
 392     *) val=$dir:$val ;;
 393   esac
 394   eval $pathvar=\$val
 395   eval $export
 396 }
 397
 398 ## path-remove [VAR] DIR
 399 ##
 400 ## Remove DIR from PATH-like variable VAR (defaults to PATH); it's not an
 401 ## error if DIR isn't in VAR.
 402 path_remove () {
 403   local pathvar export dir val
 404   case $# in
 405     1) pathvar=PATH dir=$1 export="export PATH" ;;
 406     2) pathvar=$1 dir=$2 export=: ;;
 407     *) echo >&2 "Usage: $0 [VAR] DIR"; return 1 ;;
 408   esac
 409   eval val=\$$pathvar
 410   case ":$val:" in
 411     :"$dir":) val= ;;
 412     :"$dir":*) val=${val#$dir:} ;;
 413     *:"$dir":) val=${val%:$dir} ;;
 414     *:"$dir":*) val=${val%%:$dir:*}:${val#*:$dir:} ;;
 415   esac
 416   eval $pathvar=\$val
 417   eval $export
 418 }
 419
 420 ## pathhack [-f] +HACK|-HACK...
 421 ##
 422 ## Each HACK refers to a subdirectory of `~/bin/hacks'.  A hack name preceded
 423 ## by `+' adds the directory to the PATH; a `-' removes.  Adding a hack
 424 ## that's already on the PATH doesn't do anything unless `-f' is set, in
 425 ## which case it gets moved to the beginning.  With no arguments, print the
 426 ## currently installed hacks.
 427 pathhack () {
 428   local p e force arg hack dir
 429   p=$PATH
 430   if [ $# -eq 0 ]; then
 431     while :; do
 432       e=${p%%:*}
 433       case "$e" in "$HOME/bin/hacks/"*) echo ${e#$HOME/bin/hacks/} ;; esac
 434       case "$p" in *:*) p=${p#*:} ;; *) break ;; esac
 435     done
 436     return
 437   fi
 438   force=nil
 439   while [ $# -gt 0 ]; do
 440     arg=$1
 441     case "$arg" in
 442       -f | --force) force=t; shift; continue ;;
 443       --) shift; break ;;
 444       [-+]*) ;;
 445       *) break; ;;
 446     esac
 447     hack=${arg#[+-]}
 448     dir=$HOME/bin/hacks/$hack
 449     if ! [ -d "$dir" ]; then
 450       echo "$0: path hack $hack not found"
 451       return 1
 452     fi
 453     case "$arg,$force,:$PATH:" in
 454       -*,*,*:"$dir":*) path_remove p "$dir" ;;
 455       +*,t,*:"$dir":*) path_remove p "$dir"; path_add p "$dir" ;;
 456       +*,nil,*:"$dir":*) ;;
 457       +*,*) path_add p "$dir" ;;
 458     esac
 459     shift
 460   done
 461   if [ $# -eq 0 ]; then PATH=$p; export PATH
 462   else PATH=$p "$@"; fi
 463 }
 464
 465 ###--------------------------------------------------------------------------
 466 ### Finishing touches.
 467
 468 ## Make sure `$HOME/bin' is on the path.
 469 path_add "$HOME/bin"
 470
 471 ## Set the temporary directory again.  (A setuid or setgid program may have
 472 ## unhelpfully forgotten this for us.)
 473 case ${TMPDIR+t} in
 474   t) ;;
 475   *) if __mdw_programp tmpdir; then eval $(tmpdir -b); fi ;;
 476 esac
 477
 478 ## For `root' use -- some simple molly-guards.
 479 case $(id -u) in
 480   0)
 481     alias rm="rm -i" cp="cp -i" mv="mv -i"
 482     set -o noclobber
 483     ;;
 484 esac
 485
 486 ## Install wakeup machinery for long-running programs.
 487 case ${DISPLAY+t},${WINDOWID+t},${__mdw_precmd_hook+t},${__mdw_preexec_hook+t} in
 488   t,t,t,t)
 489     if [ -t 0 ] && __mdw_programp notify-send; then . $HOME/bin/wakey.sh; fi
 490     ;;
 491 esac
 492
 493 ## Run any local hooks.
 494 __mdw_source_if_exists "$HOME/.shell-local"
 495
 496 ###----- That's all, folks --------------------------------------------------