# ==============================================================================
# Seth's dot.ctwmrc
# ==============================================================================
#
# vim:syntax=m4:
#
#
#   $Id: dot.ctwmrc,v 1.25 2002/02/03 22:48:32 sethk Exp $

################################################################################
# + Ctwmrc
# |-- Macros
# |-- Local Config
# |-+ Variables
# | |-- Misc
# | |-- Dimension
# | |-- Titles
# | |-- Border
# | |-- Fonts
# | |-- Pixmaps
# | |-- Icons
# | |-- Cursors
# | |-- WorkSpace
# | |-- Warp
# | |-- Colors
# | |-- Raise and Resize
# | |-- Move
# | \-- Occupy
# |-- Functions
# |-- Bindings
# \-- Menus

################################################################################
# MACROS
################################################################################

divert(-1)
undefine(`shift')
define(_TMPFILE, /tmp/maketemp(ctwmrcXXXXXX))	    # unused
define(_BORDER_WIDTH, 4) 
define(_XTERM_FONTSIZE, 8)
define(_PIN_MENU, `""	f.separator
"[Pin Menu]"	    f.pin')
define(_APP, "$1"    !"$1 &")
define(_APP_OPT, "$1 [$2]"  !"$1 $3 &")
define(_MENU, "$2"  f.menu "$1")
define(_XTERM, !"rxvt -title \"rxvt@CLIENTHOST: $2\" -e $1 &")
define(_JXTERM, !"kterm -title \"kterm-ja@CLIENTHOST: $2\" -e $1 &")
define(_XLOCK, !"xlock -mode $1")
define(_XSAVE, !"xlock -nolock -mode $1")
define(_XMORE, !"$1 | xless")
define(_TELNET, "telnet $1"		_XTERM(telnet $1._RMT_DOMAIN, telnet $1))
define(_SSH, "ssh $1"			_XTERM(ssh $1._RMT_DOMAIN, ssh $1))
define(_SSHL, "ssh $2@$1"		_XTERM(ssh $2@$1._RMT_DOMAIN, ssh $2@$1))
define(_SSH_X, "ssh $1 [X]"		_XTERM(ssh -X $1._RMT_DOMAIN, ssh $1))
define(_FTP, "ftp $1"			_XTERM(ftp $1._RMT_DOMAIN, ftp $1))
define(_VNC, "vnc $1"			!"vncviewer $1._RMT_DOMAIN")
define(_VNCP, "vnc $1:$2"		!"vncviewer $1._RMT_DOMAIN:$2")
define(_EDIT_FILE, "GVim - $1"		!"gvim $1 &")

################################################################################
# LOCAL CONFIG
################################################################################

# What goes in ~/.ctwmrc.local:
#
# _SHORTHOST	    hostname -s
# _CDROM0	    first CD-ROM
# _CDROM1	    second CD-ROM
# _JA		    Japanese stuff
# _NOBACKINGSTORE   Set NoBackingStore and NoSaveUnders

include(HOME/.ctwmrc.local)
divert(0)

################################################################################
# VARIABLES 
################################################################################

NoDefaults	    # Watch out, no net

################################################################################
#     MISC  
################################################################################

#AnimationSpeed 100
AutoFocusToTransients
DontPaintRootWindow
ifdef(`_NOBACKINGSTORE', `NoBackingStore
NoSaveUnders')
#NoGrabServer
#NoStackMode { }
#RandomPlacement "on"
RestartPreviousState
#TransientOnTop 50 # %
UsePPosition "non-zero"
#XorValue 1
#Zoom 10

################################################################################
#     DIMENSION	
################################################################################

#ClearShadowContrast
#DarkShadowContrast
ThreeDBorderWidth         _BORDER_WIDTH
UseThreeDBorders
#UseThreeDIconManagers
UseThreeDMenus
UseThreeDTitles
#WMgrButtonShadowDepth 1
TitleButtonShadowDepth	1
TitleShadowDepth    1


################################################################################
#     TITLES	
################################################################################

ButtonIndent	0
#DontSqueezeTitle { }
FramePadding	0
MakeTitle
{
    "PostItNote"
    "playlist"
}
NoTitle
{
    "WorkSpaceManager"
    "TWM Icon Manager"
    "Applixware Iconbar"
    "SwissWatch"
    "XLoad"
    "XLogo"
    "XBiff"
    "xpostit"
    "Gbuffy"
    "gqmpeg"
    "Untitled"	# movable GTK menu bars
    "Wfica_Seamless"
}
#NoTitleFocus
NoTitleHighlight
#SunkFocusWindowTitle
#TitleButtonBorderWidth
TitlePadding	0
TitleJustification  "left"
UseSunkTitlePixmap	    # sink instead of raise?

################################################################################
#     BORDER	
################################################################################

#BorderTileBackground { }
#BorderTileForeground { }
#BorderWidth 1
#ClientBorderWidth
#DecorateTransients
NoBorder
{
    "WorkSpaceManager"
    "TWM Icon Manager"
    "SwissWatch"
    "XLoad"
    "XLogo"
    "XBiff"
    "XPostit"
    "Gbuffy"
    "gqmpeg"
    "Untitled"	# movable GTK menu bars
}
#NoHighlight { }

################################################################################
#     FONTS 
################################################################################

IconFont	"-adobe-helvetica-medium-r-normal--8*"
IconManagerFont "-adobe-helvetica-medium-r-normal--8*"
MenuFont	"-adobe-helvetica-bold-r-normal--10*"
ResizeFont	"-adobe-helvetica-bold-r-normal--18*"
TitleFont	"-adobe-helvetica-bold-r-normal--10*"


################################################################################
#     PIXMAPS	
################################################################################

#Pixmaps { }
#PixmapDirectory ""

################################################################################
#     ICONS 
################################################################################

#DontIconifyByUnmapping
#ForceIcons
#IconBorderWidth 3
#IconDirectory ""
#IconifyByUnmapping
#IconJustification ""
#IconManagerBackground
IconManagerDontShow
{
    "SwissWatch"
    "XLoad"
    "XLogo"
    "XBiff"
    "XPostit"
}
IconManagerGeometry "128x16-0+322"
#IconManagers "" 2
#IconManagerShow { }
IconRegion "128x512-0-0" South West 1 1
IconRegionJustification "border"
Icons
{
    "XTerm"	"xpm:xterm.xpm"
}
#MaxIconTitleWidth 32
NoCaseSensitive
NoIconTitle
NoIconManagerFocus
#NoRaiseOnDeiconify
ShowIconManager
SortIconManager
#StartIconified { }
#UnknownIcon ""

################################################################################
#     CURSORS	
################################################################################

BorderResizeCursors
#Cursors

################################################################################
#     WORKSPACE	
################################################################################

#MapWindowCurrentWorkSpace
#MapWindowDefaultWorkSpace
#NoShowOccupyAll
ShowWorkSpaceManager
StartInMapState
WMgrHorizButtonIndent	4
WMgrVertButtonIndent	4
WorkSpaceManagerGeometry "128x164-0+160" 2
WorkSpaces
{
    "Ichi"
    "Ni"
    "San"
    "Shi"
    "Go"
    "Roku"
}

################################################################################
#     WARP
################################################################################

#WarpCursor { }
WindowRing	    # All windows in ring
WindowRingExclude
{
    "WorkSpaceManager"
    "TWM Icon Manager"
    "SwissWatch"
    "XLoad"
    "XLogo"
    "XBiff"
    "XPostit"
}
WarpRingOnScreen
#WarpUnmapped

################################################################################
#     COLORS	
################################################################################

#BeNiceToColormap
Color
{
    BorderColor		    "SkyBlue"	# { }
#BorderTileBackground	    "Orange"	# { }
#BorderTileForeground	    "Green"	# { }
#DefaultBackground
#DefaultForeground
#IconBackground				# { }
#IconBorderColor			# { }
#IconForeground				# { }
#IconManagerBackground			# { }
#IconManagerForeground			# { }
#MapWindowBackground			# { }
#MapWindowForeground			# { }
    MenuBackground	    "gray80"
    MenuForeground	    "gray15"
    MenuShadowColor	    "gray15"	# default is black
    MenuTitleBackground	    "gray20"
    MenuTitleForeground	    "gray65"
#MenuShadowColor
    TitleBackground	    "Grey80"	# { }
#TitleForeground			# { }
}
#Monochrome { }
#SaveColor { }
#SqueezeTitle { }

################################################################################
#     RAISE AND RESIZE
################################################################################

#AutoRaise { }
#AutoRelativeResize
MaxWindowSize	"eval(WIDTH - 128 - (_BORDER_WIDTH * 2))x`'eval(HEIGHT - (_BORDER_WIDTH * 2))"
#NoOpaqueResize
#OpaqueResize { }
#OpaqueResizeThreshold { }
#RaiseDelay 100

################################################################################
#     MOVE  
################################################################################

#ConstrainedMoveTime 100
DontMoveOff
#MoveDelta 5
#MoveOffResistance 3
#NoOpaqueMove
NoRaiseOnMove
NoRaiseOnResize
RaiseOnWarp
#OpaqueMove { }
#OpaqueMoveThreshold { }
XMoveGrid 4
YMoveGrid 4

################################################################################
#     OCCUPY	
################################################################################

#AutoOccupy
Occupy
{
    WorkSpace	"Ichi"	{"TiK"}
    WorkSpace	"Ni"	{"Netscape" "Mozilla-bin" "Skipstone-bin" "Gnapster"}
    WorkSpace	"San"	{"gqmpeg" "XMcd" "XMmix"}
    WorkSpace	"Shi"	{"GV" "Xpdf"}
    WorkSpace	"Go"	{"Gimp"}
}
OccupyAll
{
    "SwissWatch"
    "XLoad"
    "XLogo"
    "XPostit"
    "XBiff"
    "IRSSI"
    "Fxtv"
}
#TransientHasOccupation

################################################################################
# FUNCTIONS 
################################################################################

#ChangeWorkspaceFunction	func
#DefaultFunction		func
#DeIconifyFunction	func
#IconifyFunction		func
#WindowFunction		func

Function "echo-and-restart" {!"echo .ctwmrc: Reloading Config..." f.restart}
Function "toxic-mutt" {!"rxvt -name rxvt-mail -geometry 80x`'eval(eval(HEIGHT - 28) / _XTERM_FONTSIZE)`'-128+0 -title \"Mail - toxic\" -e ssh -X -t toxic.magnesium.net mutt+biff &"}
Function "meow-mutt" {!"rxvt -name rxvt-mail -geometry 80x24+0-0 -title \"Mail - meow\" -e ssh -t meow.bsdlabs.com mutt &"}

################################################################################
# BINDINGS  
################################################################################

IgnoreLockModifier

# Title Buttons
RightTitleButton	":xpm:zoom"
{
    Button1 : f.fullzoom
    Button2 : f.zoom
    Button3 : f.hzoom
}
RightTitleButton	":xpm:iconify"	= f.iconify
RightTitleButton	":xpm:resize"	= f.resize
LeftTitleButton		"xpm:3dcircle.xpm"
{
    Button1 : f.delete
    Button3 : f.destroy
}
LeftTitleButton		":xpm:bar"	= f.menu "window_ops"

# TitleBar / Frame
Button1 =   : title | frame : f.move
Button2 =   : title | frame : f.raiselower
Button3 =   : title : f.squeeze
Button3 =   : frame : f.resize

# Window
"F2" = m    : window : f.raise
"F3" = m    : window : f.lower
"F4" = m    : window : f.delete
"F5" = m    : window : f.fullzoom
"F6" = m    : window : f.zoom
"F7" = m    : window : f.hzoom
#"F7" = m    : window : f.move
"F8" = m    : window : f.resize
"F9" = m    : window : f.iconify
"F10" = m   : window : f.squeeze






# Menu

IgnoreCaseInMenuSelection

#
Button1 =   : root  : f.menu "apps"
Button2 =   : root  : f.menu "window_ops"
Button3 =   : root  : f.menu "TwmWindows"
Button3 = s : root  : f.menu "TwmAllWindows"
#
Button1 =   : icon  : f.move
Button2 =   : icon  : f.iconify
#
#Button1 =   : iconmgr	: f.warpto
Button2 =   : iconmgr	: f.iconify
#"space" =   : iconmgr	: f.iconify
"Up" =	    : iconmgr	: f.upiconmgr
"Down" =    : iconmgr	: f.downiconmgr
"Return" =   : iconmgr	: f.raise
#
"Escape" = c   : all : f.menu "apps"
"D" = c		: root : f.menu "shutdown_confirm"
"Pause" = s	: all : !"xlock -mode bouboule &"
#"F1" = c    : all : f.menu "apps"
#"L1" = c    : all : f.menu "apps"

"Escape" = s   : window | icon	    : f.menu "window_ops"
"Tab" = m   : all : f.warpring "next"
"Tab" = s m : all : f.warpring "prev"
"Escape" = m   : all : f.nextworkspace
"Escape" = s m : all : f.prevworkspace
"Up" = s m    : all : f.upworkspace
"K" = s m   : all : f.upworkspace
"Down" = s m  : all : f.downworkspace
"J" = s m : all : f.downworkspace
"Left" = s m  : all : f.leftworkspace
"H" = s m : all : f.leftworkspace
"Right" = s m : all : f.rightworkspace
"L" = s m : all : f.rightworkspace
"F10" = s   : icon		    : f.menu "window_ops"
#"Delete" = s a : root | icon | window  : f.restart
#"F4" = a : root : f.menu "shutdown_confirm"

#"F5" = m    : window | title	    : f.deiconify
#"F7" = m    : window | title	    : f.move

"Meta_L" =  : all   : _XTERM(su -m)
"Meta_R" =  : all   : !"rxvt &"
"Menu" =    : all   : f.menu "apps"

################################################################################
# MENUS	
################################################################################

#InterpolateMenuColors
#NoMenuShadows
StayUpMenus
WarpToDefaultMenuEntry

define(_MENU_BEGIN, `menu "$1"
{
"$2"	f.title')

define(_MENU_END, `    _PIN_MENU
}')

define(_MENU_SEP, `""	f.separator')

define(_MENU_CAT, `"$1"	    f.title')

_MENU_BEGIN(apps, ctwm@_SHORTHOST)
    _APP(rxvt)
    _APP_OPT(rxvt, su, -m)
    _MENU(term, Term)
    _MENU(net, Net)
    _MENU(chat, Chat)
    _MENU(www, WWW)
    _MENU(shell, Shell)
    _MENU(media, Media)
    ifdef(`_JA', _MENU(japanese, Japanese))
    _MENU(edit, Edit)
    _MENU(view, View)
    _MENU(x11, X11)
    _MENU(graphic, Graphic)
    _MENU(game, Game)
    _MENU(calc, Calc)
    _MENU(sys, Sys)
    _MENU(meow, Meow)
    _MENU_SEP
    _MENU(set, Set)
    _MENU_SEP
    "Save [random]"	_XSAVE(random)
    "Lock [random]"	_XLOCK(random)
    "Lock [boubouble]"	_XLOCK(bouboule)
    _MENU_SEP
    "Refresh"		f.refresh
    "Restart"		f.function "echo-and-restart"
    _MENU_SEP
    _MENU(shutdown_confirm, Shutdown)
_MENU_END

_MENU_BEGIN(term, Term)
    _APP(rxvt)
    "rxvt (su)"		_XTERM(su -m)
    "rxvt (login)"	!"env TITLE_BLOCK= rxvt -title Login -geometry 80x50+16+16 &"
    "rxvt (trans.)"	!"rxvt -tr &"
    _APP(xterm)
    _APP_OPT(xterm, su, -m)
_MENU_END

_MENU_BEGIN(net, Net)
    _APP(gnapster)
    _APP(gtk-gnutella)
    _APP(bidwatcher)
changequote(<,>)
    "traceroute"	_XTERM(traceroute `xprompt -p 'Host'`)
    "mtr"		!"mtr `xprompt -p 'Host'` &"
    "ping"		!"ping `xprompt -p 'Host'` &"
changequote(`,')
_MENU_END

_MENU_BEGIN(chat, Chat)
    "irssi"		!"rxvt +sb -name IRSSI -e irssi &"
    _APP(ymessenger)
    _APP(tik)
    "tac"		_XTERM(tac)
    _APP(gtkyahoo)
_MENU_END

_MENU_BEGIN(www, WWW)
    "mozilla"		!"linux-mozilla &"
    _APP(netscape)
    "w3m"		_XTERM(w3m, W3M)
    _APP(skipstone)
    "konqueror"		!"konqueror 2> /dev/null &"
    _APP(agsatellite)
_MENU_END

_MENU_BEGIN(set, Set)
    _MENU(settings_saver, Saver)
    "Reset keyrate"	!"(xset r off; xset r rate 250 34) &"
    _MENU(settings_mouse, Mouse)
    _MENU(settings_root, Root)
_MENU_END

_MENU_BEGIN(settings_saver, Saver)
    "On"		!"xset s on &"
    "Off"		!"xset s off &"
}

define(_MOUSE_ACCEL, "x $1"	!"xset m $1 &")
_MENU_BEGIN(settings_mouse, Mouse)
    "Default"		!"xset m default &"
    _MOUSE_ACCEL(10)
    "x 10"		!"xset m 10 &"
    "x 9"		!"xset m 9 &"
    "x 8"		!"xset m 8 &"
    "x 7"		!"xset m 7 &"
    "x 6"		!"xset m 6 &"
    "x 5"		!"xset m 5 &"
    "x 4"		!"xset m 4 &"
    "x 3"		!"xset m 3 &"
    "x 2"		!"xset m 2 &"
    "x 1"		!"xset m 1 &"
    "x 1 / 2"		!"xset m 1 / 2 &"
    "x 1 / 3"		!"xset m 1 / 3 &"
    "x 1 / 4"		!"xset m 1 / 4 &"
    "x 1 / 5"		!"xset m 1 / 5 &"
    "x 1 / 6"		!"xset m 1 / 6 &"
    "x 1 / 7"		!"xset m 1 / 7 &"
    "x 1 / 8"		!"xset m 1 / 8 &"
    "x 1 / 9"		!"xset m 1 / 9 &"
    "x 1 / 10"		!"xset m 1 / 10 &"
_MENU_END

define(_ROOT_COLOR, "$1"    !"xsetroot -solid '$1' &")
define(_ROOT_RAND_IMAGE, "Random $1 Image"	!"rand-bg $2 &")
_MENU_BEGIN(settings_root, Root)
    "Root color"	f.title
    _ROOT_COLOR(Cadet Blue)
    _ROOT_COLOR(Black)
    _ROOT_RAND_IMAGE(Japan, /home/share/images/japan)
    _ROOT_RAND_IMAGE(Background, /home/share/images/back)
_MENU_END

_MENU_BEGIN(x11, X11)
    _APP(xload)
    _APP(editres)
    _APP(xlogo)
    _APP(xeyes)
    _APP(gleyes)
    _APP(xpostit+)
    _APP(viewres)
    _APP(xcmap)
    _APP(xcalc)
    _APP(xclipboard)
    _APP(xmag)
_MENU_END

_MENU_BEGIN(graphic, Graphic)
    _APP(gimp)
    _APP(xv)
    _APP(gqview)
    _APP(xfig)
    _APP(dia)
    _APP(vlc)
    _APP(xine)
_MENU_END

define(_KDRILL_SHARE, /usr/X11R6/share/kdrill)
define(_KDRILL, !"kdrill -kdictfile $1 -edictfile $2 &")
menu "japanese"
{
    "Japanese"		    f.title
    "xjdic"		    _JXTERM(xjdic, XJDic)
    "kdrill"		    _KDRILL(_KDRILL_SHARE/edict.gz, _KDRILL_SHARE/kanjidic.gz)
    "kdrill [hiragana]"	    _KDRILL(none, _KDRILL_SHARE/makedic/hira.edic)
    "kdrill [katakana]"	    _KDRILL(none, _KDRILL_SHARE/makedic/kata.edic)
    "kdrill [hiragana+]"    _KDRILL(none, _KDRILL_SHARE/makedic/hiraplus.edic)
    "kdrill [katakana+]"    _KDRILL(none, _KDRILL_SHARE/makedic/kataplus.edic)
    "kdrill [hira/kata]"    _KDRILL(none, _KDRILL_SHARE/makedic/hirakata.edic)
    "kdrill [hira+/kata+]"  _KDRILL(none, _KDRILL_SHARE/makedic/hirakataplus.edic)
}

_MENU_BEGIN(shutdown_confirm, Confirm)
    "Cancel"	    f.nop
    "Confirm..."		("white":"red")	f.quit
_MENU_END

_MENU_BEGIN(shell, Shell)
    _MENU_CAT(home.meowfishies.com)
define(`_RMT_DOMAIN', home.meowfishies.com)
    _SSH_X(kaneda)
    _SSH(kaneda)
    _SSH_X(neko)
    _SSH(neko)
    _VNC(neko)
    _SSH(mecha)
    _SSH(otaku)
    _SSH(blinky)
    _MENU_CAT(magnesium.net)
define(`_RMT_DOMAIN', magnesium.net)
    _SSH(toxic)
    "toxic [mutt]"  f.function "toxic-mutt"
    _MENU_CAT(dub.net)
define(`_RMT_DOMAIN', dub.net)
    _SSH(rum)
    _MENU_CAT(astound.net)
define(`_RMT_DOMAIN', astound.net)
    _SSH(fast)
    _MENU_CAT(sscl.berkeley.edu)
define(`_RMT_DOMAIN', sscl.berkeley.edu)
    _SSHL(yana, mad)
    _SSHL(snowy, mad)
    _SSHL(esselen, mad)
    _TELNET(yana)
    _TELNET(snowy)
    _FTP(yana)
    _FTP(snowy)
    _MENU_CAT(bsdlabs.com)
define(`_RMT_DOMAIN', bsdlabs.com)
    _SSH(meow)
    "meow [mutt]"   f.function "meow-mutt"
    _SSH_X(meow)
    _SSH(uniq)
    _SSH(pike)
    _SSH(gusto)
    _SSH(mother)
    _SSH(who)
    _SSH(squiddy)
    _SSH(deimos)
    _SSH(ares)
    _SSH(whine)
    _SSH(trinity)
    _SSH(morpheus)
    _SSH(web1)
    _SSH(scrub)
    _SSH(jukebox)
    _SSH(spam)
    _TELNET(gatekeeper)
    _TELNET(console1)
    _TELNET(power1)
    _TELNET(power2)
    _TELNET(power3)
    _TELNET(power4)
    _MENU_CAT(ixsystems.net)
define(`_RMT_DOMAIN', ixsystems.net)
    _SSH(knight)
    _SSH(castle)
    _SSH(rampart)
    _SSH(orion)
    _TELNET(drawbridge)
    _MENU_CAT(blue-shift.net)
define(`_RMT_DOMAIN', blue-shift.net)
    _SSH(mecha)
    _SSH(otaku)
    _SSH(veritech)
    _FTP(mecha)
    _FTP(wooley)
    _MENU_CAT(laya.com)
define(`_RMT_DOMAIN', laya.com)
    _SSHL(llama, seth)
    _SSHL(sun, seth)
    _TELNET(llama)
    _FTP(llama)
    _MENU_CAT(dvc.edu)
define(`_RMT_DOMAIN', dvc.edu)    
    _TELNET(hagar)
    _MENU_CAT(jackmekenstock.org)
define(`_RMT_DOMAIN', 5.30.51)
    _FTP(24)
    _MENU_CAT(delphicorp.com)
define(`_RMT_DOMAIN', delphicorp.com)
    _VNCP(seth, 3389)
_MENU_END

_MENU_BEGIN(edit, Edit)
    _APP(gvim)
    "vim"		_XTERM(vim, Vim)
    "vi"		_XTERM(vi, Vi)
    "ex"		_XTERM(ex, Ex)
    _MENU_SEP
    _EDIT_FILE(~/.plan)
    _EDIT_FILE(~/.project)
    _EDIT_FILE(~/doc/TODO)
    _EDIT_FILE(~/.ctwmrc)
    _EDIT_FILE(~/.muttrc)
    _EDIT_FILE(~/.Xdefaults)
    _EDIT_FILE(~/.cshrc)
    _EDIT_FILE(~/.vimrc)
    _EDIT_FILE(~/.exrc)
_MENU_END

_MENU_BEGIN(calc, Calc)
    "bc"		_XTERM(bc, BC)
    "dc"		_XTERM(dc, DC)
    _APP(xcalc)
    _APP_OPT(xcalc, rpn, -rpn)
_MENU_END

_MENU_BEGIN(media, Media)
    _APP(gqmpeg)
    _APP(xmmix)
ifdef(`_CDROM0', `"xmcd (acd0c)"	!"xmcd -dev /dev/acd0c &"')
ifdef(`_CDROM1', `"xmcd (acd1c)"	!"xmcd -dev /dev/acd1c &"')
ifdef(`_CDROM0', `"cdcontrol (acd0c)"	_XTERM(cdcontrol -f /dev/acd0c, CDControl)')
ifdef(`_CDROM1', `"cdcontrol (acd1c)"	_XTERM(cdcontrol -f /dev/acd1c, CDControl)')
    _APP(fxtv)
_MENU_END

_MENU_BEGIN(view, View)
    _APP(gv)
    _APP(xdvi)
changequote(X, X)
    "xman"		!"env MAPATH=`manpath -q` xman &"
changequote(`, ')
_MENU_END

_MENU_BEGIN(sys, Sys)
    "top"		_XTERM(top, Top)
    _APP(xload)
    _APP(xbiff)
    _APP(xvidtune)
    _APP(xconsole)
_MENU_END

_MENU_BEGIN(game, Game)
    _APP(xgalaga)
    _APP(gtetrinet)
    _APP(maelstrom)
    _APP(xscrabble)
_MENU_END

_MENU_BEGIN(meow, Meow)
    _APP(cdg)
    "mp3q"		_XTERM(mp3q, MP3Q)
_MENU_END

_MENU_BEGIN(window_ops, Window Ops)
    "Info"		f.identify
    "Refresh"		f.winrefresh
    "Occupy..."		f.occupy
    "Occupy All"	f.occupyall
    "Vanish"		f.vanish
    ""			f.separator
    "Resize"		f.resize
    "Move"		f.move
    "VZoom"		f.zoom
    "HZoom"		f.hzoom
    "FullZoom"		f.fullzoom
    "BottomZoom"	f.bottomzoom
    "TopZoom"		f.topzoom
    "LeftZoom"		f.leftzoom
    "RightZoom"		f.rightzoom
    "Normal Size"	f.initsize
    ""			f.separator
    "Kill"		f.destroy
    ""			f.separator
    "Iconify"		f.iconify
    "Delete        <ALT+F4>"	f.delete
_MENU_END

# ==============================================================================
# .ctwmrc
# ==============================================================================