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
10 2000 50
91 run init xset r rate
500 50
95 xmodmap
-e
'keysym BackSpace = BackSpace BackSpace'
98 case $vnc in no
) run bginit gnome-settings-daemon
;; esac
101 ###--------------------------------------------------------------------------
102 ### Start a window manager.
104 wm
=$
(pick_program window-manager enlightenment e16 twm
)
107 enlightenment
,yes | e16
,yes)
108 wmopts
="$eopts -econfdir $HOME/.enlightenment-vnc"
112 start-window-manager
() {
113 run bginit
$wm $wmopts
116 ###--------------------------------------------------------------------------
117 ### Random useful clients.
119 start-clients-local
() { :; }
122 ## Mail notification.
123 run bginit mail-notification
126 case $vnc in no
) run bginit gkrellm
;; esac
131 run init xscreensaver-command
-exit
132 run bginit xscreensaver
-no-splash
137 case $vnc in no
) run bginit gnome-panel
;; esac
143 ###--------------------------------------------------------------------------
144 ### Main screen layout.
146 ## Choose appropriate clients.
147 emacs
=$
(pick_program emacs emacs22 emacs21 emacs
)
148 term
=$
(pick_program terminal pterm Eterm xterm
)
150 ## Emacs window measurements.
153 e_colwd
=492 e_hextra
=34
154 e_colchars
=82 e_cextra
=-2
155 e_lineht
=13 e_vextra
=52
158 e_colwd
=492 e_hextra
=8
159 e_colchars
=82 e_cextra
=-6
160 e_lineht
=13 e_vextra
=46
164 ## Terminal window measurements.
166 pterm
) t_wd
=503 t_lineht
=13 t_vextra
=23 geom
=-geometry
;;
167 Eterm
) t_wd
=504 t_lineht
=13 t_vextra
=23 geom
=-g
;;
168 xterm
) t_wd
=507 t_lineht
=13 t_vextra
=27 geom
=-geometry
;;
171 ## GNOME stuff measurements.
172 declare -i xbound
="XWIDTH - 113"
174 ## Choose a width for Emacs.
176 ## We'd like it to be as wide as possible, allowing for a column of xterms
177 ## down the right hand side. However, I'd prefer a double-width Emacs to a
178 ## single-width Emacs and xterms. If it's not going to work at all, a single
179 ## Emacs column will have to do. Also, there's a strange thing with Emacs21
180 ## and the toolbar, so we add on some rows which are later mysteriously
183 declare -i ecols
="(xbound - t_wd - e_hextra)/e_colwd"
184 if (( ecols
< 2 && xbound
> e_colwd
* 2 + e_hextra
)); then
186 elif (( ecols
< 1 )); then
191 emacsx
="ecols * e_colchars + e_cextra" \
192 emacsy
="(XHEIGHT - e_vextra)/e_lineht"
195 run bgclients noip
$emacs -geometry
${emacsx}x
${emacsy}+0+0
198 ## Now place some xterms.
200 ## A few smaller xterms are in general better than one great big one. 35
201 ## lines is a good height for most terminals. 25 lines is a minimum. The
202 ## strategy for doling out xterms into a column is to make as many 35-liners
203 ## as we can, until the remaining space would be too small for a 25-liner.
204 ## If we can get two 25s out of that then we do (largest first); otherwise
205 ## just make one big one. We stop at the end of a page, once we've made
210 ## Initialize some parameters.
211 declare -i x
="ecols * e_colwd + e_hextra" xb
=xbound
212 declare -i n
=0 pgx
=0 l h y ht
213 declare -i hstd
="35 * t_lineht + t_vextra" hmin
="25 * t_lineht + t_vextra"
218 ## Start a new iteration.
219 if ((x
+ t_wd
> xb
)); then
220 if ((n
>= 3)); then break; fi
221 x
="pgx + XWIDTH" pgx
="pgx + XWIDTH" xb
="xb + XWIDTH"
224 ## Make large xterms.
226 while ((ht
- hstd
>= hmin
)); do
227 run bgclients
$term $geom 80x35
+$x+$y
228 y
="y + hstd" ht
="ht - hstd" n
="n + 1"
231 ## Fill the remaining space.
232 if ((ht
>= 2 * hmin
)); then h
="ht - hmin"; else h
=ht
; fi
233 l
="(h - t_vextra)/t_lineht" h
="l * t_lineht + t_vextra"
234 run bgclients
$term $geom 80x
$l+$x+$y
235 y
="y + h" ht
="ht - h" n
="n + 1"
236 if ((ht
>= hmin
)); then
237 run bgclients
$term $geom 80x25
+$x+$y
244 ###--------------------------------------------------------------------------
247 atom
=XINIT_COMMAND
$atomtag
252 info
"waiting on $atom"
253 line
=$
(xatom
wait $atom)
258 xmsg
-I
-t
"xinitrc help" -d
"xinitrc commands" - <<EOF &
260 :emacs :xterms :window-manager :clients
267 :emacs |
:xterms |
:window-manager |
:clients
)
277 info
"restarting xinitrc"
278 exec "$0" wait nostart
281 xmsg
-E
-t
"xinitrc error" "Unknown command \`$line'" &
294 ###--------------------------------------------------------------------------
295 ### Actually start things up.
297 if [ -f
$HOME/.xinitrc-local
]; then
298 .
$HOME/.xinitrc-local
303 info
"starting standard clients"
311 info
"not starting standard clients"
320 info
"not waiting before exit"
324 ###----- That's all, folks --------------------------------------------------