5 ###--------------------------------------------------------------------------
8 ## Progress indicators.
11 case $info in yes) echo "- $*" >&2 ;; esac
19 case $what in bg*) bg=yes what=${what#bg} ;; esac
33 if type -t >/dev/null "$i"; then choice=$i; break; fi
35 info "pick $what = $choice"
39 ###--------------------------------------------------------------------------
63 tag=*) atomtag=/${opt#tag=} ;;
66 info | run | start | wait | vnc) eval "$opt=yes" ;;
67 noinfo | norun | nostart | nowait | novnc) eval "${opt#no}=no" ;;
69 *) echo "unknown option $opt" >&2; exit 1 ;;
73 ###--------------------------------------------------------------------------
74 ### Iniitial settings.
76 ## Assume X sessions are secure.
77 export __mdw_sechost="`hostname`"
79 ## Obtain the screen dimensions.
80 case ",$XWIDTH,$XHEIGHT," in
81 *,,*) eval $(xscsize -bx) ;;
83 info "screen size = $XWIDTH x $XHEIGHT"
86 ## Load the X resource database.
87 run init xrdb -override $HOME/.Xdefaults
90 run init xset b 5 2000 50
91 run init xset r rate 500 50
95 xmodmap -e 'keysym BackSpace = BackSpace BackSpace'
98 ###--------------------------------------------------------------------------
99 ### Start a window manager.
101 wm=$(pick_program window-manager enlightenment e16 twm)
104 enlightenment,yes | e16,yes)
105 wmopts="$eopts -econfdir $HOME/.enlightenment-vnc"
110 run bginit $wm $wmopts
112 for i in $(seq 10); do
114 if eesh version >/dev/null 2>&1; then
121 info "$wm started ok"
122 run init xsetroot -cursor_name left_ptr
125 info "$wm failed to start!"
130 start-window-manager () {
131 case $(type -t start-$wm || echo "not-found") in
136 run bginit $wm $wmopts
141 ###--------------------------------------------------------------------------
142 ### Random useful clients.
144 start-clients-local () { :; }
148 case $vnc in no) run bginit gnome-session ;; esac
154 ###--------------------------------------------------------------------------
155 ### Main screen layout.
157 ## Choose appropriate clients.
158 emacs=$(pick_program emacs emacs23 emacs22 emacs21 emacs)
159 term=$(pick_program terminal pterm Eterm xterm)
161 ## Emacs window measurements.
164 e_colwd=492 e_hextra=34
165 e_colchars=82 e_cextra=-2
166 e_lineht=13 e_vextra=52
169 e_colwd=492 e_hextra=8
170 e_colchars=82 e_cextra=-6
171 e_lineht=13 e_vextra=46
175 ## Terminal window measurements.
177 pterm) t_wd=504 t_lineht=13 t_vextra=23 geom=-geometry;;
178 Eterm) t_wd=504 t_lineht=13 t_vextra=23 geom=-g;;
179 xterm) t_wd=507 t_lineht=13 t_vextra=27 geom=-geometry;;
182 ## GNOME stuff measurements.
183 declare -i xbound="XWIDTH - 113"
185 ## Choose a width for Emacs.
187 ## We'd like it to be as wide as possible, allowing for a column of xterms
188 ## down the right hand side. However, I'd prefer a double-width Emacs to a
189 ## single-width Emacs and xterms. If it's not going to work at all, a single
190 ## Emacs column will have to do. Also, there's a strange thing with Emacs21
191 ## and the toolbar, so we add on some rows which are later mysteriously
194 declare -i ecols="(xbound - t_wd - e_hextra)/e_colwd"
195 if (( ecols < 2 && xbound > e_colwd * 2 + e_hextra )); then
197 elif (( ecols < 1 )); then
202 emacsx="ecols * e_colchars + e_cextra" \
203 emacsy="(XHEIGHT - e_vextra)/e_lineht"
206 GDK_NATIVE_WINDOWS=1 run bgclients noip \
207 $emacs -geometry ${emacsx}x${emacsy}+0+0
210 ## Now place some xterms.
212 ## A few smaller xterms are in general better than one great big one. 35
213 ## lines is a good height for most terminals. 25 lines is a minimum. The
214 ## strategy for doling out xterms into a column is to make as many 35-liners
215 ## as we can, until the remaining space would be too small for a 25-liner.
216 ## If we can get two 25s out of that then we do (largest first); otherwise
217 ## just make one big one. We stop at the end of a page, once we've made
222 ## Initialize some parameters.
223 declare -i x="ecols * e_colwd + e_hextra" xb=xbound
224 declare -i n=0 pgx=0 l h y ht
225 declare -i hstd="35 * t_lineht + t_vextra" hmin="25 * t_lineht + t_vextra"
230 ## Start a new iteration.
231 if ((x + t_wd > xb)); then
232 if ((n >= 3)); then break; fi
233 x="pgx + XWIDTH" pgx="pgx + XWIDTH" xb="xb + XWIDTH"
236 ## Make large xterms.
238 while ((ht - hstd >= hmin)); do
239 run bgclients $term $geom 80x35+$x+$y
240 y="y + hstd" ht="ht - hstd" n="n + 1"
243 ## Fill the remaining space.
244 if ((ht >= 2 * hmin)); then h="ht - hmin"; else h=ht; fi
245 l="(h - t_vextra)/t_lineht" h="l * t_lineht + t_vextra"
246 run bgclients $term $geom 80x$l+$x+$y
247 y="y + h" ht="ht - h" n="n + 1"
248 if ((ht >= hmin)); then
249 run bgclients $term $geom 80x25+$x+$y
256 ###--------------------------------------------------------------------------
260 declare title=$1 hist=$2; shift 2
261 cmd=$(xgetline -t "$title" -p "_Command:" -Hl "$HOME/$hist") &&
265 ###--------------------------------------------------------------------------
268 atom=XINIT_COMMAND$atomtag
273 info "waiting on $atom"
274 line=$(xatom wait $atom)
279 xmsg -I -t "xinitrc help" -d "xinitrc commands" - <<EOF &
281 :emacs :xterms :window-manager :clients
282 :ask-run :ask-command
289 :emacs | :xterms | :window-manager | :clients)
299 info "restarting xinitrc"
300 exec "$0" wait nostart
303 req "Shell command" .cmd.hist xcatch -FMiscFixed6x13 -- sh -c&
306 req "xinit command" .xinit.hist xatom set XINIT_COMMAND$atomtag&
309 xmsg -E -t "xinitrc error" "Unknown command \`$line'" &
322 ###--------------------------------------------------------------------------
323 ### Actually start things up.
325 if [ -f $HOME/.xinitrc-local ]; then
326 . $HOME/.xinitrc-local
331 info "starting standard clients"
339 info "not starting standard clients"
348 info "not waiting before exit"
352 ###----- That's all, folks --------------------------------------------------