+## Substitute things which need substituting.
+dotfilessubst="
+ gitconfig
+ pulse-default.pa.in:.pulse/default.pa"
+echo "Installing dotfiles with substitutions..."
+for d in $dotfilessubst; do
+ case $d in
+ *:*) target=${d#*:} d=${d%%:*};;
+ *) target=.$d d=$d.in;;
+ esac
+ ft=$HOME$sub/$target
+ dir=${ft%/*}
+ mkdir -p $dir
+ sed "
+1i\
+### generated by $here/setup; do not edit!\
+
+/@home@/ s\a\a$HOME\ag
+/@releasekey@/ s\a\a$(bin/mdw-conf release-key 481334C2)\ag
+/@gitignore@/ s\a\a$(bin/mdw-conf gitignore $here/git/gitignore)\ag
+" dot/$d >$ft.new
+ mv $ft.new $ft
+ echo " $target"
+done
+echo " all done."
+
+## Symlink backgrounds.
+backgrounds="
+ jue-peek.jpg
+ medusa.jpg
+ bsg-supper.jpg
+ rayne.jpg
+ hypatia.jpg
+ noodly.jpg
+ lovelace.jpg"
+if [ "$xstuff" ]; then
+ echo "Installing backgrounds..."
+ for b in $backgrounds; do
+ for e in enlightenment e16; do
+ dir=$HOME$sub/.$e/backgrounds
+ t=$dir/$b
+ mkdir -p $dir
+ ln -s $here/bg/$b $t.new
+ mv $t.new $t
+ done
+ echo " $b"
+ done
+ echo " all done."
+fi
+
+###--------------------------------------------------------------------------
+### Install useful scripts included in this package.
+
+scripts="
+ mdw-editor
+ mdw-pager
+ mdw-conf
+ mdw-build
+ emacsclient-hack
+ movemail-hack
+ aspell-hack
+ emerge-hack
+ lesspipe.sh
+ start-ssh-agent
+ svnwrap
+ hyperspec"
+[ "$xstuff" ] && scripts="$scripts
+ xinitcmd
+ un-backslashify-selection
+ lock-screen
+ xshutdown"
+echo "Installing scripts..."
+mkdir -p $HOME$sub/bin
+for s in $scripts; do
+ ft=$HOME$sub/bin/$s
+ ln -s $here/bin/$s $ft.new
+ mv $ft.new $ft
+ echo " $s"
+done
+echo " all done."
+
+###--------------------------------------------------------------------------
+### Set up the Emacs config.
+