# ~yozo/.twmrc
# cf. UNIX magazine 1990 Nov. "An Introduction to X Window System"
## modified for tvtwm.
## use m4 to extract .twmrc 
## maybe tvtwm execute `m4 -DTWM_TYPE=tvtwmr`

AutoRelativeResize
#BorderWidth 2
#NoHighlight
NoGrabServer
OpaqueMove
DecorateTransients
TitleFont  "-adobe-helvetica-bold-o-normal--*-100-*-*-*-*-*-*"
ResizeFont "-adobe-helvetica-bold-o-normal--*-100-*-*-*-*-*-*"
MenuFont   "-adobe-helvetica-bold-o-normal--*-100-*-*-*-*-*-*"
IconFont   "-adobe-helvetica-bold-o-normal--*-100-*-*-*-*-*-*"
IconManagerFont "-adobe-helvetica-bold-o-normal--*-100-*-*-*-*-*-*"
IconManagerDontShow
{
    "TWM Icon Manager"
    "xbiff"
    "xclock"
    "monitor"
}

RandomPlacement		# twm places windows at random.
IconifyByUnMapping
#NoTitle			# all windows have no title bars at default.
NoTitle
{
    "TWM Icon Manager"
    "xconsole"
    "xbiff"
    "xclock"
    "monitor"
    "gqmpeg"
}

#IconRegion	"=300x400-0-0" South East 50 50
ShowIconManager
##NoIconManagers
IconManagerGeometry	"=96x20-0+0"

#Color
#{
#    BorderColor "slategrey"
#    DefaultBackground "gray45"
#    DefaultForeground "lightgrey"
#    TitleBackground "gray45"
#    TitleForeground "lightgrey"
#    MenuBackground "gray45"
#    MenuForeground "lightgrey"
#    MenuTitleBackground "gray45"
#    MenuTitleForeground "lightgrey"
#    IconBackground "gray45"
#    IconForeground "lightgrey"
#    IconBorderColor "slategrey"
#    IconManagerBackground "gray45"
#    IconManagerForeground "lightgrey"
#}

Color
{
    BorderColor "slategrey"
    DefaultBackground "navy"
    DefaultForeground "grey85"
    TitleBackground "navy"
    TitleForeground "grey85"
    MenuBackground "navy"
    MenuForeground "grey85"
    MenuTitleBackground "navy"
    MenuTitleForeground "grey85"
    IconBackground "navy"
    IconForeground "grey85"
    IconBorderColor "slategrey"
    IconManagerBackground "navy"
    IconManagerForeground "grey85"
}

Monochrome
{
    BorderColor "white"
    IconManagerBackground	"black"
    IconManagerForeground	"white"
    IconManagerHighlight	"white"
    MenuBackground 		"black"
    MenuForeground		"white"
}

Cursors
{
	Frame	"gobbler"
	Title	"spider"
	Icon	"sailboat"
	IconMgr	"star"
	Move	"man"
	Resize	"trek"
	Menu	"boat"
	Button	"umbrella"
	Wait	"gumby"
	Select	"coffee_mug"
	Destroy	"pirate"
}

#
# Define some useful functions for motion-based actions.
#
MoveDelta 3
Function "move-or-lower" 	{ f.move f.deltastop f.lower }
Function "move-or-raise" 	{ f.move f.deltastop f.raise }
Function "move-or-iconify" 	{ f.move f.deltastop f.iconify }

#
# Set some useful bindings.  Sort of uwm-ish, sort of simple-button-ish
#
Button1 = : root : f.menu "defops"
Button2 = : root : f.menu "TwmWindows"
Button3 = : root : f.menu "miscellaneous"

Button1 = m	: window|icon : f.function "move-or-lower"
Button2 = m	: window|icon : f.iconify
Button3 = m	: window|icon : f.function "move-or-raise"

Button1 = : title : f.function "move-or-raise"
Button3 = : title : f.raiselower

Button1 = : icon : f.function "move-or-iconify"
Button3 = : icon : f.iconify

Button1 = : iconmgr : f.raise
Button2 = : iconmgr : f.iconify
Button3 = : iconmgr : f.lower

Button2 = s	: window : f.resize

#Button2 = c	: iconmgr : f.destroy

"d" = m	: all	: f.lower
"u" = m	: all	: f.raise

#"f" = m	: all	: f.focus

"i" = m	: all	: f.iconify

"j" = m	: all	: f.downiconmgr
"k" = m	: all	: f.upiconmgr

"z" = m	: all	: f.fullzoom

"r" = c | m	: all	: f.restart
#"s" = c | m	: all	: f.refresh
"p" = c | m	: all	: f.quit

"w" = m	: window	: f.delete

#"t" = c | m	: all	: f.startwm "twm"
#"c" = c | m	: all	: f.startwm "ctwm"
#"f" = c | m	: all	: f.startwm "fvwm2"

"k" = s | m	: all	: f.exec "rxvt -tn kterm &"
"r" = s | m	: all	: f.exec "rxvt &"
"s" = s | m	: all	: f.exec "rxvt -e 'screen' '-RR' &"
"t" = s | m	: all	: f.exec "rxvt -tr &"

"e" = s | m	: all	: f.exec "emacs &"
"f" = s | m	: all	: f.exec "tgif -geometry 720x540 &"
"g" = s | m	: all	: f.exec "gimp &"
"l" = s | m	: all	: f.exec "xlock -duration 20 &"
"m" = s | m	: all	: f.exec "gtkmidi -a -U -teuc -Wx -k0 &"
"n" = s | m	: all	: f.exec "mozilla &"
"p" = s | m	: all	: f.exec "gqmpeg > /dev/null 2>&1 &"
"x" = s | m	: all	: f.exec "xv &"

#
# And menus with the usual things
#
menu "iconmgr"
	{
		"showiconmgr"		f.showiconmgr
		"hideiconmgr"		f.hideiconmgr
		"sorticonmgr"		f.sorticonmgr
		"upiconmgr"		f.upiconmgr
		"downiconmgr"		f.downiconmgr
		"forwiconmgr"		f.forwiconmgr
		"backiconmgr"		f.backiconmgr
		"nexticonmgr"		f.nexticonmgr
		"previconmgr"		f.previconmgr
		"lefticonmgr"		f.lefticonmgr
		"righticonmgr"		f.righticonmgr
	}

menu "zooming"
	{
		"zoom"			f.zoom
		"topzoom"		f.topzoom
		"bottomzoom"		f.bottomzoom
		"fullzoom"		f.fullzoom
		"horizoom"		f.horizoom
		"leftzoom"		f.leftzoom
		"rightzoom"		f.rightzoom
	}

menu "defops"
{
"Twm"	f.title
"Refresh"	f.exec "xrefresh"
"Iconify"	f.iconify
"Resize"	f.resize
"Move"		f.move
"Raise"		f.raise
"Lower"		f.lower
""		f.nop
"Focus"		f.focus
"Unfocus"	f.unfocus
"Show Iconmgr"	f.showiconmgr
"Hide Iconmgr"	f.hideiconmgr
""		f.nop
"Kill"		f.destroy
"Delete"	f.delete
""		f.nop
"Restart"	f.restart
"Exit"		f.quit
}

menu "miscellaneous"
{
"miscellaneous"		f.title
"autoraise"		f.autoraise
"beep"			f.beep
"circledown"		f.circledown
"circleup"		f.circleup
#"colormap"		f.colormap {"next"|"prev"|"default"}
""			f.nop
"icon manager..."	f.menu "iconmgr"
""			f.nop
"nop"			f.nop
"zoom..."		f.menu "zooming"
""			f.nop
"iconify"		f.iconify
"deiconify"		f.deiconify
""			f.nop
"delete"		f.delete
"deltastop"		f.deltastop
"destroy"		f.destroy
#f.exec string
""			f.nop
"focus"			f.focus
"unfocus"		f.unfocus
""			f.nop

"forcemove"		f.forcemove
"move"			f.move
""			f.nop
"identify"		f.identify
""			f.nop
"raise"			f.raise
"lower"			f.lower
"raiselower"		f.raiselower
""			f.nop

""			f.nop
"restart"		f.restart
"quit"			f.quit
"refresh"		f.refresh
"winrefresh"		f.winrefresh
""			f.nop

"resize"		f.resize
"saveyourself"		f.saveyourself

#f.scroll string
"scroll..."		f.menu "scrolling"

#f.warpring {"next"|"prev"}
#f.warpto string
#f.warptoiconmgr string
#f.warptoscreen string
}