#! /bin/zsh
# -*- ksh -*-
# $Log: .xsession,v $

# for emacs frame titles
export HOST

# set environment only
export ENVONLY=yes
. ~/.zshenv
unset ENVONLY

# exported for .fvwm2rc
XLOGFILE=$HOME/.xlog.$HOST
export XLOGFILE


if [[ -r "$XLOGFILE" ]]; then
  /bin/mv $XLOGFILE $XLOGFILE.bak
fi

echo "$USER on $DISPLAY ($HOST)\n" > $XLOGFILE

export AUDIO=$DISPLAY
# setenv SPEAKER internal
#    xrdb -cpp /lib/cpp -load $HOME/.Xresources

#setenv SPCHOME /usr/lib/SoftPC
#xv -root -quit .vue/interdog.gif &
#  if ( -f $HOME/.raw_tty ) rm $HOME/.raw_tty


# Take the access control list directly from xhost's output, remove
# lines matching 'access control' (status line), remove `INET:'
# prefixes, and prefix each with a minus sign because X11R5 xhost
# needs EACH HOSTNAME PREFIXED with a minus sign to remove it.
#
# expands to something like:
#   xhost -caext37.spd.louisville.edu -localhost -rigel.spd.louisville.edu
#
/usr/bin/X11/xhost -
/usr/bin/X11/xhost `/usr/bin/X11/xhost | \
  /usr/bin/grep -v '^access control' | \
  /usr/bin/sed 's/^INET://g;s/^/-/g'`


xmodmap - << EOF >>& $XLOGFILE
! switch off Caps Lock?
    !clear lock
    !keycode 55 = Control_L
    !keycode 86 = Caps_Lock
    !keycode 39 = grave asciitilde guillemotleft guillemotright
    !keycode 71 = Escape
    !add Lock = Caps_Lock
    !add Control = Control_L

    ! left alt -> meta, right alt -> Alt Graphics
    !keysym Alt_L = Meta_L
    !    keysym F12 = Multi_key
    !clear mod1
    !add mod1 = Meta_L
    !clear mod2
    !add mod2 = Alt_R Mode_switch
    !! This is magic!
    !keysym Alt_R = Mode_switch

    !remove Mod1 = Mode_switch
    !keysym Backspace = Delete
    !keycode 34 = Meta_L
    !add mod1 = Meta_L


    !clear mod1
    !add mod1 = Alt_R

    keysym A = a A plusminus exclamdown
    keysym C = c C ae AE
    keysym E = e E ecircumflex Ecircumflex
    keysym L = l L threesuperior sterling
    keysym N = n N ntilde Ntilde
    keysym O = o O oacute Oacute
    keysym S = s S paragraph brokenbar
    keysym X = x X onequarter notsign
    keysym Z = z Z questiondown macron

! use 'plalt' to activate right Alt for Polish letters
!    remove mod1 = Alt_R
!    keysym Alt_R = Mode_switch Alt_R
!    add mod3 = Alt_R

    ! for SGI console
    ! keysym Num_Lock = Escape
    ! keysym ISO_Left_Tab = hpBackTab

    keysym KP_Insert = KP_0
    keysym KP_End = KP_1
    keysym KP_Down = KP_2
    keysym KP_Next = KP_3
    keysym KP_Left = KP_4

    keysym KP_Right = KP_6
    keysym KP_Home = KP_7
    keysym KP_Up = KP_8
    keysym KP_Prior = KP_9
EOF

# console only settings
case "$DISPLAY" in
  :0*)
    xset fp+ /usr/contrib/apps/mathematica/SystemFiles/Fonts/X,/usr/contrib/apps/mathematica/SystemFiles/Fonts/Type1,/usr/contrib/share/X11/fonts/latin2/100dpi,/usr/contrib/share/X11/fonts/latin2/75dpi,/usr/contrib/share/X11/fonts/latin2/misc,/usr/contrib/share/X11/fonts/Japanese,/usr/contrib/share/X11/fonts/Latin1,/usr/contrib/share/X11/fonts/Latin2,/usr/contrib/share/X11/fonts/Latin3,/usr/contrib/share/X11/fonts/Latin4,/usr/contrib/share/X11/fonts/Latin5,/usr/contrib/share/X11/fonts/Latin6,/usr/contrib/share/X11/fonts/Korean,/usr/contrib/share/X11/fonts/Thai,/usr/contrib/share/X11/fonts/Cyrillic,/usr/contrib/share/X11/fonts/Arabic,/usr/contrib/share/X11/fonts/Chinese-GB,/usr/contrib/share/X11/fonts/Chinese-CNS,/usr/contrib/share/X11/fonts/Chinese-Big5,/usr/contrib/share/X11/fonts/Chinese-Other

    xmodmap - << EOF >>& $XLOGFILE
keysym KP_Begin = KP_5
EOF
    ;;
esac

xsetroot -solid black
xset   b 50 440 30   c off   m 3/2 2   r on   s off

exec /usr/contrib/bin/fvwm2 -cmd "/usr/contrib/lib/X11/fvwm2/FvwmM4 -debug -m4-prefix $HOME/.fvwm2rc" > $XLOGFILE 2>&1

#/usr/contrib/bin/fvwm2 -cmd "/usr/contrib/lib/X11/fvwm2/FvwmM4 -m4-prefix -m4-squote { -m4-equote } $HOME/.fvwm2rc" > $XLOGFILE 2>&1
#/usr/contrib/bin/fvwm2 -f ".fvwm2rc" > $XLOGFILE 2>&1

exit 0
#exec /usr/bin/X11/reaper