#!/bin/bash
# Run by system.xinitrc on startup -- must be executable.
#

# The following is mostly a symlink directory.
PRJDIR=Starport 	#Private    # /usr/local/starport	# Private/Tax

if [ -x /usr/bin/X11/xtoolwait ]; then
   function TW () {
      xtoolwait $*
   }
   function SL () {
      FOO=$1
   }
else
   function TW () {
      $* & sleep 1
   }
   function SL () {
      sleep $1
   }
fi

picture=none
bitmap=none
# /usr/local/src/logos/llogo.tile.xbm
[ -f $HOME/.background ] && picture=$HOME/.background

if [ -x /usr/bin/X11/xsetbg ]; then
   BG="/usr/bin/X11/xsetbg -fullscreen -colors 128"
else
   BG="/usr/bin/X11/xv -root -quit"
fi

if [ -f "$picture" ]; then
   ( nice $BG $picture )& sleep 5
elif [ -f "$bitmap" ]; then
   nice xsetroot -bg steelblue -bitmap $f &
fi

# Configure the screen, keyboard, etc.

xset r			  # turn on keyboard repeat
xhost +			  # allow access after su

# Start the ``dashboard'' utilities:

if [ -x /usr/local/bin/dclock ] || [ -x /usr/bin/X11/dclock ]; then
   TW dclock -name dclock
else
   TW oclock -geometry 150x50+-3+-3 -jewel yellow 
fi

TW xclock -name xclock-d
TW xman
TW xbiff 
TW xload
[ -f /usr/bin/X11/xpostit ] && ( TW xpostit )

if [ -f /usr/bin/ical ]; then
   TW ical -iconic
elif [ -f /usr/bin/X11/xcalendar ]; then
   TW xcalendar -iconic -name thisMonth
fi

if [ "central" = `hostname -s` ]; then
   [ -f /usr/local/bin/xdialdctl ] && TW xdialdctl
fi

# Start a login window.  RedHat's color xterm loses big on light backgrounds.

if [ -f XXX/usr/bin/X11/color_xterm ]; then
   TW color_xterm -name login -ls
else
   TW xterm -name login -ls
fi
sleep 2		# it takes a few seconds to run .profile 


( # The following is run in a subshell to make the dashboard start faster
sleep 1
# Start a web browser.
### The PIA is convenient but takes a long time to start
#TW xterm -geometry +22-22 -name pia -e $HOME/bin/pia -c chimera; sleep 10
if [ "central" = `hostname -s` ] && [ -x $HOME/pia/bin/pia ]; then
   (ps -x | grep -q '[/]'pia) || TW xterm -geometry 80x16+0+230 -fn fixed -name pia -e $HOME/pia/bin/pia
   ( sleep 3 && http_proxy="http://`hostname -s`:8888" chimera & )
else
   TW chimera
fi
#TW Mosaic
#TW netscape -install; SL 5

# Start an editor

if [ "central" = `hostname -s` ]; then
   TW emacs $PRJDIR ; sleep 5
fi

)&

# [ -x /usr/bin/X11/xphoon ] && xphoon  # -t 720&
#xeyes -geometry 151x82+110+154&
#oclock -transparent -geometry 293x217+38+123&