3 ### Common per-shell configuration.
5 ###--------------------------------------------------------------------------
8 __mdw_programp () { type >/dev/null 2>&1 "$1"; }
10 __mdw_source_if_exists () {
13 if [ -r "$i" ]; then . "$i"; fi
17 ###--------------------------------------------------------------------------
24 case $t in t) ;; *) echo >&2 "unknown hook \`$hk'"; return 2; esac
29 *) eval "$hk=\${$hk:+\$$hk }\$fn" ;;
34 local hk=$1 fn=$2 t l r
37 case $t in t) ;; *) echo >&2 "unknown hook \`$hk'"; return 2; esac
42 l=${t%% $fn*} r=${t##*$fn }
44 eval "$hk=\$l\${l:+ }\$r"
49 __mdw_setrc () { return $1; }
52 local hk=$1 saverc=$? t i; shift
55 case $t in t) ;; *) echo >&2 "unknown hook \`$hk'"; return 2; esac
58 for i in $t; do __mdw_setrc $saverc; "$i" "$@"; done
61 ###--------------------------------------------------------------------------
64 __mdw_host=$(hostname)
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=""; }
70 __mdw_system=$(uname -s)
71 : ${USER-${LOGNAME-$(id -un)}}
82 *" 544 "*) __mdw_rootp=t __mdw_user="$__mdw_user%admin" ;;
92 __mdw_set_prompt_pieces () {
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
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
107 left=$(echo « | iconv -f UTF-8 -t //translit)
108 right=$(echo » | iconv -f UTF-8 -t //translit)
112 mdw | mwooding | nemo) u="" left="[" right="]" ;;
113 *) u="$__mdw_user@" left="{" right="}" ;;
117 "$tty") left="<" right=">" ;;
118 *) __mdw_tty=$tty; export __mdw_tty ;;
123 ## If this session is insecure then highlight that.
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=")" ;;
132 ## If this is an schroot environment or some other interesting augmented
133 ## environment then point this out.
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 "
147 __mdw_set_prompt () {
148 case "${TERM-dumb}:${INSIDE_EMACS+$INSIDE_EMACS}" in
150 case $(id -u) in 0) PS1='# ' ;; *) PS1='$ ' ;; esac
156 if type __git_ps1 >/dev/null 2>&1; then
157 git="$__mdw_prompt_git_left$(__git_ps1)$__mdw_prompt_git_right"
161 case $__mdw_last_rc in
163 *) rc="$__mdw_prompt_rc_left rc=$__mdw_last_rc$__mdw_prompt_rc_right" ;;
165 case $__mdw_prompt_extra in
166 ?*) extra="$__mdw_prompt_extra_left [$__mdw_prompt_extra]$__mdw_prompt_extra_right" ;;
169 PS1="$__mdw_prompt_left$git$extra$rc$__mdw_prompt_right"
170 PS2="$PS1$__mdw_prompt_more"
176 __mdw_xterm_settitle () {
178 "
\e]2;%s@%s:%s – %s
\e\\" \
179 "$__mdw_user" "$__mdw_host$__mdw_hqual" "$PWD" \
182 __mdw_xterm_precmd () { __mdw_xterm_settitle "$__mdw_shell"; }
183 __mdw_xterm_preexec () { __mdw_xterm_settitle "$1"; }
185 __mdw_screen_settitle () {
190 __mdw_screen_precmd () { __mdw_screen_settitle "$__mdw_shell"; }
191 __mdw_screen_preexec () { __mdw_screen_settitle "$1"; }
194 case ${STY+t},${__mdw_precmd_hook+t},${__mdw_preexec_hook+t},${TERM} in
196 __mdw_addhook __mdw_precmd_hook __mdw_xterm_precmd
197 __mdw_addhook __mdw_preexec_hook __mdw_xterm_preexec
200 __mdw_addhook __mdw_precmd_hook __mdw_screen_precmd
201 __mdw_addhook __mdw_preexec_hook __mdw_screen_preexec
204 case ${__mdw_precmd_hook+t} in
205 t) __mdw_addhook __mdw_precmd_hook __mdw_set_prompt ;;
209 ###--------------------------------------------------------------------------
210 ### Some handy aliases.
213 alias which="command -v"
216 case $# in 0) set -- "${SHELL-/bin/sh}" ;; esac
220 alias re="rootly $EDITOR"
221 alias pstree="pstree -hl"
222 alias cdtmp='cd ${TMPDIR-/tmp}'
223 alias pushtmp='pushd ${TMPDIR-/tmp}'
225 alias svn="svnwrap svn"
227 alias make="nice make"
228 alias cross-run="nice cross-run"
231 ## Shut up Lisp interpreters.
232 alias clisp="clisp -q -q"
233 alias cmucl="rlwrap cmucl -quiet"
234 alias ecl="rlwrap ecl"
235 alias sbcl="rlwrap sbcl --noinform"
236 alias ccl="rlwrap ccl"
237 alias ccl32="rlwrap ccl32"
238 alias ccl64="rlwrap ccl64"
239 alias abcl="rlwrap abcl --noinform"
241 ###--------------------------------------------------------------------------
244 ## Arrange for `ls' output to be in colour.
245 if __mdw_programp dircolors; then eval $(dircolors -b "$HOME/.dircolors")
246 else unset LS_COLORS; fi
248 unalias ls 2>/dev/null || :
250 if [ -t 1 ]; then command ls $LS_OPTIONS ${LS_COLORS+--color=auto} "$@"
251 else command ls "$@"; fi
254 ## Arrange for `grep' output to be in colour.
255 export GREP_COLORS="mt=01;31:ms=01;31:mc=031;31:fn=36:ln=36:bn=36:se=34"
260 command $grep ${GREP_COLORS+--color=always} "$@" | mdw-pager
265 alias grep="greplike grep"
266 alias egrep="greplike egrep"
267 alias fgrep="greplike fgrep"
268 alias zgrep="greplike zgrep"
270 ## Arrange for `diff' output to be in colour.
271 export DIFF_COLORS="hd=1:ln=36:ad=32:de=31"
276 ${DIFF_COLORS+--color=always} \
277 ${DIFF_COLORS+--palette="$DIFF_COLORS"} \
280 command $diff "$@" | cat
283 alias diff="difflike diff"
285 ###--------------------------------------------------------------------------
288 ## Turn off pagers inside Emacs shell buffers.
289 case "$INSIDE_EMACS" in
290 2[2-9].*,comint | [3-9][0-9].*,comint) export PAGER=cat ;;
293 ###--------------------------------------------------------------------------
294 ### More complicated shell functions.
296 ## xt [@HOST] XTERM-ARGS
298 ## Open a terminal, maybe on a remote host.
302 local remote=${1#@} title
304 if [ $# -gt 0 ]; then
305 title="xterm [$remote] $1"
307 title="xterm [$remote]"
309 (xterm -title "$title" -e ssh $remote "$@" &)
319 ## Tweak core dumps on and off, or show the current status.
322 xon|xy|xyes) ulimit -Sc $(ulimit -Hc) ;;
323 xoff|xn|xno) ulimit -Sc 0 ;;
325 local l=$(ulimit -Sc)
327 0) echo "Core dumps disabled" ;;
328 unlimited) echo "Core dumps enabled" ;;
329 *) echo "Core dump limit is $l blocks" ;;
333 echo >&2 "usage: core [y|n]"
341 ## Set current security world to NAME. With no NAME, print the currently
344 local nfast=${NFAST_HOME-/opt/nfast}
348 echo "${NFAST_KMDATA#$nfast/kmdata-}"
353 elif [ -d "$nfast/kmdata-$1" ]; then
354 kmdata=$nfast/kmdata-$1
356 echo >&2 "world: can't find world $1"
361 0) export NFAST_KMDATA=$kmdata ;;
368 ## path-add [VAR] DIR
370 ## Add DIR to the beginning of PATH-like variable VAR (defaults to PATH) if
371 ## it's not there already.
373 local pathvar export dir val
375 1) pathvar=PATH dir=$1 export="export PATH" ;;
376 2) pathvar=$1 dir=$2 export=: ;;
377 *) echo >&2 "Usage: $0 [VAR] DIR"; return 1 ;;
388 ## path-remove [VAR] DIR
390 ## Remove DIR from PATH-like variable VAR (defaults to PATH); it's not an
391 ## error if DIR isn't in VAR.
393 local pathvar export dir val
395 1) pathvar=PATH dir=$1 export="export PATH" ;;
396 2) pathvar=$1 dir=$2 export=: ;;
397 *) echo >&2 "Usage: $0 [VAR] DIR"; return 1 ;;
402 :"$dir":*) val=${val#$dir:} ;;
403 *:"$dir":) val=${val%:$dir} ;;
404 *:"$dir":*) val=${val%%:$dir:*}:${val#*:$dir:} ;;
410 ## pathhack [-f] +HACK|-HACK...
412 ## Each HACK refers to a subdirectory of `~/bin/hacks'. A hack name preceded
413 ## by `+' adds the directory to the PATH; a `-' removes. Adding a hack
414 ## that's already on the PATH doesn't do anything unless `-f' is set, in
415 ## which case it gets moved to the beginning. With no arguments, print the
416 ## currently installed hacks.
418 local p e force arg hack dir
420 if [ $# -eq 0 ]; then
423 case "$e" in "$HOME/bin/hacks/"*) echo ${e#$HOME/bin/hacks/} ;; esac
424 case "$p" in *:*) p=${p#*:} ;; *) break ;; esac
429 while [ $# -gt 0 ]; do
432 -f | --force) force=t; shift; continue ;;
438 dir=$HOME/bin/hacks/$hack
439 if ! [ -d "$dir" ]; then
440 echo "$0: path hack $hack not found"
443 case "$arg,$force,:$PATH:" in
444 -*,*,*:"$dir":*) path_remove p "$dir" ;;
445 +*,t,*:"$dir":*) path_remove p "$dir"; path_add p "$dir" ;;
446 +*,nil,*:"$dir":*) ;;
447 +*,*) path_add p "$dir" ;;
451 if [ $# -eq 0 ]; then PATH=$p; export PATH
452 else PATH=$p "$@"; fi
455 ###--------------------------------------------------------------------------
456 ### Finishing touches.
458 ## Make sure `$HOME/bin' is on the path.
461 ## Set the temporary directory again. (A setuid or setgid program may have
462 ## unhelpfully forgotten this for us.)
465 *) if __mdw_programp tmpdir; then eval $(tmpdir -b); fi ;;
468 ## For `root' use -- some simple molly-guards.
471 alias rm="rm -i" cp="cp -i" mv="mv -i"
476 ## Run any local hooks.
477 __mdw_source_if_exists "$HOME/.shell-local"
479 ###----- That's all, folks --------------------------------------------------