X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=ian-dotfiles.git;a=blobdiff_plain;f=dot%2Fvtwmrc;h=29c3b3c5fdd13a7d5a32f138accd4892325c4564;hp=9db5b74a601e5b21fd33d9eb35973b2fa66f3abb;hb=f28d69aaae306165cfcbf224581110745cdf2ce4;hpb=4ed6df107b1db703ad86565447aa20b6385d3116

diff --git a/dot/vtwmrc b/dot/vtwmrc
index 9db5b74..29c3b3c 100644
--- a/dot/vtwmrc
+++ b/dot/vtwmrc
@@ -19,6 +19,8 @@ Zoom
 NoRaiseOnMove
 NoRaiseOnResize
 SortIconManager
+NoTitle { "TWM Icon Manager" "VTWM Desktop" "xclock" "xload" }
+DontSqueezeTitle { "emacs" "emacs18" "epoch" "Emacs" }
 SqueezeTitle
 RestartPreviousState
 WarpCursor
@@ -26,15 +28,9 @@ Function "select" { f.iconify f.deiconify }
 WindowFunction f.function "select"
 WindowRing { "emacs" "emacs18" "XTerm" }
 OldFashionedTwmWindowsMenu
+NoStackMode { "emacs" }
 
-NoStackMode {
-	"Iceweasel"
-}
-
-VirtualDesktop "8228x3848-0-0" 48
-
-#VirtualDesktop "6432x3608-208-0" 48
-
+VirtualDesktop "6432x3608-208-0" 48
 #VirtualDesktop "6400x3600-208-0" 48
 # +32,+8
 
@@ -52,22 +48,6 @@ FixManagedVirtualGeometries
 FixTransientVirtualGeometries
 SnapRealScreen
 
-NoTitle {
-	"TWM Icon Manager"
-	"VTWM Desktop"
-	"xclock"
-	"panel"
-	"xload"
-	"xacpi-simple"
-}
-
-DontSqueezeTitle {
-	"emacs"
-	"emacs18"
-	"epoch"
-	"Emacs"
-}
-
 DontShowInDisplay { 
 	"VTWM Desktop"
 	"xb ian"
@@ -77,8 +57,6 @@ DontShowInDisplay {
 	"xclock"
 	"xload"
 	"XLoad"
-	"panel"
-	"xacpi-simple"
 }
 
 NailedDown {
@@ -91,8 +69,6 @@ NailedDown {
 	"xwrits"
 	"xload"
 	"XLoad"
-	"panel"
-	"xacpi-simple"
 }
 
 Cursors
@@ -186,34 +162,16 @@ Button1 = control|shift|m : window|frame|title		: f.destroy
 Button2 = control|shift|m : window|frame|title		: f.forcemove
 Button3 = control|shift|m : window|frame|title		: f.menu "windowmenu"
 
-"Up"	= m : all				: f.function "pan-up"
-"Down"	= m : all				: f.function "pan-down"
-"Left"	= m : all				: f.function "pan-left"
-"Right"	= m : all				: f.function "pan-right"
-
-Function "pan-up" {
-	!"raise-mini-desktop"
-	f.panup "100"
-}
-Function "pan-down" {
-	!"raise-mini-desktop"
-	f.pandown "100"
-}
-Function "pan-left" {
-	!"raise-mini-desktop"
-	f.panleft "100"
-}
-Function "pan-right" {
-	!"raise-mini-desktop"
-	f.panright "100"
-}
+"Up"	= m : all				: f.panup    "100"
+"Down"	= m : all				: f.pandown  "100"
+"Left"	= m : all				: f.panleft  "100"
+"Right"	= m : all				: f.panright "100"
 
 Function "drag-with-up" {
 	f.nail
 	f.panup "100"
 	f.raise
 	f.nail
-	!"raise-mini-desktop"
 }
 
 Function "drag-with-down" {
@@ -221,21 +179,20 @@ Function "drag-with-down" {
 	f.pandown "100"
 	f.raise
 	f.nail
-	!"raise-mini-desktop"
 }
+
 Function "drag-with-left" {
 	f.nail
 	f.panleft "100"
 	f.raise
 	f.nail
-	!"raise-mini-desktop"
 }
+
 Function "drag-with-right" {
 	f.nail
 	f.panright "100"
 	f.raise
 	f.nail
-	!"raise-mini-desktop"
 }
 
 "Up"	= m|shift : window|frame|title	: f.function "drag-with-up"
@@ -244,7 +201,7 @@ Function "drag-with-right" {
 "Right"	= m|shift : window|frame|title	: f.function "drag-with-right"
 
 # Accelerators out of icon manager
-# "F1"		=	: icon|window|frame|title	: f.iconify
+#"F1"		=	: icon|window|frame|title	: f.iconify
 "F2"		=	: icon|window|frame|title	: f.raise
 "F3"		=	: icon|window|frame|title	: f.lower
 "F1"		= 	: iconmgr			: f.hideiconmgr
@@ -260,7 +217,7 @@ Function "drag-with-right" {
 
 # Accelerators everywhere for new clients
 "F4" 		=	: all			: !"xtrlock &"
-"F6"	 	=	: all		: !"LC_CTYPE=en_GB.utf-8 xterm &"
+"F6"	 	=	: all			: !"xterm &"
 
 menu "windowmenu"
 {
@@ -293,7 +250,7 @@ menu "special"
 {
 	"Management"		f.title
 	"Refresh"		f.refresh
-	"Restart"		f.function "restart"
+	"Restart"		f.restart
 	""			f.nop
 	"Kill twm"		f.quit
 	""			f.nop
@@ -301,21 +258,16 @@ menu "special"
 	"Hide icon list"	f.hideiconmgr
 }
 
-Function "restart" {
-	!"rm .configs/mini-desktop-window-id"
-	f.restart
-}
-
 menu "programs"
 {
    	"Programs"	f.title
    	"Emacs restart"	!".configs/startemacs"
    	"Emacs left"	!"emacs -geometry 79x40+0+35 &"
    	""		f.nop
- "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 &"
+ "IRC Diziet" !"xterm -geometry 80x70+240-0 -T 'IRC Diziet' -e irc Diziet localhost &"
+ "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 &"
@@ -358,9 +310,9 @@ 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