[profile] / dot / profile

### -*-sh-*-
###
### Session startup things.

## The shell-specific hook will run us if it thinks we haven't been run
## before.  We should therefore let it know.
__mdw_profile=t; export __mdw_profile

###--------------------------------------------------------------------------
### Utility functions.

## __mdw_addto VAR DIR PATH ...
##
## VAR is the name of a PATH-like environment variable (i.e., one which
## contains a sequence of pathnames separated by colons).  DIR is either `l'
## or `r'.  The PATHs are pathnames.  Those PATHs which correspond to
## existing directories but which aren't currently named in the variable are
## added to the left or right (depending on DIR) of VAR.  The relative order
## of PATHs added in the same invokation is the same as the order they
## appeared in PATHs: the DIR argument only affects which end of the VAR they
## get added to.
__mdw_addto () {
  local var=$1 val dir=$2 new="" change=nil
  eval val=\$$var
  shift 2
  for i in "$@"; do
    case "$new:" in *:$i:*) continue;; esac
    if ! [ -d $i ]; then continue; fi
    case "$val" in
      $i) continue ;;
      *:$i:*) val=${val%%:$i:*}:${val#*:$i:} ;;
      $i:*) val=${val#$i:} ;;
      *:$i) val=${val%:$i} ;;
    esac
    new=$new:$i change=t
  done
  case $dir in
    l) val=${new#:}${val:+:$val} ;;
    r) val=${val:+$val:}${new#:} ;;
  esac
  case $change in t) eval $var=\$val ;; esac
}

## __mdw_programp NAME
##
## Does NAME exist as an executable program?
__mdw_programp () { type >/dev/null 2>&1 "$1"; }

## __mdw_setconf VAR CONF [DEFAULT]
##
## If CONF is defined in `~/.mdw.conf' then set VAR to its value; otherwise,
## set VAR to DEFAULT, if given; otherwise, do nothing at all.
__mdw_setconf () {
  local var=$1 conf=$2 val; shift 2
  if val=$(mdw-conf 2>/dev/null "$conf" "$@"); then
    eval "$var=\$val; export $var"
  fi
}

## __mdw_export_if_defined VAR ...
##
## If VARs are defined, then export them.
__mdw_export_if_defined () {
  local var t
  for var in "$@"; do
    eval t=\${$var+t}
    case $t in t) export $var ;; esac
  done
}

###--------------------------------------------------------------------------
### Other preliminaries.

## Work out my home directory, resolving symbolic links.
HOME=$(cd "$HOME"; pwd -P)
case ${SCHROOT_SESSION_ID+t} in t) ;; *) cd "$HOME" ;; esac

## CDE's session structure is demented and doesn't leave us with a proper
## logout hook, so synthesize one here.
case ${DT+t} in t) trap "source $HOME/.shell-logout" EXIT; esac

###--------------------------------------------------------------------------
### Set some basic paths.

## The main path.
export PATH
__mdw_addto PATH l \
  "$HOME"/bin \
  /usr/local/bin /usr/local/sbin /usr/local/games \
  /usr/bin /usr/sbin /usr/games \
  /usr/X11R6/bin /usr/local/X11R6/bin \
  /bin /sbin \
  /opt/nfast/bin /opt/nfast/sbin

## If we have Plan 9 from User Space, then add that in.
for i in /opt/plan9 /usr/local/plan9; do
  if [ -d $i ]; then
    PLAN9=$i; export PLAN9
    __mdw_addto PATH r $i/bin
    break
  fi
done

## Check for some standard path hacks.
for i in ccache; do
  __mdw_addto PATH l "$HOME"/bin/hacks/$i
done

###--------------------------------------------------------------------------
### Some other preliminaries.

## Set a per-process memory limit.  It's much less common for a process to
## need a lot of memory for a legitimate reason than for it to be a memory
## leak or some other bug that's going to cause swap death for no good
## reason.
ulimit -Sv $(mdw-conf memory-limit 4194303)

## Establish a temporary directory.
case ${TMPDIR+t} in
  t) ;;
  *) if __mdw_programp tmpdir; then eval $(tmpdir -b); fi
esac
TMP=$TMPDIR; export TMP

## Sensible umask if users have their own groups.
umask 002

###--------------------------------------------------------------------------
### Text editor configuration.

MDW_EDITOR=ed
emacs_startup_args="--no-site-file --mdw-fast-startup -nw"
for ed in \
  "emacs24 $emacs_startup_args" \
  "emacs23 $emacs_startup_args" \
  "emacs22 $emacs_startup_args" \
  "emacs21 $emacs_startup_args" \
  zile mg \
  "emacs -nw" \
  vi pico nano ae
do
  name=${ed%% *}
  if __mdw_programp "$name"; then MDW_EDITOR=$ed; break; fi
done
EDITOR=mdw-editor VISUAL=mdw-editor
export EDITOR VISUAL MDW_EDITOR
unset ed emacs_startup_args

###--------------------------------------------------------------------------
### Locale configuration.

case ${LC_MDWSSHLANG+t},${DISPLAY+t} in
  t,*)
    LANG=$LC_MDWSSHLANG
    ;;
  ,t)
    __mdw_setconf LANG x-ctype POSIX
    ;;
  *)
    : LANG=${LC_CTYPE-${LC_ALL-$(mdw-conf console-ctype POSIX)}}
    case "$TERM,$(tty)" in
      linux,/dev/tty*)
	if { vt-is-UTF8 || kbd_mode | grep UTF-8; } >/dev/null 2>&1; then
	  ctype=.UTF-8
	else
	  ctype=
	fi
	LANG=${LANG%.*}$ctype
	;;
    esac
    ;;
esac
unset LC_ALL
export LANG

LC_COLLATE=POSIX; export LC_COLLATE

case ${LANG+t} in
  t) LC_MDWSSHLANG=$LANG; export LC_MDWSSHLANG ;;
esac

###--------------------------------------------------------------------------
### Pagers.

## Choose a sensible pager.
MDW_PAGER=more
for pg in less more; do
  if __mdw_programp "$pg"; then MDW_PAGER=$(command -v "$pg"); break; fi
done
PAGER=mdw-pager METAMAIL_PAGER=mdw-pager
export MDW_PAGER PAGER METAMAIL_PAGER
unset pg

## Configure `less'.
case ${LC_CTYPE-$LANG} in
  *utf8 | *utf-8 | *UTF8 | *UTF-8) LESSCHARSET=utf-8 ;;
  *) LESSCHARSET=latin1 ;;
esac
export LESSCHARSET
if __mdw_programp global; then
  LESSGLOBALTAGS=global
  export LESSGLOBALTAGS
fi

## Get Debian `groff' to produce control sequences rather than overstriking.
GROFF_SGR=t; export GROFF_SGR

###--------------------------------------------------------------------------
### Miscellaneous things.

## Mail and general identification.
__mdw_setconf MAIL mailbox /var/mail/mdw
__mdw_setconf EMAIL email mdw@distorted.org.uk
NAME="Mark Wooding"; export NAME

## News server.
__mdw_setconf NNTPSERVER nntp-server

## Some programs want to know the hostname.
case ${HOST+t} in t) ;; *) HOST=$(hostname); export HOST; esac

## HTTP and FTP proxies.
http=$(mdw-conf http-proxy none)
case "${http_proxy-none},$http" in
  *,none) ;;
  none,*) http_proxy=http://$http/; export http_proxy ;;
esac
https=$(mdw-conf https-proxy none)
case "${https_proxy-none},$https,${http_proxy-none}" in
  *,none,none) ;;
  none,none,*) https_proxy=$http_proxy; export https_proxy ;;
  none,*,*) https_proxy=http://$https/; export ftp_proxy ;;
esac
ftp=$(mdw-conf ftp-proxy none)
case "${ftp_proxy-none},$ftp,${http_proxy-none}" in
  *,none,none) ;;
  none,none,*) ftp_proxy=$http_proxy; export ftp_proxy ;;
  none,*,*) ftp_proxy=http://$ftp/; export ftp_proxy ;;
esac
unset http https ftp

## Ncurses programs should use the Unicode box-drawing characters because the
## alternative character set stuff isn't supported well.
NCURSES_NO_UTF8_ACS=1; export NCURSES_NO_UTF8_ACS

## Shut up Perl's readline machinery.
PERL_READLINE_NOWARN=yes; export PERL_READLINE_NOWARN

## If we have `distcc' then tell `ccache' to use it.
if __mdw_programp distcc; then CCACHE_PREFIX=distcc; export CCACHE_PREFIX; fi

## Choose a sensible web browser.  If we have a display, try to pick a
## graphical one.
set -- elinks w3m lynx
case ${DISPLAY+t} in
  t) set -- mdw-iceweasel mdw-chrome iceweasel firefox "$@" ;;
esac
for b in "$@"; do
  if __mdw_programp $b; then BROWSER=$b; export BROWSER; break; fi
done
unset b

## Acquiring root privileges.  This is mainly the job of `bashrc', but we
## cache the mechanism here.
__mdw_setconf __MDW_ROOTLY rootly
BECOME="--preserve-environment"; export BECOME

## `rsync' configuration.
RSYNC_PROTECT_ARGS=1; export RSYNC_PROTECT_ARGS

## It's useful to see the little sigils in `ls'.
case ${LS_OPTIONS+t} in t) ;; *) LS_OPTIONS="-F"; export LS_OPTIONS; esac

## Settings for BBC BASIC listing.
export BASCAT="-l +n"

## Version control hacking.
CVS_RSH=ssh; export CVS_RSH
__mdw_setconf CVSROOT cvs-root
__mdw_setconf SVNROOT svn-root
P4CONFIG=.p4; export P4CONFIG

## Help X programs find their resources.
XUSERFILESEARCHPATH="$HOME/.Xapps/%N:/usr/lib/X11/%T/%N%S"
export XUSERFILESEARCHPATH

## Make OpenOffice.org do its thing properly.
OOO_FORCE_DESKTOP=gnome; export OOO_FORCE_DESKTOP

## Hack Qt-ish things to be unstoatly.
##QT_QPA_PLATFORMTHEME=gtk2; export QT_QPA_PLATFORMTHEME
QT_AUTO_SCREEN_SCALE_FACTOR=0; export QT_AUTO_SCREEN_SCALE_FACTOR

## Use X11 input method (including compose key sequences) everywhere.
GTK_IM_MODULE=xim; export GTK_IM_MODULE
QT_IM_MODULE=xim; export QT_IM_MODULE

## Don't hide scrollbars.
GTK_OVERLAY_SCROLLING=0; export GTK_OVERLAY_SCROLLING

## Rust Cargo things.
CARGO_HOME=$HOME/.cache/cargo; export CARGO_HOME

## Configure `ps'.
PS_PERSONALITY=gnu; export PS_PERSONALITY

## Configure Debian building.
DEB_BUILD_OPTIONS="parallel=$(mdw-conf make-parallel 4)"
export DEB_BUILD_OPTIONS

## Turn off angry fruit salad error messages from things.
DPKG_COLORS=never; export DPKG_COLORS
GCC_COLORS=; export GCC_COLORS
CCC_OVERRIDE_OPTIONS="#^-fno-color-diagnostics"; export CCC_OVERRIDE_OPTIONS

## Local library directories.
__mdw_addto PERLLIB l $HOME/lib/perl; __mdw_export_if_defined PERLLIB
__mdw_addto PYTHONPATH l $HOME/lib/python; __mdw_export_if_defined PYTHONPATH

## Disable core dumps.
ulimit -S -c 0

###--------------------------------------------------------------------------
### Authentication and SSH hacking.

## Start an authentication agent.  This is unnecessarily fiddly.  If there's
## a Gnome keyring server then we should use that; unfortunately, it may not
## yet have had a chance to populate the environment with its settings, so we
## go off and fetch them.
if { { [ "$GNOME_KEYRING_CONTROL" ] &&
       [ -s "$GNOME_KEYRING_CONTROL" ]; } ||
     { [ "$DBUS_SESSION_BUS_ADDRESS" ] &&
       __mdw_programp gnome-keyring-daemon; }; } &&
   stuff=$(gnome-keyring-daemon -s -c gpg 2>/dev/null)
then
  eval "$stuff"
  export SSH_AUTH_SOCK GPG_AGENT_INFO
fi

## If we still don't have an agent then start one with a stable name.
eval $(start-ssh-agent -b)

## Decide whether this session should be considered `secure'.  A session is
## secure if it's on a secure TTY, but there are lots of ways of finding out
## which TTYs are secure.
if [ -z "$__mdw_bashrc" ] && [ "$__mdw_force_secure_session" = "yes" ] ||
   ( tty="`tty`" devtty="(/dev/)?${tty#/dev/}"
     { { { [ -e /etc/securetty ] && sectty=/etc/securetty; } ||
	 { [ -e /etc/securettys ] && sectty=/etc/securettys; }; } &&
       egrep "$devtty" $sectty >/dev/null; } ||
     { [ -e /etc/default/login ] &&
       egrep "^CONSOLE=$devtty" /etc/default/login >/dev/null; } ||
     case "${tty#/dev/}" in
       console|systty|tty[0-9]) true ;;
       *) false ;;
     esac )
then
  __mdw_sechost=$HOST; export __mdw_sechost
fi

## Start a passphrase pixie if there is one and it's not already running.
if pixie --version >/dev/null 2>&1; then
  mkdir -p "$HOME/.catacomb"
  pixie=${CATACOMB_PIXIE-$HOME/.catacomb/pixie}
  if [ -S "$pixie" ] && pixie -C help >/dev/null 2>&1; then
    :
  else
    pixie -d 2>>"$HOME/.catacomb/pixie.log"
    __mdw_started_pixie=yes
  fi
fi

###--------------------------------------------------------------------------
### Finishing touches.

## For old-fashioned Bourne-ish shells, set up per-shell definitions.
ENV=$HOME/.shrc; export ENV

## If there's a local hook then run it.
if [ -f "$HOME/.profile-local" ]; then . "$HOME/.profile-local"; fi

###----- That's all, folks --------------------------------------------------
Commit	Line	Data
74a53e28 MW	1	### --sh--
	2	###
	3	### Session startup things.
	4
	5	## The shell-specific hook will run us if it thinks we haven't been run
	6	## before. We should therefore let it know.
	7	__mdw_profile=t; export __mdw_profile
	8
	9	###--------------------------------------------------------------------------
	10	### Utility functions.
	11
	12	## __mdw_addto VAR DIR PATH ...
	13	##
	14	## VAR is the name of a PATH-like environment variable (i.e., one which
	15	## contains a sequence of pathnames separated by colons). DIR is either `l'
	16	## or `r'. The PATHs are pathnames. Those PATHs which correspond to
	17	## existing directories but which aren't currently named in the variable are
	18	## added to the left or right (depending on DIR) of VAR. The relative order
	19	## of PATHs added in the same invokation is the same as the order they
	20	## appeared in PATHs: the DIR argument only affects which end of the VAR they
	21	## get added to.
	22	__mdw_addto () {
	23	local var=$1 val dir=$2 new="" change=nil
	24	eval val=\$$var
	25	shift 2
	26	for i in "$@"; do
	27	case "$new:" in :$i:) continue;; esac
	28	if ! [ -d $i ]; then continue; fi
	29	case "$val" in
74a53e28 MW	30	$i) continue ;;
	31	:$i:) val=${val%%:$i:}:${val#:$i:} ;;
	32	$i:*) val=${val#$i:} ;;
	33	*:$i) val=${val%:$i} ;;
	34	esac
	35	new=$new:$i change=t
	36	done
	37	case $dir in
4c085f9e MW	38	l) val=${new#:}${val:+:$val} ;;
4c085f9e MW	39	r) val=${val:+$val:}${new#:} ;;
74a53e28 MW	40	esac
	41	case $change in t) eval $var=\$val ;; esac
	42	}
	43
	44	## __mdw_programp NAME
	45	##
	46	## Does NAME exist as an executable program?
	47	__mdw_programp () { type >/dev/null 2>&1 "$1"; }
	48
	49	## __mdw_setconf VAR CONF [DEFAULT]
	50	##
	51	## If CONF is defined in `~/.mdw.conf' then set VAR to its value; otherwise,
	52	## set VAR to DEFAULT, if given; otherwise, do nothing at all.
	53	__mdw_setconf () {
	54	local var=$1 conf=$2 val; shift 2
	55	if val=$(mdw-conf 2>/dev/null "$conf" "$@"); then
	56	eval "$var=\$val; export $var"
	57	fi
	58	}
	59
dbf14608 MW	60	## __mdw_export_if_defined VAR ...
	61	##
	62	## If VARs are defined, then export them.
	63	__mdw_export_if_defined () {
	64	local var t
	65	for var in "$@"; do
	66	eval t=\${$var+t}
	67	case $t in t) export $var ;; esac
	68	done
	69	}
	70
74a53e28 MW	71	###--------------------------------------------------------------------------
	72	### Other preliminaries.
	73
	74	## Work out my home directory, resolving symbolic links.
	75	HOME=$(cd "$HOME"; pwd -P)
	76	case ${SCHROOT_SESSION_ID+t} in t) ;; *) cd "$HOME" ;; esac
	77
	78	## CDE's session structure is demented and doesn't leave us with a proper
	79	## logout hook, so synthesize one here.
	80	case ${DT+t} in t) trap "source $HOME/.shell-logout" EXIT; esac
	81
	82	###--------------------------------------------------------------------------
	83	### Set some basic paths.
	84
	85	## The main path.
	86	export PATH
	87	__mdw_addto PATH l \
	88	"$HOME"/bin \
	89	/usr/local/bin /usr/local/sbin /usr/local/games \
	90	/usr/bin /usr/sbin /usr/games \
	91	/usr/X11R6/bin /usr/local/X11R6/bin \
	92	/bin /sbin \
	93	/opt/nfast/bin /opt/nfast/sbin
	94
	95	## If we have Plan 9 from User Space, then add that in.
8fd6f7da MW	96	for i in /opt/plan9 /usr/local/plan9; do
	97	if [ -d $i ]; then
	98	PLAN9=$i; export PLAN9
	99	__mdw_addto PATH r $i/bin
	100	break
	101	fi
	102	done
74a53e28	103
b97b3f8e MW	104	## Check for some standard path hacks.
	105	for i in ccache; do
	106	__mdw_addto PATH l "$HOME"/bin/hacks/$i
	107	done
	108
74a53e28 MW	109	###--------------------------------------------------------------------------
	110	### Some other preliminaries.
	111
3f180a8a MW	112	## Set a per-process memory limit. It's much less common for a process to
	113	## need a lot of memory for a legitimate reason than for it to be a memory
	114	## leak or some other bug that's going to cause swap death for no good
	115	## reason.
1951337c	116	ulimit -Sv $(mdw-conf memory-limit 4194303)
3f180a8a	117
74a53e28 MW	118	## Establish a temporary directory.
	119	case ${TMPDIR+t} in
	120	t) ;;
	121	*) if __mdw_programp tmpdir; then eval $(tmpdir -b); fi
	122	esac
	123	TMP=$TMPDIR; export TMP
	124
	125	## Sensible umask if users have their own groups.
	126	umask 002
	127
	128	###--------------------------------------------------------------------------
	129	### Text editor configuration.
	130
	131	MDW_EDITOR=ed
	132	emacs_startup_args="--no-site-file --mdw-fast-startup -nw"
	133	for ed in \
	134	"emacs24 $emacs_startup_args" \
	135	"emacs23 $emacs_startup_args" \
	136	"emacs22 $emacs_startup_args" \
	137	"emacs21 $emacs_startup_args" \
	138	zile mg \
	139	"emacs -nw" \
	140	vi pico nano ae
	141	do
	142	name=${ed%% *}
	143	if __mdw_programp "$name"; then MDW_EDITOR=$ed; break; fi
	144	done
	145	EDITOR=mdw-editor VISUAL=mdw-editor
	146	export EDITOR VISUAL MDW_EDITOR
	147	unset ed emacs_startup_args
	148
	149	###--------------------------------------------------------------------------
	150	### Locale configuration.
	151
2c44f386 MW	152	case ${LC_MDWSSHLANG+t},${DISPLAY+t} in
	153	t,*)
	154	LANG=$LC_MDWSSHLANG
	155	;;
	156	,t)
74a53e28 MW	157	__mdw_setconf LANG x-ctype POSIX
	158	;;
	159	*)
	160	: LANG=${LC_CTYPE-${LC_ALL-$(mdw-conf console-ctype POSIX)}}
	161	case "$TERM,$(tty)" in
	162	linux,/dev/tty*)
	163	if { vt-is-UTF8 \|\| kbd_mode \| grep UTF-8; } >/dev/null 2>&1; then
2f27026a	164	ctype=.UTF-8
74a53e28 MW	165	else
	166	ctype=
	167	fi
	168	LANG=${LANG%.*}$ctype
	169	;;
	170	esac
	171	;;
	172	esac
	173	unset LC_ALL
	174	export LANG
	175
	176	LC_COLLATE=POSIX; export LC_COLLATE
	177
2c44f386 MW	178	case ${LANG+t} in
	179	t) LC_MDWSSHLANG=$LANG; export LC_MDWSSHLANG ;;
	180	esac
	181
74a53e28 MW	182	###--------------------------------------------------------------------------
	183	### Pagers.
	184
	185	## Choose a sensible pager.
	186	MDW_PAGER=more
	187	for pg in less more; do
	188	if __mdw_programp "$pg"; then MDW_PAGER=$(command -v "$pg"); break; fi
	189	done
	190	PAGER=mdw-pager METAMAIL_PAGER=mdw-pager
	191	export MDW_PAGER PAGER METAMAIL_PAGER
	192	unset pg
	193
	194	## Configure `less'.
74a53e28 MW	195	case ${LC_CTYPE-$LANG} in
	196	utf8 \| utf-8 \| UTF8 \| UTF-8) LESSCHARSET=utf-8 ;;
	197	*) LESSCHARSET=latin1 ;;
	198	esac
	199	export LESSCHARSET
	200	if __mdw_programp global; then
	201	LESSGLOBALTAGS=global
	202	export LESSGLOBALTAGS
	203	fi
	204
f3b4cd96 MW	205	## Get Debian `groff' to produce control sequences rather than overstriking.
	206	GROFF_SGR=t; export GROFF_SGR
	207
74a53e28 MW	208	###--------------------------------------------------------------------------
	209	### Miscellaneous things.
	210
	211	## Mail and general identification.
	212	__mdw_setconf MAIL mailbox /var/mail/mdw
	213	__mdw_setconf EMAIL email mdw@distorted.org.uk
	214	NAME="Mark Wooding"; export NAME
	215
	216	## News server.
	217	__mdw_setconf NNTPSERVER nntp-server
	218
	219	## Some programs want to know the hostname.
	220	case ${HOST+t} in t) ;; *) HOST=$(hostname); export HOST; esac
	221
	222	## HTTP and FTP proxies.
	223	http=$(mdw-conf http-proxy none)
	224	case "${http_proxy-none},$http" in
	225	*,none) ;;
	226	none,*) http_proxy=http://$http/; export http_proxy ;;
	227	esac
442bc88b MW	228	https=$(mdw-conf https-proxy none)
	229	case "${https_proxy-none},$https,${http_proxy-none}" in
	230	*,none,none) ;;
	231	none,none,*) https_proxy=$http_proxy; export https_proxy ;;
	232	none,,) https_proxy=http://$https/; export ftp_proxy ;;
	233	esac
74a53e28 MW	234	ftp=$(mdw-conf ftp-proxy none)
	235	case "${ftp_proxy-none},$ftp,${http_proxy-none}" in
	236	*,none,none) ;;
	237	none,none,*) ftp_proxy=$http_proxy; export ftp_proxy ;;
	238	none,,) ftp_proxy=http://$ftp/; export ftp_proxy ;;
	239	esac
442bc88b	240	unset http https ftp
74a53e28 MW	241
	242	## Ncurses programs should use the Unicode box-drawing characters because the
	243	## alternative character set stuff isn't supported well.
	244	NCURSES_NO_UTF8_ACS=1; export NCURSES_NO_UTF8_ACS
	245
	246	## Shut up Perl's readline machinery.
	247	PERL_READLINE_NOWARN=yes; export PERL_READLINE_NOWARN
	248
	249	## If we have `distcc' then tell `ccache' to use it.
	250	if __mdw_programp distcc; then CCACHE_PREFIX=distcc; export CCACHE_PREFIX; fi
	251
	252	## Choose a sensible web browser. If we have a display, try to pick a
	253	## graphical one.
	254	set -- elinks w3m lynx
	255	case ${DISPLAY+t} in
94526c3f	256	t) set -- mdw-iceweasel mdw-chrome iceweasel firefox "$@" ;;
74a53e28 MW	257	esac
	258	for b in "$@"; do
	259	if __mdw_programp $b; then BROWSER=$b; export BROWSER; break; fi
	260	done
	261	unset b
	262
	263	## Acquiring root privileges. This is mainly the job of `bashrc', but we
	264	## cache the mechanism here.
	265	__mdw_setconf __MDW_ROOTLY rootly
	266	BECOME="--preserve-environment"; export BECOME
	267
e0cc6986 MW	268	## `rsync' configuration.
	269	RSYNC_PROTECT_ARGS=1; export RSYNC_PROTECT_ARGS
	270
74a53e28 MW	271	## It's useful to see the little sigils in `ls'.
	272	case ${LS_OPTIONS+t} in t) ;; *) LS_OPTIONS="-F"; export LS_OPTIONS; esac
	273
	274	## Settings for BBC BASIC listing.
	275	export BASCAT="-l +n"
	276
	277	## Version control hacking.
	278	CVS_RSH=ssh; export CVS_RSH
	279	__mdw_setconf CVSROOT cvs-root
	280	__mdw_setconf SVNROOT svn-root
	281	P4CONFIG=.p4; export P4CONFIG
	282
	283	## Help X programs find their resources.
	284	XUSERFILESEARCHPATH="$HOME/.Xapps/%N:/usr/lib/X11/%T/%N%S"
	285	export XUSERFILESEARCHPATH
	286
	287	## Make OpenOffice.org do its thing properly.
	288	OOO_FORCE_DESKTOP=gnome; export OOO_FORCE_DESKTOP
	289
	290	## Hack Qt-ish things to be unstoatly.
2478e2f4	291	##QT_QPA_PLATFORMTHEME=gtk2; export QT_QPA_PLATFORMTHEME
e3a7c1c2	292	QT_AUTO_SCREEN_SCALE_FACTOR=0; export QT_AUTO_SCREEN_SCALE_FACTOR
74a53e28	293
eb174df8 MW	294	## Use X11 input method (including compose key sequences) everywhere.
	295	GTK_IM_MODULE=xim; export GTK_IM_MODULE
	296	QT_IM_MODULE=xim; export QT_IM_MODULE
	297
8308648a MW	298	## Don't hide scrollbars.
	299	GTK_OVERLAY_SCROLLING=0; export GTK_OVERLAY_SCROLLING
	300
ab94ba6e MW	301	## Rust Cargo things.
	302	CARGO_HOME=$HOME/.cache/cargo; export CARGO_HOME
	303
74a53e28 MW	304	## Configure `ps'.
	305	PS_PERSONALITY=gnu; export PS_PERSONALITY
	306
f9ef6491	307	## Configure Debian building.
b0b75b94	308	DEB_BUILD_OPTIONS="parallel=$(mdw-conf make-parallel 4)"
f9ef6491 MW	309	export DEB_BUILD_OPTIONS
f9ef6491 MW	310
18045f11 MW	311	## Turn off angry fruit salad error messages from things.
	312	DPKG_COLORS=never; export DPKG_COLORS
	313	GCC_COLORS=; export GCC_COLORS
	314	CCC_OVERRIDE_OPTIONS="#^-fno-color-diagnostics"; export CCC_OVERRIDE_OPTIONS
	315
85bd3826 MW	316	## Local library directories.
	317	__mdw_addto PERLLIB l $HOME/lib/perl; __mdw_export_if_defined PERLLIB
	318	__mdw_addto PYTHONPATH l $HOME/lib/python; __mdw_export_if_defined PYTHONPATH
	319
74a53e28 MW	320	## Disable core dumps.
	321	ulimit -S -c 0
	322
	323	###--------------------------------------------------------------------------
	324	### Authentication and SSH hacking.
	325
	326	## Start an authentication agent. This is unnecessarily fiddly. If there's
	327	## a Gnome keyring server then we should use that; unfortunately, it may not
	328	## yet have had a chance to populate the environment with its settings, so we
	329	## go off and fetch them.
	330	if { { [ "$GNOME_KEYRING_CONTROL" ] &&
	331	[ -s "$GNOME_KEYRING_CONTROL" ]; } \|\|
	332	{ [ "$DBUS_SESSION_BUS_ADDRESS" ] &&
	333	__mdw_programp gnome-keyring-daemon; }; } &&
	334	stuff=$(gnome-keyring-daemon -s -c gpg 2>/dev/null)
	335	then
	336	eval "$stuff"
	337	export SSH_AUTH_SOCK GPG_AGENT_INFO
	338	fi
	339
	340	## If we still don't have an agent then start one with a stable name.
	341	eval $(start-ssh-agent -b)
	342
	343	## Decide whether this session should be considered `secure'. A session is
	344	## secure if it's on a secure TTY, but there are lots of ways of finding out
	345	## which TTYs are secure.
	346	if [ -z "$__mdw_bashrc" ] && [ "$__mdw_force_secure_session" = "yes" ] \|\|
	347	( tty="`tty`" devtty="(/dev/)?${tty#/dev/}"
	348	{ { { [ -e /etc/securetty ] && sectty=/etc/securetty; } \|\|
	349	{ [ -e /etc/securettys ] && sectty=/etc/securettys; }; } &&
	350	egrep "$devtty" $sectty >/dev/null; } \|\|
	351	{ [ -e /etc/default/login ] &&
	352	egrep "^CONSOLE=$devtty" /etc/default/login >/dev/null; } \|\|
	353	case "${tty#/dev/}" in
	354	console\|systty\|tty[0-9]) true ;;
	355	*) false ;;
	356	esac )
	357	then
	358	__mdw_sechost=$HOST; export __mdw_sechost
	359	fi
	360
	361	## Start a passphrase pixie if there is one and it's not already running.
	362	if pixie --version >/dev/null 2>&1; then
	363	mkdir -p "$HOME/.catacomb"
	364	pixie=${CATACOMB_PIXIE-$HOME/.catacomb/pixie}
	365	if [ -S "$pixie" ] && pixie -C help >/dev/null 2>&1; then
	366	:
	367	else
	368	pixie -d 2>>"$HOME/.catacomb/pixie.log"
	369	__mdw_started_pixie=yes
	370	fi
	371	fi
	372
	373	###--------------------------------------------------------------------------
	374	### Finishing touches.
	375
	376	## For old-fashioned Bourne-ish shells, set up per-shell definitions.
	377	ENV=$HOME/.shrc; export ENV
	378
	379	## If there's a local hook then run it.
	380	if [ -f "$HOME/.profile-local" ]; then . "$HOME/.profile-local"; fi
	381
	382	###----- That's all, folks --------------------------------------------------