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 ###--------------------------------------------------------------------------
20 __mdw_set_prompt_hacks () { host=$(hostname); dir=""; }
22 __mdw_set_prompt_pieces () {
26 ## Fancy highlighting in some terminals.
27 local bold unbold nl gitcolour rccolour uncolour
29 bold="" unbold="" nl="" gitcolour="" rccolour="" uncolour=""
30 __mdw_set_prompt_hacks
32 ## Choose the right delimiters. Highlight root prompts specially;
33 ## highlight when I'm running as some other user. Highlight when this
34 ## isn't the outermost shell on the terminal.
35 local left right user u tty
36 user=${USER-${LOGNAME-$(id -un)}}
39 left=$(echo « | iconv -f UTF-8 -t //translit)
40 right=$(echo » | iconv -f UTF-8 -t //translit)
44 mdw | mwooding | nemo) u="" left="[" right="]" ;;
45 *) u="$user@" left="{" right="}" ;;
49 "$tty") left="<" right=">" ;;
50 *) __mdw_tty=$tty; export __mdw_tty ;;
55 ## If this session is insecure then highlight that.
58 case ${SSH_CLIENT-nil},${SCHROOT_CHROOT_NAME-nil},$__mdw_sechost in
59 nil,nil,"$h") sec_l="" sec_r="" ;;
60 nil,nil,*) sec_l="(" sec_r=")" ;;
64 ## If this is an schroot environment then point this out.
65 hqual="$hqual${SCHROOT_CHROOT_NAME+/$SCHROOT_CHROOT_NAME}"
67 ## Put together the main pieces.
68 __mdw_prompt_left="$nl$bold$left$sec_l$u$host$hqual$sec_r$dir"
69 __mdw_prompt_git_left="$unbold$gitcolour"
70 __mdw_prompt_git_right="$uncolour$bold"
71 __mdw_prompt_rc_left="$unbold$rccolour"
72 __mdw_prompt_rc_right="$uncolour$bold"
73 __mdw_prompt_right="$right$unbold"
79 if type __git_ps1 >/dev/null 2>&1; then
80 git="$__mdw_prompt_git_left$(__git_ps1)$__mdw_prompt_git_right"
84 case $__mdw_last_rc in
86 *) rc="$__mdw_prompt_rc_left rc=$__mdw_last_rc$__mdw_prompt_rc_right" ;;
88 PS1="$__mdw_prompt_left$git$rc$__mdw_prompt_right"
89 PS2="$PS1 $bold>$unbold "
96 t) printf "
\ek%s
\e\\" "$__mdw_shell" ;;
102 t) printf "
\ek%s
\e\\" "$1" ;;
106 ###--------------------------------------------------------------------------
107 ### Some handy aliases.
110 alias which="command -v"
113 case $# in 0) set -- "${SHELL-/bin/sh}" ;; esac
117 alias re="rootly $EDITOR"
118 alias pstree="pstree -hl"
119 alias cdtmp='cd ${TMPDIR-/tmp}'
120 alias pushtmp='pushd ${TMPDIR-/tmp}'
122 alias svn="svnwrap svn"
125 ###--------------------------------------------------------------------------
128 ## Arrange for `ls' output to be in colour.
129 if __mdw_programp dircolors; then eval $(dircolors -b "$HOME/.dircolors")
130 else unset LS_COLORS; fi
132 unalias ls 2>/dev/null || :
134 if [ -t 1 ]; then command ls $LS_OPTIONS ${LS_COLORS+--color=auto} "$@"
135 else command ls "$@"; fi
138 ## Arrange for `grep' output to be in colour.
139 export GREP_COLORS="mt=01;31:ms=01;31:mc=031;31:fn=36:ln=36:bn=36:se=34"
144 command $grep ${GREP_COLORS+--color=always} "$@" | mdw-pager
149 alias grep="greplike grep"
150 alias egrep="greplike egrep"
151 alias fgrep="greplike fgrep"
152 alias zgrep="greplike zgrep"
154 ###--------------------------------------------------------------------------
157 ## Turn off pagers inside Emacs shell buffers.
158 case "$INSIDE_EMACS" in
159 2[2-9].*,comint | [3-9][0-9].*,comint) export PAGER=cat ;;
162 ###--------------------------------------------------------------------------
163 ### More complicated shell functions.
165 ## xt [@HOST] XTERM-ARGS
167 ## Open a terminal, maybe on a remote host.
171 local remote=${1#@} title
173 if [ $# -gt 0 ]; then
174 title="xterm [$remote] $1"
176 title="xterm [$remote]"
178 (xterm -title "$title" -e ssh $remote "$@" &)
188 ## Tweak core dumps on and off, or show the current status.
191 xon|xy|xyes) ulimit -Sc $(ulimit -Hc) ;;
192 xoff|xn|xno) ulimit -Sc 0 ;;
194 local l=$(ulimit -Sc)
196 0) echo "Core dumps disabled" ;;
197 unlimited) echo "Core dumps enabled" ;;
198 *) echo "Core dump limit is $l blocks" ;;
202 echo >&2 "usage: core [y|n]"
210 ## Set current security world to NAME. With no NAME, print the currently
213 local nfast=${NFAST_HOME-/opt/nfast}
217 echo "${NFAST_KMDATA#$nfast/kmdata-}"
222 elif [ -d "$nfast/kmdata-$1" ]; then
223 kmdata=$nfast/kmdata-$1
225 echo >&2 "world: can't find world $1"
230 0) export NFAST_KMDATA=$kmdata ;;
237 ## path-add [VAR] DIR
239 ## Add DIR to the beginning of PATH-like variable VAR (defaults to PATH) if
240 ## it's not there already.
242 local pathvar export dir val
244 1) pathvar=PATH dir=$1 export="export PATH" ;;
245 2) pathvar=$1 dir=$2 export=: ;;
246 *) echo >&2 "Usage: $0 [VAR] DIR"; return 1 ;;
257 ## path-remove [VAR] DIR
259 ## Remove DIR from PATH-like variable VAR (defaults to PATH); it's not an
260 ## error if DIR isn't in VAR.
262 local pathvar export dir val
264 1) pathvar=PATH dir=$1 export="export PATH" ;;
265 2) pathvar=$1 dir=$2 export=: ;;
266 *) echo >&2 "Usage: $0 [VAR] DIR"; return 1 ;;
271 :"$dir":*) val=${val#$dir:} ;;
272 *:"$dir":) val=${val%:$dir} ;;
273 *:"$dir":*) val=${val%%:$dir:*}:${val#*:$dir:} ;;
279 ## pathhack [-f] +HACK|-HACK...
281 ## Each HACK refers to a subdirectory of `~/bin/hacks'. A hack name preceded
282 ## by `+' adds the directory to the PATH; a `-' removes. Adding a hack
283 ## that's already on the PATH doesn't do anything unless `-f' is set, in
284 ## which case it gets moved to the beginning. With no arguments, print the
285 ## currently installed hacks.
287 local p e force arg hack dir
289 if [ $# -eq 0 ]; then
292 case "$e" in "$HOME/bin/hacks/"*) echo ${e#$HOME/bin/hacks/} ;; esac
293 case "$p" in *:*) p=${p#*:} ;; *) break ;; esac
298 while [ $# -gt 0 ]; do
301 -f | --force) force=t; shift; continue ;;
307 dir=$HOME/bin/hacks/$hack
308 if ! [ -d "$dir" ]; then
309 echo "$0: path hack $hack not found"
312 case "$arg,$force,:$PATH:" in
313 -*,*,*:"$dir":*) path_remove p "$dir" ;;
314 +*,t,*:"$dir":*) path_remove p "$dir"; path_add p "$dir" ;;
315 +*,nil,*:"$dir":*) ;;
316 +*,*) path_add p "$dir" ;;
320 if [ $# -eq 0 ]; then PATH=$p; export PATH
321 else PATH=$p "$@"; fi
324 ###--------------------------------------------------------------------------
325 ### Finishing touches.
327 ## Make sure `$HOME/bin' is on the path.
330 ## Set the temporary directory again. (A setuid or setgid program may have
331 ## unhelpfully forgotten this for us.)
332 case ${TMPDIR+t} in t) ;; *) eval $(tmpdir -b) ;; esac
334 ## For `root' use -- some simple molly-guards.
337 alias rm="rm -i" cp="cp -i" mv="mv -i"
342 ## Run any local hooks.
343 __mdw_source_if_exists "$HOME/.shell-local"
345 ###----- That's all, folks --------------------------------------------------