+#!/bin/bash
+set -e
+. infra/template
+
+cat <<END
#
# Ian's twm configuration file.
#
WindowFunction f.function "select"
WindowRing { "emacs" "emacs18" "XTerm" }
OldFashionedTwmWindowsMenu
+NoStackMode { "emacs" "Iceweasel" }
-NoStackMode {
- "Iceweasel"
-}
-
-#VirtualDesktop "6x5-0-0" 48
-VirtualDesktop "19200x9100-0-0" 48
-
-#VirtualDesktop "8228x3848-0-0" 48
+VirtualDesktop $vtwmvdesktop 48
#VirtualDesktop "6432x3608-208-0" 48
-
#VirtualDesktop "6400x3600-208-0" 48
# +32,+8
f.nail
!"raise-mini-desktop"
}
-
Function "drag-with-down" {
f.nail
f.pandown "100"
"IRC Diziet" !"xterm -geometry 80x24+24-0 -T ' IRC' -e sh -c 'ssh -vt ijackson@tunnel.chiark.greenend.org.uk screen -x irc; read x' &"
# "IRC iwj" !"xterm -geometry 80x70+340-0 -T 'IRC iwj' -e irc iwj cam.irc.devel.ncipher.com &"
"" f.nop
- "Trn" !"xterm -geometry 80x45+240+95 -e trn &"
+ "Trn" !"MAILCAPS=/u/iwj/.trnmailcap xterm -geometry 80x45+240+95 -e trn4 &"
"Archie" !"xarchie &"
"Calc" !"xcalc &"
# "Xab large" !"xab &"
-# "Xab small" !"perl -e '$xab=\"xab\"; exec $xab \"other-xab\"' &"
+# "Xab small" !"perl -e '\$xab=\"xab\"; exec \$xab \"other-xab\"' &"
"" f.nop
"Management" f.menu "special"
"Hosts" f.menu "hosts"
"Shep" !"xterm-CT 'shep ssh' -e ssh shep.cl.cam.ac.uk -l iwj10 &"
"Ouse" !"xterm-CT 'ouse ssh' -e ssh ouse.cl.cam.ac.uk -l iwj10 &"
"" f.nop
- "Chiark" !"xterm-CT 'chiark ssh' -e ssh chiark.greenend.org.uk -l ijackson &"
- "Chiark ian" !"xterm-CT 'chiark ssh ian' -e ssh chiark.greenend.org.uk -l ian &"
- "Chiark II" !"xterm-CT 'chiark ssh II' -e ssh chiark.greenend.org.uk -t -l ijackson personal/linux/bin/II &"
+ "Chiark" !"xterm-CT 'chiark ssh' -e ssh tunnel.chiark.greenend.org.uk -l ijackson &"
+ "Chiark ian" !"xterm-CT 'chiark ssh ian' -e ssh tunnel.chiark.greenend.org.uk -l ian &"
+ "Chiark II" !"xterm-CT 'chiark ssh II' -e ssh tunnel.chiark.greenend.org.uk -t -l ijackson personal/linux/bin/II &"
"Iguana" !"xterm-CT 'iguana ssh' -e ssh iguana.ucam.org -l ijackson &"
"Utter" !"xterm-CT 'utter ssh' -e ssh utter.chaos.org.uk -l ijackson &"
"" f.nop
"Va" !"xterm-CT 'va' -e ssh va.debian.org -l iwj &"
"Nyx" !"xterm-CT 'nyx - rlogin' -e rlogin nyx.cs.du.edu -l ijackson &"
"Sunsite" !"xterm-CT 'sunsite' -e rlogin sunsite.unc.edu -l iwj &"
- "White" !"xterm-CT 'white' -geometry 80x25 -e sh -c \
- 'rlogin white.dogwood.com; line >/dev/null' &"
}
Menu "demos"
"Solitaire" !"xsol &"
"Spider" !"spider &"
}
+END