#! /bin/bash ### ### X startup script ###-------------------------------------------------------------------------- ### Utility functions. ## Progress indicators. info=yes info () { case $info in yes) echo "- $*" >&2 ;; esac } run=yes run () { local what=$1; shift local bg=no case $what in bg*) bg=yes what=${what#bg} ;; esac info "run $what: $*" case "$run,$bg" in yes,no) "$@" ;; yes,yes) "$@" & ;; esac } ## Program choice pick_program () { local what=$1; shift local choice=false for i in "$@"; do if type -t >/dev/null "$i"; then choice=$i; break; fi done info "pick $what = $choice" echo "$choice" } ###-------------------------------------------------------------------------- ### Parse arguments. vnc=no atomtag= start=yes wait=yes for opt; do case "$opt" in help) cat <&2; exit 1 ;; esac done ###-------------------------------------------------------------------------- ### Iniitial settings. ## Assume X sessions are secure. export __mdw_sechost="`hostname`" ## Obtain the screen dimensions. case ",$XWIDTH,$XHEIGHT," in *,,*) eval $(xscsize -bx) ;; esac info "screen size = $XWIDTH x $XHEIGHT" initialize () { ## Load the X resource database. run init xrdb -override $HOME/.Xdefaults ## Random xsettery. run init xset b 10 2000 50 run init xset r rate 500 50 run init xset m 2 1 ## Key mappings. xmodmap -e 'keysym BackSpace = BackSpace BackSpace' ## Gnome settings. case $vnc in no) run bginit gnome-settings-daemon ;; esac } ###-------------------------------------------------------------------------- ### Start a window manager. wm=$(pick_program window-manager enlightenment e16 twm) wmopts="" case "$wm,$vnc" in enlightenment,yes | e16,yes) wmopts="$eopts -econfdir $HOME/.enlightenment-vnc" ;; esac start-window-manager () { run bginit $wm $wmopts } ###-------------------------------------------------------------------------- ### Random useful clients. start-clients-local () { :; } start-clients () { ## Mail notification. run bginit mail-notification ## Policykit authentication agent. agent=/usr/lib/policykit-1-gnome/polkit-gnome-authentication-agent-1 if [ -x $agent ]; then run bginit $agent; fi ## System monitor. case $vnc in no) run bginit gkrellm ;; esac ## Screensaver. case $vnc in no) run init xscreensaver-command -exit run bginit xscreensaver -no-splash ;; esac ## Panel. case $vnc in no) run bginit gnome-panel ;; esac ## System tray. ## run bginit stalonetray ## Local clients. start-clients-local } ###-------------------------------------------------------------------------- ### Main screen layout. ## Choose appropriate clients. emacs=$(pick_program emacs emacs23 emacs22 emacs21 emacs) term=$(pick_program terminal pterm Eterm xterm) ## Emacs window measurements. case "$emacs" in emacs21 | emacs) e_colwd=492 e_hextra=34 e_colchars=82 e_cextra=-2 e_lineht=13 e_vextra=52 ;; emacs22 | emacs23) e_colwd=492 e_hextra=8 e_colchars=82 e_cextra=-6 e_lineht=13 e_vextra=46 ;; esac ## Terminal window measurements. case "$term" in pterm) t_wd=504 t_lineht=13 t_vextra=23 geom=-geometry;; Eterm) t_wd=504 t_lineht=13 t_vextra=23 geom=-g;; xterm) t_wd=507 t_lineht=13 t_vextra=27 geom=-geometry;; esac ## GNOME stuff measurements. declare -i xbound="XWIDTH - 113" ## Choose a width for Emacs. ## ## We'd like it to be as wide as possible, allowing for a column of xterms ## down the right hand side. However, I'd prefer a double-width Emacs to a ## single-width Emacs and xterms. If it's not going to work at all, a single ## Emacs column will have to do. Also, there's a strange thing with Emacs21 ## and the toolbar, so we add on some rows which are later mysteriously ## subtracted. declare -i ecols="(xbound - t_wd - e_hextra)/e_colwd" if (( ecols < 2 && xbound > e_colwd * 2 + e_hextra )); then ecols=2 elif (( ecols < 1 )); then ecols=1 fi declare -i \ emacsx="ecols * e_colchars + e_cextra" \ emacsy="(XHEIGHT - e_vextra)/e_lineht" start-emacs () { GDK_NATIVE_WINDOWS=1 run bgclients noip \ $emacs -geometry ${emacsx}x${emacsy}+0+0 } ## Now place some xterms. ## ## A few smaller xterms are in general better than one great big one. 35 ## lines is a good height for most terminals. 25 lines is a minimum. The ## strategy for doling out xterms into a column is to make as many 35-liners ## as we can, until the remaining space would be too small for a 25-liner. ## If we can get two 25s out of that then we do (largest first); otherwise ## just make one big one. We stop at the end of a page, once we've made ## three xterms. start-xterms () { ## Initialize some parameters. declare -i x="ecols * e_colwd + e_hextra" xb=xbound declare -i n=0 pgx=0 l h y ht declare -i hstd="35 * t_lineht + t_vextra" hmin="25 * t_lineht + t_vextra" ## Do the placement. while :; do ## Start a new iteration. if ((x + t_wd > xb)); then if ((n >= 3)); then break; fi x="pgx + XWIDTH" pgx="pgx + XWIDTH" xb="xb + XWIDTH" fi ## Make large xterms. y=0 ht=XHEIGHT while ((ht - hstd >= hmin)); do run bgclients $term $geom 80x35+$x+$y y="y + hstd" ht="ht - hstd" n="n + 1" done ## Fill the remaining space. if ((ht >= 2 * hmin)); then h="ht - hmin"; else h=ht; fi l="(h - t_vextra)/t_lineht" h="l * t_lineht + t_vextra" run bgclients $term $geom 80x$l+$x+$y y="y + h" ht="ht - h" n="n + 1" if ((ht >= hmin)); then run bgclients $term $geom 80x25+$x+$y n="n + 1" fi x="x + t_wd" done } ###-------------------------------------------------------------------------- ### Requesters. req () { declare title=$1 hist=$2; shift 2 cmd=$(xgetline -t "$title" -p "Command:" -Hl "$HOME/$hist") && exec "$@" "$cmd" } ###-------------------------------------------------------------------------- ### Final waiting. atom=XINIT_COMMAND$atomtag xwait () { while :; do xatom delete $atom info "waiting on $atom" line=$(xatom wait $atom) info "xatom: $line" case "$line" in :help) xmsg -I -t "xinitrc help" -d "xinitrc commands" - <