mdw@git.distorted.org.uk Git - profile/blob - xinitrc

   1 #! /bin/bash
   2 ###
   3 ### X startup script
   4
   5 ###--------------------------------------------------------------------------
   6 ### Utility functions.
   7
   8 ## Progress indicators.
   9 info=yes
  10 info () {
  11   case $info in yes) echo "- $*" >&2 ;; esac
  12 }
  13
  14 run=yes
  15 run () {
  16   local what=$1; shift
  17   local bg=no
  18
  19   case $what in bg*) bg=yes what=${what#bg} ;; esac
  20   info "run $what: $*"
  21
  22   case "$run,$bg" in
  23     yes,no) "$@" ;;
  24     yes,yes) "$@" & ;;
  25   esac
  26 }
  27
  28 ## Program choice
  29 pick_program () {
  30   local what=$1; shift
  31   local choice=false
  32   for i in "$@"; do
  33     if type -t >/dev/null "$i"; then choice=$i; break; fi
  34   done
  35   info "pick $what = $choice"
  36   echo "$choice"
  37 }
  38
  39 ###--------------------------------------------------------------------------
  40 ### Parse arguments.
  41
  42 vnc=no
  43 atomtag=
  44 start=yes
  45 wait=yes
  46
  47 for opt; do
  48   case "$opt" in
  49     help)
  50       cat <<EOF
  51 Options:
  52   tag=TAG
  53   [no]trace
  54   [no]info
  55   [no]run
  56   [no]start
  57   [no]wait
  58   [no]vnc
  59 EOF
  60       exit
  61       ;;
  62
  63     tag=*) atomtag=/${opt#tag=} ;;
  64     trace) set -x ;;
  65     notrace) set +x ;;
  66     info | run | start | wait | vnc) eval "$opt=yes" ;;
  67     noinfo | norun | nostart | nowait | novnc) eval "${opt#no}=no" ;;
  68
  69     *) echo "unknown option $opt" >&2; exit 1 ;;
  70   esac
  71 done
  72
  73 ###--------------------------------------------------------------------------
  74 ### Iniitial settings.
  75
  76 ## Assume X sessions are secure.
  77 export __mdw_sechost="`hostname`"
  78
  79 ## Obtain the screen dimensions.
  80 case ",$XWIDTH,$XHEIGHT," in
  81   *,,*) eval $(xscsize -bx) ;;
  82 esac
  83 info "screen size = $XWIDTH x $XHEIGHT"
  84
  85 initialize () {
  86   ## Load the X resource database.
  87   run init xrdb -override $HOME/.Xdefaults
  88
  89   ## Random xsettery.
  90   run init xset b 10 2000 50
  91   run init xset r rate 500 50
  92   run init xset m 2 1
  93
  94   ## Gnome settings.
  95   case $vnc in no) run bginit gnome-settings-daemon ;; esac
  96 }
  97
  98 ###--------------------------------------------------------------------------
  99 ### Start a window manager.
 100
 101 wm=$(pick_program window-manager enlightenment e16 twm)
 102 wmopts=""
 103 case "$wm,$vnc" in
 104   enlightenment,yes | e16,yes)
 105     wmopts="$eopts -econfdir $HOME/.enlightenment-vnc"
 106     ;;
 107 esac
 108
 109 start-window-manager () {
 110   run bginit $wm $wmopts
 111 }
 112
 113 ###--------------------------------------------------------------------------
 114 ### Random useful clients.
 115
 116 start-clients () {
 117   ## Mail notification.
 118   run bginit mail-notification
 119
 120   ## System monitor.
 121   case $vnc in no) run bginit gkrellm ;; esac
 122
 123   ## Screensaver.
 124   case $vnc in
 125     no)
 126       run init xscreensaver-command -exit
 127       run bginit xscreensaver -no-splash
 128       ;;
 129   esac
 130
 131   ## Panel.
 132   case $vnc in no) run bginit gnome-panel ;; esac
 133 }
 134
 135 ###--------------------------------------------------------------------------
 136 ### Main screen layout.
 137
 138 ## Choose appropriate clients.
 139 emacs=$(pick_program emacs emacs22 emacs21 emacs)
 140 term=$(pick_program terminal pterm Eterm xterm)
 141
 142 ## Emacs window measurements.
 143 case "$emacs" in
 144   emacs21 | emacs)
 145     e_colwd=492 e_hextra=34
 146     e_colchars=82 e_cextra=-2
 147     e_lineht=13 e_vextra=52
 148     ;;
 149   emacs22)
 150     e_colwd=492 e_hextra=8
 151     e_colchars=82 e_cextra=-6
 152     e_lineht=13 e_vextra=46
 153     ;;
 154 esac
 155
 156 ## Terminal window measurements.
 157 case "$term" in
 158   pterm) t_wd=503 t_lineht=13 t_vextra=23 geom=-geometry;;
 159   Eterm) t_wd=504 t_lineht=13 t_vextra=23 geom=-g;;
 160   xterm) t_wd=507 t_lineht=13 t_vextra=27 geom=-geometry;;
 161 esac
 162
 163 ## GNOME stuff measurements.
 164 declare -i xbound="XWIDTH - 113"
 165
 166 ## Choose a width for Emacs.
 167 ##
 168 ## We'd like it to be as wide as possible, allowing for a column of xterms
 169 ## down the right hand side.  However, I'd prefer a double-width Emacs to a
 170 ## single-width Emacs and xterms.  If it's not going to work at all, a single
 171 ## Emacs column will have to do.  Also, there's a strange thing with Emacs21
 172 ## and the toolbar, so we add on some rows which are later mysteriously
 173 ## subtracted.
 174
 175 declare -i ecols="(xbound - t_wd - e_hextra)/e_colwd"
 176 if (( ecols < 2 && xbound > e_colwd * 2 + e_hextra )); then
 177   ecols=2
 178 elif (( ecols < 1 )); then
 179   ecols=1
 180 fi
 181
 182 declare -i \
 183   emacsx="ecols * e_colchars + e_cextra" \
 184   emacsy="(XHEIGHT - e_vextra)/e_lineht"
 185
 186 start-emacs () {
 187   run bgclients noip $emacs -geometry ${emacsx}x${emacsy}+0+0
 188 }
 189
 190 ## Now place some xterms.
 191 ##
 192 ## A few smaller xterms are in general better than one great big one.  35
 193 ## lines is a good height for most terminals.  25 lines is a minimum.  The
 194 ## strategy for doling out xterms into a column is to make as many 35-liners
 195 ## as we can, until the remaining space would be too small for a 25-liner.
 196 ## If we can get two 25s out of that then we do (largest first); otherwise
 197 ## just make one big one.  We stop at the end of a page, once we've made
 198 ## three xterms.
 199
 200 start-xterms () {
 201
 202   ## Initialize some parameters.
 203   declare -i x="ecols * e_colwd + e_hextra"
 204   declare -i n=0 pgx=0 l h y ht
 205   declare -i hstd="35 * t_lineht + t_vextra" hmin="25 * t_lineht + t_vextra"
 206
 207   ## Do the placement.
 208   while :; do
 209
 210     ## Start a new iteration.
 211     if ((x + t_wd > xbound)); then
 212       if ((n >= 3)); then break; fi
 213       x="pgx + XWIDTH" pgx="pgx + XWIDTH" xbound="xbound + XWIDTH"
 214     fi
 215
 216     ## Make large xterms.
 217     y=0 ht=XHEIGHT
 218     while ((ht - hstd >= hmin)); do
 219       run bgclients $term $geom 80x35+$x+$y
 220       y="y + hstd" ht="ht - hstd" n="n + 1"
 221     done
 222
 223     ## Fill the remaining space.
 224     if ((ht >= 2 * hmin)); then h="ht - hmin"; else h=ht; fi
 225     l="(h - t_vextra)/t_lineht" h="l * t_lineht + t_vextra"
 226     run bgclients $term $geom 80x$l+$x+$y
 227     y="y + h" ht="ht - h" n="n + 1"
 228     if ((ht >= hmin)); then
 229       run bgclients $term $geom 80x25+$x+$y
 230       n="n + 1"
 231     fi
 232     x="x + t_wd"
 233   done
 234 }
 235
 236 ###--------------------------------------------------------------------------
 237 ### Final waiting.
 238
 239 atom=XINIT_COMMAND$atomtag
 240
 241 xwait () {
 242   while :; do
 243     xatom delete $atom
 244     info "waiting on $atom"
 245     line=$(xatom wait $atom)
 246     info "xatom: $line"
 247
 248     case "$line" in
 249       :help)
 250         xmsg -I -t "xinitrc help" -d "xinitrc commands" - <<EOF &
 251 :help
 252 :emacs :xterms :window-manager :clients
 253 :init
 254 :terminal
 255 ! SHELL-COMMAND
 256 CLIENT
 257 EOF
 258         ;;
 259       :emacs | :xterms | :window-manager | :clients)
 260         start-${line#:}
 261         ;;
 262       :terminal)
 263         run bgclients $term
 264         ;;
 265       :init)
 266         initialize
 267         ;;
 268       :exec)
 269         info "restarting xinitrc"
 270         exec "$0" wait nostart
 271         ;;
 272       :*)
 273         xmsg -E -t "xinitrc error" "Unknown command \`$line'" &
 274         ;;
 275       !*)
 276         eval "${line#!}"
 277         ;;
 278       *)
 279         set -- $line
 280         run bgclients "$@"
 281         ;;
 282     esac
 283   done
 284 }
 285
 286 ###--------------------------------------------------------------------------
 287 ### Actually start things up.
 288
 289 case "$start" in
 290   yes)
 291     info "starting standard clients"
 292     initialize
 293     start-window-manager
 294     start-clients
 295     start-emacs
 296     start-xterms
 297     ;;
 298   no)
 299     info "not starting standard clients"
 300     ;;
 301 esac
 302
 303 case "$wait" in
 304   yes)
 305     xwait
 306     ;;
 307   no)
 308     info "not waiting before exit"
 309     ;;
 310 esac
 311
 312 ###----- That's all, folks --------------------------------------------------