templates/vtwmrc.in

   1 #!/bin/bash
   2 set -e
   3 . infra/template
   4
   5 cat <<END
   6 #
   7 # Ian's twm configuration file.
   8 #
   9
  10 # RandomPlacement
  11 DecorateTransients
  12 TitleFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
  13 ResizeFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
  14 MenuFont "-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"
  15 IconFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*-*-*-*"
  16 IconManagerFont "-adobe-helvetica-bold-r-normal--*-100-*-*-*"
  17 IconifyByUnmapping
  18 NoCaseSensitive
  19 IconManagerGeometry "119x286+0+0"
  20 NoDefaults
  21 DontMoveOff
  22 OpaqueMove
  23 Zoom
  24 NoRaiseOnMove
  25 NoRaiseOnResize
  26 SortIconManager
  27 SqueezeTitle
  28 RestartPreviousState
  29 WarpCursor
  30 Function "select" { f.iconify f.deiconify }
  31 WindowFunction f.function "select"
  32 WindowRing { "emacs" "emacs18" "XTerm" }
  33 OldFashionedTwmWindowsMenu
  34 NoStackMode { "emacs" "Iceweasel" }
  35
  36 VirtualDesktop "$vtwmvdesktop" 48
  37
  38 #VirtualDesktop "6432x3608-208-0" 48
  39 #VirtualDesktop "6400x3600-208-0" 48
  40 # +32,+8
  41
  42 #VirtualDesktop "5136x3076-208-0" 48
  43 #VirtualDesktop "5120x3072-237-0" 48
  44 # +16,+4
  45
  46 #VirtualDesktop "4x3-208-0" 48
  47
  48 NotVirtualGeometries
  49 PanDistanceX 100
  50 PanDistanceY 100
  51
  52 FixManagedVirtualGeometries
  53 FixTransientVirtualGeometries
  54 SnapRealScreen
  55
  56 NoTitle {
  57         "TWM Icon Manager"
  58         "VTWM Desktop"
  59         "xclock"
  60         "panel"
  61         "xload"
  62         "xacpi-simple"
  63 }
  64
  65 DontSqueezeTitle {
  66         "emacs"
  67         "emacs18"
  68         "epoch"
  69         "Emacs"
  70 }
  71
  72 DontShowInDisplay {
  73         "VTWM Desktop"
  74         "xb ian"
  75         "xb sysadmin"
  76         "xb chiark"
  77         "xb iwj"
  78         "xclock"
  79         "xload"
  80         "XLoad"
  81         "panel"
  82         "xacpi-simple"
  83 }
  84
  85 NailedDown {
  86         "VTWM Desktop"
  87         "xb ian"
  88         "xb sysadmin"
  89         "xb chiark"
  90         "xb iwj"
  91         "xclock"
  92         "xwrits"
  93         "xload"
  94         "XLoad"
  95         "panel"
  96         "xacpi-simple"
  97 }
  98
  99 Cursors
 100 {
 101         Frame           "crosshair"
 102         Title           "crosshair"
 103         Icon            "crosshair"
 104         IconMgr         "crosshair"
 105         Move            "fleur"
 106         Resize          "fleur"
 107         Menu            "sb_left_arrow"
 108         Button          "hand2"
 109         Wait            "watch"
 110         Select          "dot"
 111         Destroy         "pirate"
 112 }
 113
 114 Color
 115 {
 116     BorderColor "yellow"
 117     DefaultBackground "black"
 118     DefaultForeground "white"
 119     TitleBackground "midnight blue"
 120     TitleForeground "light steel blue"
 121     MenuBackground "midnight blue"
 122     MenuForeground "light steel blue"
 123     MenuTitleBackground "midnight blue"
 124     MenuTitleForeground "light steel blue"
 125     IconBackground "midnight blue"
 126     IconForeground "light steel blue"
 127     IconBorderColor "red"
 128     IconManagerBackground "orange1"
 129     IconManagerForeground "black"
 130     BorderTileForeground "red"
 131     BorderTileBackground "red"
 132
 133     VirtualBackground "midnight blue"
 134     DesktopDisplayBackground "black"
 135     DesktopDisplayBorder "light steel blue"
 136     RealScreenBackground "white"
 137 }
 138
 139 Monochrome
 140 {
 141     BorderColor "black"
 142     DefaultBackground "black"
 143     DefaultForeground "white"
 144     TitleBackground "white"
 145     TitleForeground "black"
 146     MenuBackground "black"
 147     MenuForeground "white"
 148     MenuTitleBackground "black"
 149     MenuTitleForeground "white"
 150     IconBackground "black"
 151     IconForeground "white"
 152     IconBorderColor "white"
 153     IconManagerBackground "white"
 154     IconManagerForeground "black"
 155     BorderTileForeground "black"
 156     BorderTileBackground "white"
 157 }
 158
 159 # Define some useful functions for motion-based actions.
 160 MoveDelta 3
 161 Function "forcemove-or-lower" { f.forcemove f.deltastop f.lower }
 162 Function "move-or-raise" { f.move f.deltastop f.raise }
 163
 164 # Root window buttons
 165 Button1 =       : root          : f.menu "hosts"
 166 Button2 =       : root          : f.menu "TwmWindows"
 167 Button3 =       : root          : f.menu "programs"
 168 Button1 = m     : root          : f.unfocus
 169
 170 Button1 = : desktop : f.movescreen
 171 Button2 = : desktop : f.movescreen
 172 #Button3 = : desktop : f.iconify
 173
 174 # Per window buttons
 175 Button1 =               : icon|iconmgr|frame|title      : f.function "move-or-raise"
 176 Button2 =               : icon|iconmgr|frame|title      : f.function "forcemove-or-lower"
 177 Button3 =               : icon|iconmgr|frame|title      : f.menu "windowmenu"
 178 Button1 = shift         : icon|iconmgr|frame|title      : f.resize
 179 Button2 = shift         : icon|iconmgr|frame|title      : f.resize
 180 Button3 = shift         : icon|iconmgr|frame|title      : f.zoom
 181 Button1 = m             : icon|iconmgr|frame|title      : f.focus
 182 Button3 = m             : icon|iconmgr|frame|title      : f.saveyourself
 183 Button1 = control       : icon|iconmgr|frame|title      : f.forcemove
 184 Button3 = control       : icon|iconmgr|frame|title      : f.delete
 185 Button3 = control|shift : icon|iconmgr|frame|title      : f.destroy
 186 Button1 = control|shift|m : window|frame|title          : f.destroy
 187 Button2 = control|shift|m : window|frame|title          : f.forcemove
 188 Button3 = control|shift|m : window|frame|title          : f.menu "windowmenu"
 189
 190 "Up"    = m : all                               : f.function "pan-up"
 191 "Down"  = m : all                               : f.function "pan-down"
 192 "Left"  = m : all                               : f.function "pan-left"
 193 "Right" = m : all                               : f.function "pan-right"
 194
 195 Function "pan-up" {
 196         !"raise-mini-desktop"
 197         f.panup "100"
 198 }
 199 Function "pan-down" {
 200         !"raise-mini-desktop"
 201         f.pandown "100"
 202 }
 203 Function "pan-left" {
 204         !"raise-mini-desktop"
 205         f.panleft "100"
 206 }
 207 Function "pan-right" {
 208         !"raise-mini-desktop"
 209         f.panright "100"
 210 }
 211
 212 Function "drag-with-up" {
 213         f.nail
 214         f.panup "100"
 215         f.raise
 216         f.nail
 217         !"raise-mini-desktop"
 218 }
 219 Function "drag-with-down" {
 220         f.nail
 221         f.pandown "100"
 222         f.raise
 223         f.nail
 224         !"raise-mini-desktop"
 225 }
 226 Function "drag-with-left" {
 227         f.nail
 228         f.panleft "100"
 229         f.raise
 230         f.nail
 231         !"raise-mini-desktop"
 232 }
 233 Function "drag-with-right" {
 234         f.nail
 235         f.panright "100"
 236         f.raise
 237         f.nail
 238         !"raise-mini-desktop"
 239 }
 240
 241 "Up"    = m|shift : window|frame|title  : f.function "drag-with-up"
 242 "Down"  = m|shift : window|frame|title  : f.function "drag-with-down"
 243 "Left"  = m|shift : window|frame|title  : f.function "drag-with-left"
 244 "Right" = m|shift : window|frame|title  : f.function "drag-with-right"
 245
 246 # Accelerators out of icon manager
 247 # "F1"          =       : icon|window|frame|title       : f.iconify
 248 "F2"            =       : icon|window|frame|title       : f.raise
 249 "F3"            =       : icon|window|frame|title       : f.lower
 250 "F1"            =       : iconmgr                       : f.hideiconmgr
 251 "F2"            =       : iconmgr                       : f.hideiconmgr
 252 "Menu"          =       : icon|window|frame|title       : f.showiconmgr
 253
 254 # Accelerators in icon manager
 255 "Menu"          =       : iconmgr                       : f.function "select"
 256
 257 # Accelerators everywhere for new clients
 258 "F4"            =       : all                   : !"xtrlock &"
 259 "F6"            =       : all                   : !"xterm &"
 260
 261 menu "windowmenu"
 262 {
 263         "Window Menu"   f.title
 264         "Close"         f.delete
 265         "Destroy"       f.destroy
 266         ""              f.nop
 267         "Icon"          f.iconify
 268         "Nail"          f.nail
 269         "Zoom"          f.zoom
 270         "Resize"        f.resize
 271         "Identify"      f.identify
 272         "Forced move"   f.forcemove
 273         ""              f.nop
 274         "Mouse help"    f.menu "windowmice"
 275 }
 276
 277 menu "windowmice"
 278 {
 279         "Modifiers      Leftbutton      Middle      Right"      f.nop
 280         ""                                                      f.nop
 281         "                 Move/Raise    Move/Lower   Menu"       f.nop
 282         " Shift:            Iconify           Resize       Zoom"       f.nop
 283         "  Meta:       Focus/Unfocus                Checkpoint" f.nop
 284         " Control:       Forced Move                       Delete"     f.nop
 285         "Control+Shift:                                    Destroy"    f.nop
 286 }
 287
 288 menu "special"
 289 {
 290         "Management"            f.title
 291         "Refresh"               f.refresh
 292         "Restart"               f.function "restart"
 293         ""                      f.nop
 294         "Kill twm"              f.quit
 295         ""                      f.nop
 296         "Show icon list"        f.showiconmgr
 297         "Hide icon list"        f.hideiconmgr
 298 }
 299
 300 Function "restart" {
 301         !"rm .configs/mini-desktop-window-id"
 302         f.restart
 303 }
 304
 305 menu "programs"
 306 {
 307         "Programs"      f.title
 308         "Emacs restart" !".configs/startemacs"
 309         "Emacs left"    !"emacs -geometry 79x40+0+35 &"
 310         ""              f.nop
 311  "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' &"
 312 # "IRC iwj" !"xterm -geometry 80x70+340-0 -T 'IRC iwj' -e irc iwj cam.irc.devel.ncipher.com &"
 313         ""              f.nop
 314         "Trn"           !"MAILCAPS=/u/iwj/.trnmailcap xterm -geometry 80x45+240+95 -e trn4 &"
 315         "Archie"        !"xarchie &"
 316         "Calc"          !"xcalc &"
 317 #       "Xab large"     !"xab &"
 318 #       "Xab small"     !"perl -e '\$xab=\"xab\"; exec \$xab \"other-xab\"' &"
 319         ""              f.nop
 320         "Management"    f.menu "special"
 321         "Hosts"         f.menu "hosts"
 322         "Games"         f.menu "games"
 323         "Demos"         f.menu "demos"
 324 }
 325
 326
 327 Menu "hosts"
 328 {
 329         "Hosts"         f.title
 330
 331
 332
 333
 334  ""             f.nop
 335  "Relativity"   !"xterm-CT 'Relativity' -e ssh -p24 r-ian@relativity.dynamic.greenend.org.uk &"
 336  ""             f.nop
 337  "Lewes"        !"xterm-CT 'lewes rlogin' -e rlogin lewes &"
 338  "Scunthorpe"   !"xterm-CT 'scunthorpe rlogin' -e rlogin scunthorpe &"
 339  "Saintpaul"    !"xterm-CT 'saintpaul rlogin' -e rlogin saintpaul &"
 340  "Slough"       !"xterm-CT 'slough rlogin' -e rlogin slough &"
 341  "Guildford"    !"xterm-CT 'guildford rlogin' -e rlogin guildford &"
 342  "York"         !"xterm-CT 'york rlogin' -e rlogin york &"
 343 # "Greenock"    !"xterm-CT 'greenock rlogin' -e rlogin greenock &"
 344  ""             f.nop
 345  "Ursa"         !"xterm-CT 'ursa rlogin' -e rlogin ursa.cus.cam.ac.uk -l iwj10 &"
 346  "Taurus"       !"xterm-CT 'taurus ssh' -e ssh taurus.cus.cam.ac.uk -l iwj10 &"
 347  "Taurus rlogin" !"xterm-CT 'taurus rlogin' -e rlogin taurus.cus.cam.ac.uk -l iwj10 &"
 348  "Bootes"       !"xterm-CT 'bootes rlogin' -e rlogin bootes.cus.cam.ac.uk -l iwj10 &"
 349  "Thor"         !"xterm-CT 'thor rlogin' -e rlogin hammer.thor.cam.ac.uk -l iwj10 &"
 350  ""             f.nop
 351  "Leek"         !"xterm-CT 'leek rlogin' -e rlogin leek.cam-orl.co.uk -l iwj&"
 352  "Lobster"      !"xterm-CT 'lobster rlogin' -e rlogin lobster.cam-orl.co.uk -l iwj&"
 353  ""             f.nop
 354  "Shep"         !"xterm-CT 'shep ssh' -e ssh shep.cl.cam.ac.uk -l iwj10 &"
 355  "Ouse"         !"xterm-CT 'ouse ssh' -e ssh ouse.cl.cam.ac.uk -l iwj10 &"
 356         ""              f.nop
 357  "Chiark"       !"xterm-CT 'chiark ssh' -e ssh tunnel.chiark.greenend.org.uk -l ijackson &"
 358  "Chiark ian"   !"xterm-CT 'chiark ssh ian' -e ssh tunnel.chiark.greenend.org.uk -l ian &"
 359  "Chiark II"    !"xterm-CT 'chiark ssh II' -e ssh tunnel.chiark.greenend.org.uk -t -l ijackson personal/linux/bin/II &"
 360  "Iguana"       !"xterm-CT 'iguana ssh' -e ssh iguana.ucam.org -l ijackson &"
 361  "Utter"        !"xterm-CT 'utter ssh' -e ssh utter.chaos.org.uk -l ijackson &"
 362         ""              f.nop
 363  "Club"         !"xterm-CT 'club rlogin' -e rlogin club.damtp.cam.ac.uk -l iwj10 &"
 364  "Greed"        !"xterm-CT 'greed rlogin' -e rlogin greed.damtp.cam.ac.uk -l iwj10 &"
 365  "Enghp"     !"xterm -geometry 80x50 -T 'enghp' -e rlogin enghp.chu.cam.ac.uk -l iwj10 &"
 366  "Impren"    !"xterm-CT 'impren rlogin' -e rlogin impren.al.cl.cam.ac.uk -l ijackson &"
 367  ""             f.nop
 368  "Novare -v"    !"xterm-CT 'novare -v' -e ssh -v debian.novare.net -l iwj &"
 369  "Novare"       !"xterm-CT 'novare' -e ssh debian.novare.net -l iwj &"
 370  "Debian"       !"xterm-CT 'debian' -e rlogin ftp.debian.org -l iwj &"
 371  "Debra"                !"xterm-CT 'debra' -e rlogin debra.debian.org -l iwj &"
 372  "GNU"          !"xterm-CT 'gnu' -e rlogin mescaline.gnu.org -l ijackson &"
 373  "GNU dist"     !"xterm-CT 'gnudist' -e rlogin gnudist.gnu.org -l ijackson &"
 374  "Master"       !"xterm-CT 'master' -e ssh master.debian.org -l iwj &"
 375  "Va"           !"xterm-CT 'va' -e ssh va.debian.org -l iwj &"
 376  "Nyx"          !"xterm-CT 'nyx - rlogin' -e rlogin nyx.cs.du.edu -l ijackson &"
 377  "Sunsite"      !"xterm-CT 'sunsite' -e rlogin sunsite.unc.edu -l iwj &"
 378 }
 379
 380 Menu "demos"
 381 {
 382         "Demos - probably broken"       f.title
 383         "Ico"                           !"ico &"
 384         "Maze"                          !"maze &"
 385         "Muncher"                       !"muncher &"
 386         "Plaid"                         !"plaid &"
 387         "Worm"                          !"worm &"
 388         "Colors"                        !"xcolors &"
 389         "Eyes"                          !"xeyes &"
 390         "Life"                          !"xlife &"
 391         "XLogo"                         !"xlogo &"
 392 }
 393
 394 Menu "games"
 395 {
 396         "Games - probably broken"       f.title
 397         "Chomp"                         !"xchomp &"
 398         "Cbzone"                        !"cbzone &"
 399         "MazeWar"                       !"xterm -e mazewar &"
 400         "Mille"                         !"xmille &"
 401         "Reversi"                       !"reversi &"
 402         "Roids"                         !"roids &"
 403         "Robots"                        !"xrobots &"
 404         "Shanghai"                      !"xmj &"
 405         "Solitaire"                     !"xsol &"
 406         "Spider"                        !"spider &"
 407 }
 408 END