.fvwm2rc

### XXX:  Patch
#Colorset 11 fg white, bg purple
#Style rxvt HilightBorderColorsetNorth 11

# vim: set foldmethod=marker
########################################
# Fvwm Configuration                   #
# Author:  Thomas Adam                 #
# Email: thomas@edulinux.homeunix.org  #
# Reedition: Dj_Dexter                 #
########################################

# Some of the functions in here I have stol Hborrowed from other
# people's configuration files.  Where credit is due, I have attributed
# them to the relevant author.
#
# Saves me having to reinvent the wheel.

# Basic Settings {{{1
# Edge settings {{{2

# EdgeScroll defines how much of the viewport is scrolled when the mouse
# hits the edge of the screen.  Tyically this might land the viewport
# in-between pages, so I tend to disable it.  Besides which, I never did
# like flipping pages with the mouse.
EdgeScroll 0 0

# EdgeResistance defines the resistance value from the edge of the
# screen when moving windows between pages.  It's useful so that you don't
# move windows from page to page when you don't mean to.

EdgeResistance 500
Style * EdgeMoveDelay scrolling

Style * EdgeMoveResistance 100 100

# The width and height of the pan window drawn when moving window
# between pages.
EdgeThickness 1

# When the mouse pointer hits the bottom edge of the screen, iconify the
# FvwmButtons instance called 'FvwmButtonsBottom'.
#EdgeCommand Bottom All (FvwmButtons-Compact) Iconify
# }}}2

# Most of these options are sundry to FVWM, but provide useful features
# for other modules, etc.

# Ignore modifiers for buttons which applications use:  Numlock, CapsLock,
# and ScrollLock
IgnoreModifiers L25
Style "*" Iconsize 36 36

# Useful for AnimatedMove.
SetAnimation  10  -.01 0 .01 .03 .08 .18 .3 .45 .6 .75 .85 .90 .94 .97 .99 1.0

# Where FVWM will look for its icons and anything else we might wish
# for.
ImagePath +:/usr/share/icons/fvwm:/usr/share/pixmaps:+
ImagePath $[HOME]/.fvwm/icons:+:$[FVWM_USERDIR]/pixmaps

# This is important.  The "ModulePath" command under *normal*
# circumstances is deprecated.  However, I use it here because I have
# written my own modules.  But note the syntax.  The "+" sign is
# important, as it's prepending to the ModulePath value defined already,
# internally, to fvwm.  This same technique ought to really apply to
# ImagePath (see above).
# Commented out by fvwm-convert-2.6:  ModulePath +:$[HOME]/projects/ruby/FvwmRuby

# What font to use if nothing else can be used, or we don't explicitly set
# one.
DefaultFont -adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*

# The font that's used for icon titles.
IconFont -adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*

# Quite a thick title box for the icons (not at all like twm's style)
IconTitleRelief -50

# Relative to the font size of a window, just how high should the title
# bar be?  (in pixels)
TitleStyle Height 9

# Mimick general appearences and functionality of windows.  Fvwm puts
# the geometry window in the top-left, for instance.  This setting also
# determines the look and feel of windowing hints and menus.  I used to
# use "MWM" -- and I quite often change between the two, depending on my
# mood.  I quite like the 3Dness of FVWM, that MWM doesn't inherently
# have.
Emulate Fvwm

# DesktopName is what used to be the "Label" option in the FvwmPager
# module.  It allows you to define (and hence set) the name of any Desks
# you might have.  The more names you declare here, the more desks that
# are created -- but see 'DesktopSize'
DesktopName 0 Main
DesktopName 1 Games
DesktopName 2 Devel
DesktopName 3 Misc

# As with the 'Emulate' command, this ensures I always see the geometry
# window when resizing/moving windows around the screen.
HideGeometryWindow never

# EWMH are god's gift to inter-window management and client operability.
# EWMHBaseStructs allows me to define, or mark-off, those areas of the
# screen that I don't want new windows to be placed over, or to have
# cover when a window is maximised.   In this case, the command works in
# the following manner:
#
# EWMHBaseStruts left right top bottom
#
# I'm defining the left, right and top regions to be unaffected, but the
# bottom 40 pixels of the screen to remain uncoverable (since this is the
# height of the FvwmButtonsBottom FvwmButtons instance I have.)
#EWMHBaseStruts 0 0 0 40

# This defines the time between a button press and a button release (in
# ms).  At least this value gives me enough time to be slow about a
# decision.
ClickTime 310

# Number of pages per desk.  In this case, mine looks like this:
#
#
#   +-----+-----+-----+-----+-----+-----+
#   |     |     |     |     |     |     |
#   +-----+-----+-----+-----+-----+-----+
#   |     |     |     |     |     |     |
#   +-----+-----+-----+-----+-----+-----+
#   |     |     |     |     |     |     |
#   +-----+-----+-----+-----+-----+-----+
#
# Possibly overkill, but you can never have too many.  I used to have it
# split into two Desks of 3x3, but decided to merge them into one desk
# with many pages, mostly due to the way FVWM thinks about pages and desk
# boundaries when using conditional commands.
##DeskTopSize 6x3
DesktopSize 3x3

# The root cursor (the one in the root window) defaults to a cross.  I
# don't like this -- I prefer an arrow pointing to the left.
CursorStyle root top_left_arrow

# When moving large applications, ensure they don't flicker too much.
OpaqueMoveSize -1

# As with the above, when moving windows, make them stick, if:
# window -> window, or icon -> icon takes place.
Style * SnapAttraction 2 SameType

# How icons react to one another.
Style * SnapGrid 1 1

# How many pixels before a move window is indicated?
MoveThreshold 3

# Tells Fvwm to ignore the XEvent 'configureNotify' to stop windows
# flickering.
BugOpts FlickeringMoveWorkAround True
# }}}1
# Colorsets {{{1

# Set the main colorset
####Colorset 0 fg black, bg rgb:60/a0/c0

Colorset 0 fg black, bg snow3
Colorset 1 fg white, bg lightseagreen
Colorset 2 fg white, bg rgb:00/50/00, Plain, NoShape
Colorset 3 fg white, bg darkgreen
Colorset 4 fg rgb:f0/f0/f4, bg average, NoShape
Colorset 5 fg rgb:f0/f0/f4, bg rgb:0b/2e/46, Plain, NoShape
Colorset 6 fg rgb:f0/f0/f4, bg average, Plain, NoShape


# Other colorsets are defined in ~/.fvwm/colorsets, and are used for the
# dynamic menu.

ColorMapFocus  FollowsMouse
# }}}1
# Internal Variables {{{1

# Variables for FVWM's use.  These are variables placed in the
# environment by FVWM.  Hence they can the be accessed by any command or
# Module spawned by FVWM.
#
# See also:  http://edulinux.homeunix.org/fvwm/fvwmchanfaq.html#16
SetEnv RCount 0
SetEnv RXVT "rxvt +sb -bg white -fg black"
SetEnv RXVTR "rxvt +sb -bg black -fg white"
SetEnv DefCS "Colorset 1 fg white, bg #c06077"
# }}}1
# Style definitions {{{1
# General Window Styles {{{2
# Default styles common to all windows created.

# IconBox, Iconfill, and IconGrid are all related to one another, and
# define where and how the icons are to be placed on the screen.
#
# See:  http://edulinux.homeunix.org/fvwm/fvwmchanfaq.html#21
#
# ... for more information.
##Style *	  IconBox 1145x54+0+762, IconFill b l, IconGrid 3 3
#Style *	  IconBox 1144x87+0+777, IconFill b l, IconGrid 3 3
Style "*" IconBox       -1250 -730 -134 -5
#Use in Crt's
#Style "*" IconBox       -910 -730 -134 -5
# Some applications (such as Netscape) are stubborn about letting go of
# their own icon.  This overrides that for all windows.
Style *   IconOverride

# BoderWidth and HandleWidth are part of the decoration overall of the
# window.  A pixel width of four seems enough.  Note that the original
# AnotherLevel package from RedHat version 4 onwards used a pixel width of
# eight.
Style *   BorderWidth 4, HandleWidth 4

# 'FvwmBorder' draws the border with a 3D effect that has a slightly (by one
# pixel) border bevel than 'MwmBorder'.  I actually prefer this style
# though.
#
# 'FirmBorder' means that clicking on the border does not make it appear
# pressed in, which is what the style 'DepressableBorder' does.
Style *   FvwmBorder, FirmBorder

# Where would I be without SloppyFocus?  This means I can focus windows
# just by moving the mouse over them, and without having to click on them
# (which would otherwise be 'ClickToFocus').  Note that there is a very
# similar style known as 'FocusFollowsMouse', the difference being that
# SloppyFocus retains focus on a window if the pointer moves into the root
# window, which FocusFollowsMouse does not allow for.
Style *   SloppyFocus

# All windows use Colorset 0 when not active (i.e. does not have focus).
Style *   Colorset 0

# All windows use Colorset 1 when active (i.e. has focus).
Style *   HilightColorset 1

# All window use the same decor.
Style *   UseDecor fDecor

# This line is not really needed, but shows which buttons (as defined in
# the Decor) I wish to have displayed in the titlebar of the windows.
Style *   Button 1, Button 2, Button 4, Button 6

# MWMButtons makes the maximise button looked depressed when a window is
# maximized.
Style *   MWMButtons

# MWMDecor and MWMFunctions sets various hints on the window that some
# clients use for interactivity with the window manager.
Style *   MWMDecor, MWMFunctions

# Prohibition of other MWMFunctions.
Style *	  HintOverride

# Placement policy.  MinOverlapPlacement is great, and allows one to
# fine-tune where applications ultimately end up by way of penalties to
# set limits as to how close or how much the clients overlap.  The default
# behaviour of it suits me well enough though.
Style *	  MinOverLapPlacement

# Certain applications such as XTerm, rxvt, XV, etc., all have columnar
# resize mechanisms, since they operate on columnar levels of input.  This
# can sometimes leave gaps when maximising these applications around the
# edge of the screen, or when tiling with other windows, so we'll turn
# them off.  This can sometimes though lead to odd results -- such as
# Ncurses applications displaying incorrectly, if the terminal in which it
# runs is resized passed its normal columnar limit.
Style *   ResizeHintOverride

# PPosition is a real PITA.  See:
# http://edulinux.homeunix.org/~n6tadam/fvwm/tips/misc/xlib_wm_positioning.txt
# http://edulinux.homeunix.org/~n6tadam/fvwm/tips/misc/mozilla_position.txt
Style *   !UsePPosition

# Don't animate when shading windows -- I don't have the CPU cycles for
# it.
Style *   WindowShadeSteps 0, WindowShadeScrolls

# Decorate transient windows, and don't draw the rubberband when resizing
# windows.
Style *   DecorateTransient, ResizeOpaque
Style *   Font	-adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
# }}}2
# Application specific styles. {{{2

# Styles related to specific applications.
# See:  http://edulinux.homeunix.org/~n6tadam/fvwm/tips/misc/styles.txt
Style rxvt  IndexedWindowName, Icon wterm.xpm
Style xterm  IndexedWindowName, Icon wterm.xpm
Style urxvt IndexedWindowName, Icon wterm.xpm
Style Dillo IndexedWindowName, Icon screen.xpm
Style "Opera" !Handles
#Style "rclock" !Title, !Borders, !Handles, Sticky, WindowListSkip
#Style "xload"  !Title, !Borders, !Handles, Sticky, WindowListSkip
#Style "trayer"  !Title, !Borders, !Handles, Sticky
Style "Pcmanfm" !Handles

# Naughty!
Style Fvwm*  Sticky, WindowListSkip, !Title, CirculateSkip, !Handles

Style FvwmConsole Title, Handles, Icon screen.xpm
Style Vim* Title, Handles
Style gaim Title, Handles, BorderWidth 5, HandleWidth 5
Style xloadtime !Title, Handles, Sticky
Style xbuffy !Title, Sticky
Style xlassie !title, Sticky
Style "Terminal Emulation"  StartsOnPage 0 0 0, SkipMapping
Style xmcd    StartsOnPage 0 0 0, SkipMapping, Icon disk-cd.xpm
Style rxvt_a  StartsOnPage 0 1 1, SkipMapping, Icon wterm.xpm
Style rxvt_b  StartsOnPage 0 1 1, SkipMapping, Icon wterm.xpm
Style irc     StartsOnPage 0 1 1, SkipMapping, Icon wterm.xpm, Sticky, StickyAcrossDesks
Style mutt    StartsOnPage 1 1, SkipMapping, IconOverride, Icon /usr/share/pixmaps/mutt.xpm
Style rxvt_c  StartsOnPage 1 2, SkipMapping, Icon wterm.xpm
Style rxvt_d  StartsOnPage 1 2, SkipMapping, Icon wterm.xpm
Style Mozilla-bin StartsOnPage 0 1 0, SkipMapping, WindowListSkip
Style Mozilla StartsOnPage 0 1 0, SkipMapping, WindowListSkip
Style FvwmIconMan WindowListSkip
Style FvwmButtonsBottom WindowListSkip, !Icon
Style gecko WindowListSkip
#Style Login CenterPlacement
Style Gvim Title, !Sticky
Style urlview StartsOnPage 1 1 SkipMapping, Icon wterm.xpm, !Closable
Style irssi   StartsOnPage 1 1, SkipMapping, Icon 32x32-kde/chat.xpm, !Closable, StickyAcrossDesks
Style AlsaPlayer  StartsOnPage 1 1, SkipMapping, !Closable
Style multitail StartsOnPage 0 1, SkipMapping, !Closable, SkipMapping
Style Gmrun GrabFocus
Style Multi-gnome-terminal Icon 32x32-kde2/linux.xpm, SkipMapping, StartsOnPage 1 1
Style ncmpc Icon 32x32-kde/music.xpm, StartsOnPage 1 1, SkipMapping, Sticky
Style MPlayer !Title
#Style "**"  Icon default.xpm
#}}}2
# Module Styles {{{2
# Styles related to various FvwmModules.
Style FvwmButtons !Title, !Handles, CirculateSkip, NeverFocus, Sticky, \
      WindowListSkip
Style Buttons-Slider !Title, !Handles, !Borders
Style *bar*   !Handles, !Borders, SloppyFocus

# Using FvwmForm
Style Login !Title, !Handles, BorderWidth 10
Style FvwmForm-Run Title

# FvwmButtons-FvwmButtonsBottom
Style FvwmButtonsBottom !Title, !Borders, WindowListSkip, !Icon
Style FvwmButtons-Compact !Title, WindowListSkip, !Icon
#}}}2
# }}}1
# Decors {{{1
# AddToDecor allows for things like vector buttons to be defined. This is
# deprecated and plans for it to be re-written are long overdue. :)
AddToDecor   fDecor
+ BorderStyle Simple
+ TitleStyle  -- Raised
+ ButtonStyle All -- Raised
+ AddButtonStyle 1 Vector 5 25x40@1 25x60@1 75x60@0 75x40@0 25x40@1
+ AddButtonStyle 2 Vector 4 50x25@1 75x75@0 25x75@0 50x25@1
+ AddButtonStyle 4 Vector 4 50x75@1 25x25@1 75x25@1 50x75@0
+ ButtonStyle 1 - Clear MWMDecorMenu
#+ ButtonStyle 2 - Clear
+ ButtonStyle 2 - Clear MWMDecorMax
+ ButtonStyle 4 - Clear MWMDecorMin
# }}}1
# Bindings {{{1
# Mouse Bindings {{{2
# Handle some Mouse bindings now...
# Recall that mouse formats look like this:
#
# +------------+
# | ||  ||  || |
# |	           |
# +------------+
#   1   3   2

# Binding Functions
#
# "I" stands for Immediate
# "M" stands for Motion
# "C" stands for Click
# "H" stands for Hold
# "D" stands for Double Click

# ---------------------------------------------------------------------------
# Contexts:
#     R = Root Window                 rrrrrrrrrrrrrrrrrrrrrr
#     W = Application Window          rIrrrrFSSSSSSSSSFrrrrr
#     F = Frame Corners               rrrrrrS13TTTT642Srrrrr
#     S = Frame Sides                 rIrrrrSwwwwwwwwwSrrrrr
#     T = Title Bar                   rrrrrrSwwwwwwwwwSrrrrr
#     I = Icon                        rIrrrrFSSSSSSSSSFrrrrr
#                                     rrrrrrrrrrrrrrrrrrrrrr
# Numbers are buttons: 1 3 5 7 9   0 8 6 4 2
#
# Modifiers: (A)ny, (C)ontrol, (S)hift, (M)eta, (N)othing
# ---------------------------------------------------------------------------


# Root menu mouse bindings.
Mouse 1   R       A     Menu FvwmMenuRoot
Mouse 2	  R       A     WindowList
Mouse 3	  RFT     A     Menu FvwmMenuWindowOps

Mouse 1   SFT     A     FuncFvwmMoveOrRaiseOrShade
Mouse 1   SF      A     FuncFvwmResizeOrRaiseOrShade Maximize
Mouse 1	  I       A     FuncIconifyDeIconify
Mouse 3	  I       A     Menu FvwmMenuWindowOps
Mouse 3	  FS      A     Menu FvwmMenuWindowOps

Mouse 0	  1	  A	FuncWindowOpsOrClose
Mouse 0	  4	  A	FuncIconifyDeIconify
Mouse 0	  2	  A	FuncFvwmMaximizeFullScreen
Mouse 0	  4	  S	FuncDeIconifyAll
# }}}2
# Keyboard Shortcuts {{{2
# Now some keyboard shortcuts.

# Arrow Keys
# Press arrow + control anywhere, and scroll by 1 page.  There's any
# number of ways to do this.  I use Scroll, since it was what I used from
# FVWM 2.2.x, and have not needed to change it.  There's now GotoPage as
# an alternative and slightly more featureful command.
Key Left	A	CM	Scroll -100 0
Key Right	A	CM	Scroll +100 +0
Key Up		A	CM	Scroll +0 -100
Key Down	A	CM	Scroll +0 +100

# Press arrow + meta key, and scroll by 1/10 of a page
Key Left	A	SM	Scroll -10 +0
Key Right	A	SM	Scroll +10 +0
Key Up		A	SM	Scroll +0 -10
Key Down	A	SM	Scroll +0 +10

# Press shift arrow + control anywhere, and move the pointer by 1% of a page
Key Left	A	SC	CursorMove -1 0
Key Right	A	SC	CursorMove +1 +0
Key Up		A	SC	CursorMove +0 -1
Key Down	A	SC	CursorMove +0 +1

# Window key-bindings
Key v		W	3	Maximize 0 100 growonwindowlayer
Key h		W	3	Maximize 100 0 growonwindowlayer
Key m		W	3	Maximize 100 100
Key i		W	3	Iconify on


#Key Volume+
Key XF86AudioRaiseVolume A A Exec exec amixer set PCM 5%+ -q
#Key Volume-
Key XF86AudioLowerVolume A A Exec exec amixer set PCM 5%- -q
# ALT+F2 Resize
Key F2  A M Resize
# ALT+F2 Resize
Key F10  A M Move
# ALT+F4 Close
Key F4  A M Close
# ALT+R exec gmrun
#Key R   A M Exec exec gmrun
# ALT+E exec gentoo
Key E   A M Exec exec pcmanfm
# Super+V +real transparency
Key V   A 4 Exec exec transset-df --min 0.1 -p --dec 0.2
# Super+H -real transparency
Key H   A 4 Exec exec transset-df -p --inc 0.1
# CTRL+ALT+E Eject Dvd Drive
key E   A CM Exec exec sudo eject
# CTRL+ALT+D Close Dvd Drive
Key D   A CM Exec exec sudo eject -t
#Application keybindings.

# CTRL+ALT+L:  Lock the terminal.
#Key L	A CM  Exec xscreensaver-command -lock

# WindowsKey+X:  Run rxvt
#Key X   A 3   Exec exec xterm

# WindowsKey+S:  Make the window Sticky
Key S   A 3   Stick

# WindowsKey+Tab:  Run FvwmProxy
Key Tab A 3   SendToModule FvwmProxy ShowToggle

# CTRL+ALT+R:  Open gmrun (I sometimes use FvwmForm-Run as well).
Key R   A CM  Exec exec gmrun

# CTRL+ALT+I:  (In the root window) recompute and replace where icons are
#	       meant to be.
PointerKey I   R CM  All (CurrentPage, Iconic) PlaceAgain Icon Anim

# See above.
#Key R   A CM  Module FvwmForm FvwmForm-Run

# Raise FvwmButtons
Key Up  A 3M All (CurrentPage, !Iconic, "FvwmButtons-Compact|FvwmButtons-Pager") RaiseLower

# The menu key opens up the root Fvwm Menu.
Key Menu A N  Popup FvwmMenuRoot

# I stole these functions from elsewhere -- move a window to the closest
# one in a given direction.
Key Up      WTSF    C3  PackUp
Key Down    WTSF    C3  PackDown
Key Left    WTSF    C3  PackLeft
Key Right   WTSF    C3  PackRight

# Shade a window in a given direction.
Key Up      WTSF    3   WindowShade North
Key Down    WTSF    3   WindowShade South
Key Left    WTSF    3   WindowShade West
Key Right   WTSF    3   WindowShade East
# }}}2
# Mouse Stroke Support {{{2
Mouse 3 R A     StrokeFunc DrawMotion FeedBack StrokeWidth 1
#Stroke 0 0 R N     Menu MenuFvwmRoot

# Refresh Root Window {{{3
# Down, Then Up.
#Stroke 25852 0 R N  Refresh
# }}}3

# Directions (for flipping pages.) {{{3
#Stroke 456 0 R N    GotoPage +1p 0p
#Stroke 654 0 R N    GotoPage -1p 0p
#Stroke 852 0 R N    GotoPage 0p -1p
#Stroke 258 0 R N    GotoPage 0p +1p

# Diagonal...
#Stroke 159 0 R N    GotoPage +1p +1p
#Stroke 951 0 R N    GotoPage -1p -1p
#Stroke 357 0 R N    GotoPage -1p +1p
#Stroke 753 0 R N    GotoPage +1p -1p
#}}}3
#}}}2
# }}}1
# Menu Styles {{{1
MenuStyle MWM
MenuStyle * Font  -adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
##############################################################
#These taken from fvwm-themes 'default' theme.
MenuStyle * Hilight3DThickness 2
#MenuStyle * Background darkgrey, Foreground black
MenuStyle * PopupDelayed, PopupDelay 150, PopdownDelayed, PopdownDelay 150
MenuStyle * PopupOffset -15 100, TitleWarpOff
MenuStyle * TitleUnderlines2, SeparatorsLong, TrianglesRelief
MenuStyle * Animation, AutomaticHotkeysOff, DoubleClickTime
MenuStyle * BorderWidth 2, SidePic, SideColor
MenuStyle * PopupAsSubmenu, HoldSubmenus, SubmenusRight
MenuStyle * ItemFormat "%.4s%.1|%.5i%.5l%.5l%.5r%.5i%2.3>%1|"
MenuStyle * VerticalItemSpacing, VerticalTitleSpacing
BusyCursor  DynamicMenu True
#}}}1
# Functions {{{1
# Init Functions {{{2
# StartFunction {{{3
#+ I Module FvwmButtons FvwmButtonsBottom -g $[vp.width]x40+0-0
#+ I Module FvwmEvent FvwmEvent-iconify
#}}}3
# RunProgs (called via FvwmForm-Login) {{{3
DestroyFunc RunProgs
AddToFunc RunProgs
#+ I Exec exec rxvt -iconic -e shfsmount -o rmode=755 n6tadam@server:/ /mnt
#+ I Exec exec rxvt -title irssi -geometry 71x53-0+-1 -fn -misc-fixed-medium-r-normal--16-110-100-100-c-90-iso8859-1 +sb -fg white -bg black -e screen irssi irssi
#+ I Exec exec $[RXVT] -iconic
#+ I Exec exec $[RXVT] -name mutt -iconic -e mutt
#+ I Exec exec $[RXVT] -geometry 55x10+174+538 -name ncmpc -iconic -e ncmpc
#+ I Schedule 2000 Exec exec multi-gnome-terminal --command "multitail /mnt/home/n6tadam/.irssi/urls/url"
# }}}3
#}}}2
# Exit Functions {{{2
# ExitFunction {{{3
AddToFunc ExitFunction I Nop
#}}}3
#}}}2
# Window-defined functions {{{2
DestroyFunc FuncDeIconifyAll
AddToFunc   FuncDeIconifyAll
+ I All (CurrentPage !Iconic AcceptsFocus) Iconify

DestroyFunc FuncFvwmMoveOrRaiseOrShade
AddToFunc   FuncFvwmMoveOrRaiseOrShade
+ H     Move
+ M     Move
+ C     Raise
+ D     WindowShade $[func.context]

DestroyFunc FuncFvwmResizeOrRaiseOrShade
AddToFunc   FuncFvwmResizeOrRaiseOrShade
+ H     Resize $0
+ M     Resize $0
+ C     Raise
+ D     WindowShade $[func.context]

DestroyFunc FuncFvwmMoveOrRaiseLower
AddToFunc   FuncFvwmMoveOrRaiseLower
+ H     Move
+ M     Move
+ C     RaiseLower

DestroyFunc FuncFvwmMoveOrIconify
AddToFunc   FuncFvwmMoveOrIconify
+ M     Move
+ D     Iconify

DestroyFunc FuncFvwmMaximizeFullScreen
AddToFunc   FuncFvwmMaximizeFullScreen
+ I Maximize 100 100

DestroyFunc FuncFvwmWindowOpsOrAction
AddToFunc   FuncFvwmWindowOpsOrAction
+ I Menu MenuFvwmWindowOps2 $*

DestroyFunc FuncIconifyDeIconify
AddToFunc   FuncIconifyDeIconify
+ C ThisWindow (!Iconic) Iconify
+ D ThisWindow (Iconic) Iconify
+ M Move
+ I All (CurrentPage, Iconic) PlaceAgain icon anim

DestroyFunc FuncWindowOpsOrClose
AddToFunc FuncWindowOpsOrClose
+ H Menu FvwmMenuWindowOps
+ C Menu FvwmMenuWindowOps
+ D Close
# }}}2
# Functions called from Menus {{{2
# FuncFvwmMenuDirectory {{{3
DestroyFunc FuncFvwmMenuDirectory
AddToFunc   FuncFvwmMenuDirectory
+ I PipeRead 'fvwm-menu-directory -d "$0" --exec-file ^launcher --exec-title ^rox --check-subdir --links'
#}}}3
# FuncFvwmMenuColorset {{{3

# Reading from a file (colorset definitions) to build a menu
# to select likely Hilight colours.
#DestroyFunc  FuncFvwmMenuColorset
AddToFunc    FuncFvwmMenuColorset
+ I DestroyMenu recreate FvwmMenuColorset
+ I PipeRead 'echo "AddToMenu FvwmMenuColorset Colorsets Title"'
+ I PipeRead 'echo \
+ \
\
"Reset\
\
" Function ChangeStyle "1 fg white, bg #c06077";  echo \
\
+ \
\
"\
\
" Nop'
+ I PipeRead 'while read l; do echo +\
"${l/*bg /\
 }\
" Function ChangeStyle "$l"; done < ~/.fvwm/colorsets'
#}}}3
# FuncViewManPage {{{3
DestroyFunc  FuncViewManPage
AddToFunc FuncViewManPage
+ I Exec exec xterm -fg $[fg.cs2] -bg $[bg.cs2] -g 80x40 -fn 7x14 -fb 7x14bold -n "Manual Page - $0" -T "Manual Page - $0" -e man "$0"
#}}}3
# SetButton {{{3
DestroyFunc SetButton
AddToFunc   SetButton
+ I SendToModule FvwmButtonsBottom ChangeButton cd1 Icon cd-player.xpm
#}}}3
# FuncMenuMusic {{{3
DestroyFunc FuncMusicMenu
AddToFunc   FuncMusicMenu
+ I DestroyMenu recreate FvwmMenuPreMusic
+ I PipeRead 'if [ "`cdcd info 2>/dev/null`" = "No disc in drive" ]; then echo break; fi'
+ I AddToMenu FvwmMenuPreMusic "CD ROM" Title
+ I PipeRead ' \
        cdcd info| grep Album| sed -e 's/\\"/\\\\\\\\\\"/g' -e "s#Album .*:[ ]*\\(.*\\)#+ \\"\\1\\"#g"; \
	echo + \\"\\" Nop; \
	cdcd tracks |sed -n -e "/^[ 0-9]/p" | sed -e s/\\"/\\\\\\\\\\"/g -e "s#[ ]*\\([0-9]*\\):[ ]*\\([ >]\\)[ ]*\\[.*\\][ ]*\\(.*\\)#+ \\"\\2\\1: \\3\\" Exec exec cdcd play \\1#g"'
#}}}3
#}}}2
# Functions called via FvwmEvent {{{2
# FvwmCountDestroyWindow  {{{3
# Specific to FvwmEvent-count
DestroyFunc  FvwmCountDestroyWindows
AddToFunc  FvwmCountDestroyWindows
+ I SetEnv WinNum 0
+ I All (CurrentDesk !Transient) \
    PipeRead 'echo SetEnv WinNum $$$$(($$$$WinNum + 1))'
#+ I Echo $[WinNum]
+ I DesktopName 0 Main ($[WinNum])
#}}}3
# FvwmTitleRxvt {{{3
AddToFunc FvwmTitleRxvt
#+ I PipeRead 'letters=($(eval echo {e..z})); \
#    echo SetEnv lookup $$$$(echo $$$${letters[RCount]})'
#+ I PipeRead 'echo SetEnv RCount $$$$(($$$$RCount + 1))'
+ I Exec exec $[RXVT] $*
#-T rxvt_$[lookup] $*
#}}}3
# FvwmDecrementRCount {{{3
AddToFunc FvwmDecrementRCount
+ I PipeRead "test $[RCount] -le 0 && echo SetEnv RCount 1 \
    || echo SetEnv RCount $$$$(($$$$RCount - 1))"
#}}}3
# FuncMoveBB {{{3
DestroyFunc FuncMoveBB
AddToFunc FuncMoveBB
+ I All (CurrentDesk, !Transient) ThisWindow ("FvwmButtonsBottom") \
    Move -0 -0
+ I KillModule FvwmEvent FvwmEvent-moveBB
#}}}3
# FuncMoveMaximised {{{3
DestroyFunc FuncMoveMaximised
AddToFunc   FuncMoveMaximised
+ I Break
+ I EWMHBaseStruts 0 0 0 0
+ I ThisWindow (FvwmButtonsBottom, Iconic) All (Maximized) Maximize On 0 100
#}}}3
# FuncHandleFvwmButtons -- externally called via xlassie(1) {{{3
DestroyFunc FuncHandleFvwmButtons
AddToFunc   FuncHandleFvwmButtons
+ I All (FvwmButtons-Compact, Iconic) Iconify off
#}}}3
# FuncUnMoveMaximised {{{3
DestroyFunc FuncUnMoveMaximised
AddToFunc   FuncUnMoveMaximised
+ I Break
+ I ThisWindow (!Iconic, FvwmButtonsBottom) EWMHBaseStruts 0 0 0 40
+ I All (Maximized) Maximize On 100 100
#}}}3
#}}}2
# Functions called from Mouse Actions {{{2
# ToggleWindow {{{3
AddToFunc ToggleWindow
+ I None ($0, CirculateHit) Function FvwmStart$0
+ I Next ($0, CirculateHit) Close

#}}}3
# FvwmStartXbuffy {{{3
AddToFunc FvwmStartXbuffy
+ I Exec exec xbuffy -bg darkgrey -fg black -poll 5 -header 0 -nobeep -horiz -mail ~/Mail{/spam,/dorset,/fvwm,/fvwm-workers,/hants,/inbox,/lgang,/sussex,/tag,/hants-wiki,/cream,/ruby,/surrey,/elinks,/vim-ruby,/pavement} -geometry 461x88+454+728
+ I TestRc (NoMatch) ThisWindow (xbuffy) Close

AddToFunc FvwmStartFvwmConsole
+ I Module FvwmConsole
+ I TestRc (NoMatch) ThisWindow (FvwmConsole) Close

#}}}3
# ChangeStyle {{{3
DestroyFunc ChangeStyle
AddToFunc   ChangeStyle
+ I ColorSet $*
+ I Style * HilightColorSet $*
+ I SetEnv DefCS "$*"
+ I UpdateStyles
#}}}3
#}}}2
# Functions called from Key-Bindings {{{2

# PackWindow{Up,Down,Left,Right}, GetCoords were used from the following:
#
# http://fvwm.lair.be/viewtopic.php?t=358
# PackWindowUp {{{3
DestroyFunc   PackUp
AddToFunc   PackUp
+ I NoWindow GetCoords
+ I SendToModule perlwops eval                         \
    my ($NEWY, $WIN) = (0, undef);                      \
    foreach $WIN (@b) {                            \
   $NEWY = $WIN->{y}+$WIN->{height}                   \
       if( $NEWY < $WIN->{y}+$WIN->{height}                \
      && $WIN->{y}+$WIN->{height} < $[w.y]                \
      && (                            \
          ($WIN->{x} >= $[w.x] && $WIN->{x} <= $[w.x] + $[w.width])  \
          || ($WIN->{x}+$WIN->{width} >= $[w.x]             \
         && $WIN->{x}+$WIN->{width} <= $[w.x]+$[w.width])       \
      )                            \
       )                               \
   ;                               \
    };                                  \
    cmd( "WindowId $[w.id] AnimatedMove w0 +${NEWY}p") if( $NEWY < $[w.y]);

#}}}3
# PackWindowDown {{{3
DestroyFunc   PackDown
AddToFunc   PackDown
+ I NoWindow GetCoords
+ I SendToModule perlwops eval                         \
    my $DHEIGHT = $[desk.height] / $[desk.pagesy];                \
    my ($NEWY, $WIN) = ($DHEIGHT, undef);                   \
    foreach $WIN (@b) {                            \
   $NEWY = $WIN->{y}                         \
       if( $NEWY > $WIN->{y} && $WIN->{y} > $[w.y] + $[w.height]          \
      && (                            \
          ($WIN->{x} >= $[w.x] && $WIN->{x} <= $[w.x] + $[w.width])  \
          || ($WIN->{x}+$WIN->{width} >= $[w.x]             \
         && $WIN->{x}+$WIN->{width} <= $[w.x]+$[w.width])       \
      )                            \
       )                               \
   ;                               \
    };                                  \
    cmd( "WindowId $[w.id] AnimatedMove w0 +" . (${NEWY}-$[w.height]) . "p")          \
   if( $NEWY-$[w.height] > $[w.y]);

#}}}3
# PackWindowLeft {{{3
DestroyFunc   PackLeft
AddToFunc   PackLeft
+ I NoWindow GetCoords
+ I SendToModule perlwops eval                         \
    my ($NEWX, $WIN) = (0, undef);                      \
    foreach $WIN (@b) {                            \
   $NEWX = $WIN->{x}+$WIN->{width}                      \
       if( $NEWX < $WIN->{x}+$WIN->{width}                   \
      && $WIN->{x}+$WIN->{width} < $[w.x]                \
      && (                            \
          ($WIN->{y} >= $[w.y] && $WIN->{y} <= $[w.y] + $[w.height]) \
          || ($WIN->{y}+$WIN->{height} >= $[w.y]             \
         && $WIN->{y}+$WIN->{height} <= $[w.y]+$[w.height])     \
      )                            \
       )                               \
   ;                               \
    };                                  \
    cmd( "WindowId $[w.id] AnimatedMove +${NEWX}p w0") if( $NEWX < $[w.x]);
#}}}3
# PackWindowRight {{{3
DestroyFunc   PackRight
AddToFunc   PackRight
+ I NoWindow GetCoords
+ I SendToModule perlwops eval                         \
    my $DWIDTH = $[desk.width] / $[desk.pagesx];                \
    my ($NEWX, $WIN) = ($DWIDTH, undef);                   \
    foreach $WIN (@b) {                            \
   $NEWX = $WIN->{x}                         \
       if( $NEWX > $WIN->{x} && $WIN->{x} > $[w.x] + $[w.width]          \
      && (                            \
          ($WIN->{y} >= $[w.y] && $WIN->{y} <= $[w.y] + $[w.height]) \
          || ($WIN->{y}+$WIN->{height} >= $[w.y]             \
         && $WIN->{y}+$WIN->{height} <= $[w.y]+$[w.height])     \
      )                            \
       )                               \
   ;                               \
    };                                  \
    cmd( "WindowId $[w.id] AnimatedMove +" . ($NEWX-$[w.width]) . "p w0")          \
   if( $NEWX-$[w.width] > $[w.x] );
#}}}3
# GetCoords {{{3
DestroyFunc   GetCoords
AddToFunc   GetCoords
+ I SendToModule FvwmPerl eval @b=();
+ I All (CurrentPage, !Iconic, !Shaded, AcceptsFocus) SendToModule perlwops eval \
    push( @b, {x=>$[w.x], y=>$[w.y], width=>$[w.width], height=>$[w.height]});
#}}}3
#}}}2
#}}}1
# Menus {{{1
# FvwmMenuWindowOps {{{2
DestroyMenu "FvwmMenuWindowOps"
AddToMenu "FvwmMenuWindowOps" "WindowOps" Title
+ "Clone" ThisWindow Exec exec $[w.resource]
+              "&Move" Pick Move
#+		Function FvwmFuncMoveOrRaiseLower
+              "&Resize" Pick Resize
#+		Function FuncFvwmResizeOrRaiseOrShade
+              "R&aise" Raise
+              "&Lower" Lower
+              "(De)&Iconify" Iconify
+              "(Un)&Stick" Stick
+              "(Un)Ma&ximize" Function FuncFvwmMaximizeFullScreen
+              "" Nop
+	       "&Identify" Module FvwmIdent
+	       "" Nop
+	       "&Close"	Close
+              "&Delete" Delete
+              "D&estroy" Destroy
+              "" Nop
+              "Re&fresh Screen" Refresh
#}}}2
# FvwmMenuWindowOps2 {{{2
DestroyMenu "FvwmMenuWindowOps2"
AddToMenu "FvwmMenuWindowOps2"
+ "Clone" Current Exec exec $[w.name]
+	       "Move" Pick Move
#+		Function  FvwmFuncMoveOrRaiseLower
+              "Resize" Pick Resize
#+		Function FuncFvwmResizeOrRaiseOrShade
+              "Raise" Raise
+              "Lower" Lower
+              "Iconify" Iconify
+              "(Un)Stick" Stick
+              "" Nop
+	       "Identify"  Module FvwmIdent
+	       "" Nop
+	       "Close"  Close
+              "Destroy" Destroy
+              "Delete" Delete
+              "" Nop
+              "ScrollBar" Module FvwmScroll 2 2
#}}}2
# FvwmMenuRoot {{{2
DestroyMenu "FvwmMenuRoot"
AddToMenu "FvwmMenuRoot" "Root Menu" Title
+ MissingSubmenuFunction Beep
+ "&Shells" Popup FvwmMenuShellsPopup
+ "&Editors" Popup FvwmMenuEditorsPopup
+ "&Internet" Popup FvwmMenuInternetPopup
+ "&Games"   Popup FvwmMenuGamesPopup
+ "&Drawing" Popup FvwmMenuDrawingPopup
+ "S&ystem"  Popup FvwmMenuSystemPopup
+ "Musi&c" Popup FvwmMenuMusicPopup
+ "" Nop
+ "&File Management" Popup FvwmMenuFilePopup
+ "&Change Colorsets" Popup FvwmMenuColorset
+ "" Nop
+ "&Window Operations" Popup FvwmMenuWindowOps2
+ "&Modules" Popup FvwmMenuModulesPopup
+ "&Help" Popup FvwmMenuHelpPopup
+ "" Nop
+ "S&ession" Popup FvwmSession
+ "E&xit Fvwm" Popup FvwmExitFvwmPopup
#}}}2
# FvwmMenuMusicPopup {{{2
DestroyMenu "FvwmMenuMusicPopup"
AddToMenu "FvwmMenuMusicPopup" "Music" Title
+ "A&lsaplayer" Exec exec alsaplayer
+ "&Xmms" Exec exec xmms
#+ "&Cplay (screen)" Function FvwmTitleRxvt -T "Cplay" -e "screen -T -RS cplay cplay"
+ "&Cplay (screen)" Exec exec rxvt -e cplay
+ "&Moc (screen)"  Exec exec xterm -e mocp
+ "Gnome-alsamixer"  Exec exec gnome-alsamixer
+ "&Audacious"         Exec exec audacious
+ "&Audacity"         Exec exec audacity
+ "&Alsamixer"        Exec exec urxvt -e alsamixer
+ "&Gnome-volume-control" Exec exec gnome-volume-control
+ "&Sound Converter" Exec exec soundconverter
+ "&Asunder"         Exec exec asunder
+ "&Tagtool"         Exec exec tagtool
+ "&Video" Title
+ "&Camorama"          Exec exec camoramax
+ "&Devede"            Exec exec devede
+ "&Gnome-Mplayer"     Exec exec gnome-mplayer
+ "&Xine"              Exec exec xine
+ "&Cd Burn" Title
+ "&Xfburn" Exec exec xfburn
+ "&Gnomebaker" Exec exec gnomebaker

#}}}2
# FvwmMenuShellsPopup {{{2
DestroyMenu "FvwmMenuShellsPopup"
AddToMenu "FvwmMenuShellsPopup" "Shells" Title
+ "&xterm (normal)" Exec exec xterm
+ "x&term (blue)"  Exec exec xterm -bg blue -fg white
+ "" Nop
+ "&rxvt (normal)" Function FvwmTitleRxvt
+ "&urxvt (normal)" Exec exec urxvt -pe tabbed
+ "" Nop
#}}}2
# FvwmMenuSystemPopup {{{2
DestroyMenu "FvwmMenuSystemPopup"
AddToMenu   "FvwmMenuSystemPopup" "System Utilities" Title
+ "&xloadtime" Exec exec xloadtime -bg darkgrey -update 1 -cpu -label -geometry 130x91+1033+859
# "xlassie.&sh"  Exec exec xlassie.sh
+ "x&buffy" Function FvwmStartXBuffy
+ "" Nop
+ "&qps" Exec exec qps
+ "&Gnome system Monitor" Exec exec gnome-system-monitor
+ "&. nitrogen" Exec exec nitrogen /home/dexter4/GNUstep/Library/WindowMaker/Backgrounds
+ "&Xcompmgr" Title
+ "&Xcompmgr" Exec exec xcompmgr -cCFf  -D3
+ "K&ill Xcompmgr" Exec exec killall xcompmgr
+ "&File Manager" Title
+ "P&cmanfm" Exec exec pcmanfm
+ "P&arcellite" Exec exec parcellite
+ "&Utilidades" Title
+ "&T. Top"       Exec exec urxvt -T Top -n Top -e top
+ "&C. Calculator" Exec exec xcalc
+ "&M. Xman"      Exec exec xman
+ "&G. Xmag"      Exec exec xmag
+ "&R. Xnetload"  Exec exec xnetload -i eth0
+ ""              Nop
+ "&L. Xscreensaver"     Exec exec xscreensaver-command -lock
+ "Xlock" Title
+ "Julia"         Exec exec xlock -mode julia
+ "Swarm"         Exec exec xlock -mode swarm
+ "pyro"          Exec exec xlock -mode pyro
+ ""              Nop
+ "&D. $[gt.Reset X defaults]" Exec xrdb -load $HOME/.Xdefaults
+ "&F. $[gt.Refresh Screen]"   Refresh
+ "&C. $[gt.Recapture Screen]" Recapture

#}}}2
# FvwmMenuDrawingPopup {{{2
DestroyMenu "FvwmMenuDrawingPopup"
AddTomenu "FvwmMenuDrawingPopup"
+ "&Dia" Exec exec dia
+ "&xfig" Exec exec xfig
+ "&Gimp" Exec exec gimp
+ "&Gthumb" Exec exec gthumb
#}}}2
# FvwmMenuEditorsPopup {{{2
DestroyMenu "FvwmMenuEditorsPopup"
AddToMenu "FvwmMenuEditorsPopup"
+ MissingSubmenuFunction Beep
+ "&X11"  Popup FvwmSubEditorsX11
+ "&Console" Popup FvwmSubEditorsConsole
+ "&Office" Popup FvwmSubEditorsOffice

# FvwmMenuSubEditorsConsole {{{3
DestroyMenu "FvwmSubEditorsConsole"
AddToMenu "FvwmSubEditorsConsole" "Editors - Console" Title
+ MissingSubmenuFunction Beep
+ "&nano" Exec exec xterm -bg white -fg black -e nano
#}}}3
# FvwmSubEditorsX11 {{{3
DestroyMenu "FvwmSubEditorsX11"
AddToMenu "FvwmSubEditorsX11" "Editors - X11" Title
+ MissingSubmenuFunction Beep
+ "&gedit" Exec exec gedit
+ "&Cooledit" Exec exec cooledit --look cool
+ "g&cream" Exec exec gcream
+ "x&less" Exec exec xless
+ "X&emacs" Exec exec xemacs
+ "G&V" Exec exec gv
+ "x&pdf" Exec exec xpdf
+ "E&vince" Exec exec evince
+ "" Nop
#+ "L&yx" Exec exec lyx
#+ "&Texmacs" Exec exec texmacs
#}}}3
# FvwmSubEditorsOffice {{{3
DestroyMenu "FvwmSubEditorsOffice"
AddToMenu "FvwmSubEditorsOffice" "Office" Title
+ MissingSubMenuFunction Beep
+ "&OpenOffice" Popup FvwmMenuOOSubMenu
+ "&AbiWord" Exec exec abiword
#}}}3
# FvwmMenuOOSubMenu {{{3
DestroyMenu "FvwmMenuOOSubMenu"
AddToMenu "FvwmMenuOOSubMenu" "OpenOffice" Title
+ "&OpenOffice" Exec exec openoffice
+ "" Nop
+ "&Writer" Exec exec oowriter
+ "&Spreadsheet" Exec exec oocalc
+ "&Impress"   Exec exec ooimpress
+ "&Drawer"  Exec exec oodraw
+ "&Formulae"  Exec exec oomath
#}}}3
#}}}2
# FvwmMenuGamesPopup {{{2
DestroyMenu "FvwmMenuGamesPopup"
AddToMenu "FvwmMenuGamesPopup" "Games - Console" Title
+ "&moon-buggy" Exec exec rxvt -e moon-buggy
+ "&Ninvaders"  Exec exec rxvt -e ninvaders
+ "Games - X11" Title
+ "x&teddy" Exec exec xteddy
+ "xt&artan" Exec exec xtartan
+ "&vectoroids" Exec exec vectoroids
+ "G&ens" Exec exec gens
+ "etracer"          Exec exec etracer
+ "Frozen-Bubble"    Exec exec frozen-bubble
+ "LsdlDoom"         Exec exec lsdldoom -width 800 -height 600
+ "Medafen (frontend)" Exec exec zednafen
+ "Openarena"         Exec exec openarenax
+ "Kobodeluxe"        Exec exec /usr/games/bin/kobodl
+ "Ninvaders"         Exec exec urxvt -e ninvaders
+ "wolfgl-sdm"        Exec exec wolfgl-sdm -width 800 -height 600
+ "wolfgl-wl11"      Exec exec wolfgl-wl1 -width 800 -height 600
+ "Stella"           Exec exec stella
#+ "Gfceux"           Exec exec gfceux
+ "Fceux"           Exec exec fceux
+ "&Emuladores" Title
+ "&DosBox"            Exec exec dosbox
+ "&Dosemu"            Exec exec dosemu -6
+ "&VirtualBox"        Exec exec VirtualBox
# }}}2
# FvwmInternetPopup
DestroyMenu "FvwmMenuInternetPopup"
AddToMenu "FvwmMenuInternetPopup"
+ "&Browsers" Popup FvwmSubInternetBrowsers
+ "&Mail" Popup FvwmSubInternetMail
+ "&IRC" Popup FvwmSubInternetIRC
# FvwmSubInternetBrowsers {{{3
DestroyMenu "FvwmSubInternetBrowsers"
AddToMenu "FvwmSubInternetBrowsers" "Console Browsers" Title
+ "&links" Function FvwmTitleRxvt -e 'links2s'
+ "l&ynx" Function FvwmTitleRxvt -e 'lynx'
+ "&elinks" Function FvwmTitleRxvt -e 'elinks'
+ "X11 Browsers" Title
+ "&Opera" Exec exec opera
+ "&Seamonkey"  Exec exec seamonkey-bin
+ "&Firefox"  Exec exec firefox
+ "&Dillo" Exec exec dillo
+ "&XLinks" Exec exec links2 -g
+ "&Microblogging" Title
+ "&IdentiCurse" Exec exec xterm -e identicurse
+ "&IM" Title
+ "emesene"           Exec exec emesene
+ "emesene2"          Exec exec emesene-2
+ "Gajim"             Exec exec gajim
+ "aMsn"              Exec exec amsn
+ "Mcabber"           Exec exec urxvt -e mcabber
+ "Pidgin"            Exec exec pidgin
+ "&Ftp" Title
+ "&Gftp"          Exec exec gftp
+ "&ftp"           Exec exec urxvt -e ftp
+ "&Filezilla"     Exec exec filezilla
+ "&P2p" Title
+ "&aMule"            Exec exec amule
+ "&Nicotine"         Exec exec nicotine
+ "&Gtk-gnutella"     Exec exec gtk-gnutella
+ "&Transmission"     Exec exec transmission-gtk
+ "&Tucan"            Exec exec tucan
+ "&Linuxdcpp"        Exec exec linuxdcpp
#}}}3
# FvwmSubInternetMail {{{3
DestroyMenu "FvwmSubInternetMail"
AddToMenu "FvwmSubInternetMail" "Console Mail Clients" Title
+ "&mutt" Function FvwmTitleRxvt -e 'mutt'
+ "&cone" Function FvwmTitleRxvt -e 'cone'
+ "X11 Mail Clients" Title
+ "&Sylpheed-claws" Exec exec sylpheed-claws
+ "&Thunderbird" Exec exec thunderbird-bin
+ "Syl&pheed" Exec exec sylpheed
+ "&xmh" Exec exec xmh
#}}}3
# FvwmSubInternetIRC {{{3
DestroyMenu "FvwmSubInternetIRC"
AddToMenu "FvwmSubInternetIRC" "Console IRC" Title
+ "&Irssi" Exec exec rxvt -e irssi
+ "&Weechat" Exec exec rxvt -e weechat-curses
+ "&BitchX" Exec exec rxvt -e bitchx
+ "X11 IRC" Title
+ "&Xchat" Exec exec xchat
+ "xi&rssi" Exec exec xirssi
#}}}3
#}}}2
# FvwmMenuFilePopup {{{2
DestroyMenu "FvwmMenuFilePopup"
AddToMenu   "FvwmMenuFilePopup"
+ MissingSubMenuFunction FuncFvwmMenuDirectory
+ "/" Popup /
+ "/etc" Popup /etc
+ "Home Directory" Popup $[HOME]
#}}}2
# FvwmMenuColorset {{{2
DestroyMenu "FvwmMenuColorset"
AddToMenu   "FvwmMenuColorset" DynamicPopupAction FuncFvwmMenuColorset
#}}}2
# FvwmMenuMusicRC {{{2

DestroyMenu "FvwmMenuMusicRC"
AddToMenu   "FvwmMenuMusicRC"
+ "Eject" Exec exec cdcd eject
+ "Play" PipeRead 'echo "Function SetButton" ;killall cdpause.sh ;  echo "Exec exec cdcd play"'
+ "Pause" PipeRead 'killall cdpause.sh ; echo "Exec exec cdpause.sh" && echo "Exec exec cdcd pause"'
+ "Resume" PipeRead 'echo "Function SetButton" ; killall cdpause.sh ; echo "Exec exec cdcd resume"'
+ "Stop" PipeRead 'echo "Function SetButton" ; killall cdpause.sh ; echo "Exec exec cdcd stop"'
+ "Prev" PipeRead 'echo "Function SetButton" ; killall cdpause.sh ; echo "Exec exec cdcd prev"'
+ "Next" PipeRead 'echo "Function SetButton" ; killall cdpause.sh ; echo "Exec exec cdcd next"'

# FvwmMenuPreMusic {{{2
DestroyMenu "FvwmMenuPreMusic"
AddToMenu   "FvwmMenuPreMusic" DynamicPopupAction FuncMusicMenu
#}}}2
# FvwmExitFvwmPopup {{{2
DestroyMenu "FvwmExitFvwmPopup"
AddToMenu FvwmExitFvwmPopup "Exit Fvwm?" Title
+ "&Restart Fvwm"   Restart fvwm -f ~/.fvwm2rc
+ "&Quit"      Module FvwmForm FvwmForm-QuitVerify
estroyMenu "FvwmSession"
AddToMenu FvwmSession "Exit Seesion?" Title
+ "&Restart" Exec exec sudo shutdown -r now
+ "&Shutdown" Exec exec sudo shutdown -h now

#}}}2
# FvwmMenuHelpPopup {{{2
DestroyMenu "FvwmMenuHelpPopup"
AddToMenu   "FvwmMenuHelpPopup" "Fvwm Manpages" Title
+ "&Fvwm"		FuncViewManPage fvwm
+ "Fvwm&Animate"		FuncViewManPage FvwmAnimate
+ "FvwmA&uto"		FuncViewManPage FvwmAuto
+ "Fvwm&Backer"		FuncViewManPage FvwmBacker
+ "FvwmB&anner"		FuncViewManPage FvwmBanner
+ "FvwmB&uttons"		FuncViewManPage FvwmButtons
+ "Fvwm&Command"		FuncViewManPage FvwmCommand
+ "FvwmC&onsole"         FuncViewManPage FvwmConsole
+ "FvwmConsoleC.pl"     FuncViewManPage FvwmConsoleC.pl
+ "FvwmCpp"             FuncViewManPage FvwmCpp
+ "FvwmDebug"           FuncViewManPage FvwmDebug
+ "FvwmDragWell"        FuncViewManPage FvwmDragWell
+ "FvwmEvent"           FuncViewManPage FvwmEvent
+ "FvwmForm"            FuncViewManPage FvwmForm
+ "FvwmGtk"             FuncViewManPage FvwmGtk
+ "FvwmGtkDebug"        FuncViewManPage FvwmGtkDebug
+ "FvwmIconBox"         FuncViewManPage FvwmIconBox
+ "FvwmIconMan"         FuncViewManPage FvwmIconMan
+ "FvwmIdent"           FuncViewManPage FvwmIdent
+ "FvwmM4"              FuncViewManPage FvwmM4
+ "FvwmPager"           FuncViewManPage FvwmPager
+ "FvwmPerl"            FuncViewManPage FvwmPerl
+ "FvwmProxy"           FuncViewManPage FvwmProxy
+ "FvwmRearrange"       FuncViewManPage FvwmRearrange
+ "FvwmSave"            FuncViewManPage FvwmSave
+ "FvwmSaveDesk"        FuncViewManPage FvwmSaveDesk
+ "FvwmScript"          FuncViewManPage FvwmScript
+ "FvwmScroll"          FuncViewManPage FvwmScroll
+ "FvwmTaskBar"         FuncViewManPage FvwmTaskBar
+ "FvwmTheme"           FuncViewManPage FvwmTheme
+ "FvwmWharf"           FuncViewManPage FvwmWharf
+ "FvwmWinList"         FuncViewManPage FvwmWinList
+ "FvwmWindowMenu"      FuncViewManPage FvwmWindowMenu
+ "" Nop
+ "fvwm-config"         FuncViewManPage fvwm-config
+ "fvwm-perllib"        FuncViewManPage fvwm-perllib
+ "fvwm-root"           FuncViewManPage fvwm-root
+ "fvwm-bug"            FuncViewManPage fvwm-bug
+ "fvwm-convert-2.2"    FuncViewManPage fvwm-convert-2.2
+ "fvwm-convert-2.4"    FuncViewManPage fvwm-convert-2.4
+ "" Nop
+ "fvwm-menu-desktop"   FuncViewManPage fvwm-menu-desktop
+ "fvwm-menu-directory" FuncViewManPage fvwm-menu-directory
+ "fvwm-menu-headlines" FuncViewManPage fvwm-menu-headlines
+ "fvwm-menu-xlock"     FuncViewManPage fvwm-menu-xlock
# }}}2
# FvwmMenuModulesPopup {{{2
DestroyMenu "FvwmMenuModulesPopup"
AddToMenu "FvwmMenuModulesPopup" "Modules" Title
+ Audio        Module FvwmAudio
+ Auto         Module FvwmAuto 200
+ Buttons      Module FvwmButtons
+ Console      Module FvwmConsole
+ Event	       Module FvwmEvent
+ Proxy	       Module FvwmProxy
+ Ident        Module FvwmIdent
+ Banner       Module FvwmBanner
+ Pager        Module FvwmPager 0 0
#}}}2
# FvwmExitFvwmPopup {{{2
DestroyMenu "FvwmExitFvwmPopup"
AddToMenu FvwmExitFvwmPopup "Exit Fvwm?" Title
+ "&Restart"   Restart fvwm -f ~/.fvwm2rc
+ "&Quit"      Module FvwmForm FvwmForm-QuitVerify
#}}}2
#}}}1
# Module Configs {{{1
# FvwmPager {{{2
DestroyModuleConfig FvwmPager: *
#*FvwmPager: Font -adobe-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*
#*FvwmPager: Font none
*FvwmPager: SmallFont none
*FvwmPager: Back darkgrey
*FvwmPager: Fore Black
*FvwmPager: DeskHilight
*FvwmPager: WindowColors black skyblue3 orhid
*FvwmPager: Hilight orchid
*FvwmPager: DeskTopScale 29
*FvwmPager: SloppyFocus
*FvwmPager: UseSkipList
*FvwmPager: Balloons All
# }}}2
# FvwmPager-Multiple {{{2
DestroyModuleConfig FvwmPager-Multiple: *
*FvwmPager-Multiple: Rows 1
*FvwmPager-Multiple: Columns 1
*FvwmPager-Multiple: Geometry 99x356+0+0
*FvwmPager-Multiple: SmallFont none
*FvwmPager-Multiple: Back darkgrey
*FvwmPager-Multiple: Fore Black
*FvwmPager-Multiple: DeskHilight
*FvwmPager-Multiple: WindowColors black skyblue3 orhid
*FvwmPager-Multiple: Hilight orchid
*FvwmPager-Multiple: DeskTopScale 29
*FvwmPager-Multiple: SloppyFocus
*FvwmPager-Multiple: UseSkipList
*FvwmPager-Multiple: Balloons All
#}}}2
# FvwmButtons {{{2
# FvwmButtons: termbar {{{3
DestroyModuleConfig termbar: *
*termbar: Rows 1
*termbar: Back gray66
#*termbar: (2x1,Swallow(UseOld, NoHints, Respawn) "terme" \
#          "Exec exec rxvt -T terme -bg darkgrey -fg black +sb -e bash --rcfile \
#          /home/n6tadam/.bashrc2")
#*termbar: Geometry 379x80+199+870
#*termbar: Geometry 274x80+304+870
# }}}3
# FvwmButtons: bar {{{3
DestroyModuleConfig bar: *
*bar: Rows 1
*bar: Columns 11
*bar: Back gray66
*bar: Geometry 1253x80+15+880
#*bar: geometry 900x80+361+870
#*bar: geometry 684x80+586+870
#*bar: (5x1,Swallow(UseOld, NoHints, Respawn) "xbuffy" FvwmStartXBuffy
#*bar: (3x1,Swallow "termbar" 'Module FvwmButtons -g 379x80+199+870 termbar')
#*bar: (3x1,Swallow "mpdbar" 'Module FvwmButtons mpdbar')
#*bar: (1x1,Title 'Mutt',Swallow(UseOld, NoHints, Respawn) "xlassie" "Exec exec xlassie -offline -command 'fetchmail -s' -imap server -username n6tadam -password ask < ~/.mailpass -bg darkgrey -fg black -update 3 -mailcommand 'mailcommand.sh' -geometry 79x89+928+861")
#*bar: (1x1,Title 'station',Swallow(UseOld, NoHints, Respawn) "xloadtime" \
#      "Exec exec xloadtime -cpu -update 1 -bg darkgrey")
#*bar: (1x1,Title 'gateway',Swallow "xloadtime" "Exec ssh -X gateway xloadtime -fg blue -bg darkgrey -cpu -update 1 &")
*bar: (1x1,Swallow "FvwmPager" "Module FvwmPager 0 0")
# }}}3
# FvwmButtons: Buttons-Slider {{{3
DestroyModuleConfig Buttons-Slider: *
*Buttons-Slider: Back gray66
*Buttons-Slider: Rows 1
*Buttons-Slider: Frame 1
*Buttons-Slider: Padding 0 0
*Buttons-Slider: (Panel(NoBorder, Nohints, left, steps 15, delay 6, indicator 10) "bar" \
                  'Module FvwmButtons bar')
#}}}3
# FvwmButtons: mpdbar {{{3
DestroyModuleConfig mpdbar: *
*mpdbar: Back darkgrey
*mpdbar: Columns 5
*mpdbar: Rows 2
*mpdbar: (1x1, Action (Mouse 1) 'Exec mpc play &>/dev/null', Icon \
          $[HOME]/.fvwm/icons/play.png)
*mpdbar: (1x1, Action (Mouse 1) 'Exec mpc pause &>/dev/null', Icon \
          $[HOME]/.fvwm/icons/pause.png)
*mpdbar: (1x1, Action (Mouse 1) 'Exec mpc stop &>/dev/null', Icon \
          $[HOME]/.fvwm/icons/stop.png)
*mpdbar: (1x1, Action (Mouse 1) 'Exec mpc prev &>/dev/null', Icon \
          $[HOME]/.fvwm/icons/prev.png)
*mpdbar: (1x1, Action (Mouse 1) 'Exec mpc next &>/dev/null', Icon \
          $[HOME]/.fvwm/icons/next.png)
*mpdbar: (5x1,Swallow(UseOld,Respawn,NoHints) "xcpustate" \
	  'Exec exec "xcpustate -shorten -1 -colors grey,black,grey,grey,grey,grey,grey,grey,grey,grey"')
# }}}3
# FvwmButtons: FvwmButtons-bottom {{{3
DestroyModuleConfig FvwmButtonsBottom: *
#*FvwmButtonsBottom: Geometry 1280x40+0-0
*FvwmButtonsBottom: ButtonGeometry 2x2+0-0
*FVwmButtonsBottom: BoxSize dumb
*FvwmButtonsBottom: Back darkgrey
*FvwmButtonsBottom: Fore Black
*FvwmButtonsBottom: Rows 20
#*FvwmButtonsBottom: Font $[fvwm_smallfont]
#*FvwmButtonsBottom: Padding 0 0
*FvwmButtonsBottom: (18x20, Frame 2, Padding 0 0, Back darkgrey, Swallow(UseOld) "xlogo" "Exec exec xlogo -render -shape -fg blue -bg darkgrey")
PipeRead 'echo SetEnv width `expr $[vp.width] / 2 - 130`'

*FvwmButtonsBottom: ($[width]x20, Frame 1, Padding 0 1,Container(Columns 12, Rows 8, Frame 0, Padding 0 0))
#*FvwmButtonsBottom: (12x11, Back darkgrey, Swallow(UseOld, NoHints, NoClose, Respawn) "FvwmIconMan" "Module FvwmIconMan")
#*FvwmButtonsBottom: (1x9, Back darkgrey, Frame 1, Swallow (UseOld,NoClose, Respawn) "xmem" "Exec exec xmem -nolabel -jumpscroll 1 -update 1 -bg darkgrey")
#*FvwmButtonsBottom: (1x9, Back darkgrey, Frame 1, Swallow (USeOld,NoClose, Respawn) "xosview" "Exec exec xosview -captions -usedlabels -mem -disk -swap -battery -page -ints -labels -int")
#*FvwmButtonsBottom: (1x9, Back darkgrey, Frame 1, Swallow (UseOld,NoClose) "xmem" "Exec exec ssh -X server xmem -nolabel -jumpscroll 1 -update 1 -bg darkgrey", Action (Mouse 1) "Exec exec rxvt +sb -e ssh server")
#*FvwmButtonsBottom: (1x9, Back darkgrey, Frame 1, Swallow (USeOld,NoClose) "xosviews" "Exec exec ssh -X server xosview -captions -usedlabels -mem -disk -swap -battery -page -ints -labels -int -title xosviews -name xosviews -xrm "xosviews*background: darkgrey"")
*FvwmButtonsBottom: (1x9, Frame 1, Padding 0 0, Container (Columns 2, Rows 2, Frame 0, Padding 0 0))
*FvwmButtonsBottom: (1x1, Frame 1, Padding 0 0, Icon 16x16-general/cd-player.xpm)
*FvwmButtonsBottom: (1x1, Frame 1, Padding 0 0, Icon 16x16-general/chat.xpm, Action (Mouse 1) `Exec exec rxvt -title irssi -fn -misc-fixed-medium-r-normal--16-110-100-100-c-90-iso8859-1 +sb -fg white -bg black`, Action (Mouse 2) `All (irssi) Close`)
*FvwmButtonsBottom: (1x1, Frame 1, Padding 0 0, Icon 16x16-general/modules.xpm, Action (Mouse 1) Exec exec gcream)
*FvwmButtonsBottom: (1x1, Frame 1, Padding 0 0, Icon 16x16-general/home.xpm, Action (Mouse 1) `Exec exec rox $[HOME]`, Action (Mouse 3) `Exec exec gentoo`)
*FvwmButtonsBottom: (1x1, Frame 1, Padding 0 0, Icon 16x16-general/game-board.xpm, Action (Mouse 1) `Exec exec xboard -size middling`)
*FvwmButtonsBottom: (1x1, Frame 1, Padding 0 0, Icon 16x16-general/terminal-remote.xpm, Action (Mouse 1) `Function toggleWindow FvwmConsole`)
*FvwmButtonsBottom: (End)
*FvwmButtonsBottom: (1x9, Frame 1, Padding 0 0, Container (Columns 1, Rows
1, Frame 0, Padding 0 0))
*FvwmButtonsBottom: (9x1, Frame 1, Padding 0 0, Id "A", Title "Hello")
*FvwmButtonsBottom: (End)
#*FvwmButtonsBottom: (1x5+11+0, Back darkgrey, Frame 1, Swallow "xlassie" "Exec exec xlassie -mailcommand 'mailcommand.sh' -command 'fetchmail -s' -imap 192.168.0.254 -username n6tadam -password ask < ~/.mailpass -bg darkgrey -fg black -update 10", Action (Mouse 3) 'Function ToggleWindow xbuffy')
#, Action (Mouse 3) 'FvwmStartXbuffy')
*FvwmButtonsBottom: (End)
UnsetEnv width

#*FvwmButtonsBottom: (1x8, Back darkgrey, Frame 1)
*FvwmButtonsBottom: (117x20, Frame 1, Padding 1 1, Container(Columns 116, Rows 19, Frame 0, Padding 0 0, Back darkgrey))
##*FvwmButtonsBottom: (74x21, Frame 0, Padding 0 0, Back darkgrey, Swallow(UseOld, NoHints, NoClose, Respawn) "FvwmPager" "Module FvwmPager FvwmPager 0 0")
*FvwmButtonsBottom: (72x19, Frame 2, Back Darkgrey, Swallow(UseOld, NoHints, NoClose, Respawn) "FvwmPager" "Module FvwmPager FvwmPager 0 0")
*FvwmButtonsBottom: (8x6, Padding 2 2, Frame 1, Back darkgrey, Panel(up,indicator, position Module mlr right, steps 0) "FvwmPager" "Module FvwmPager FvwmPager 0 0")
*FvwmButtonsBottom: (17x18, Padding 0 0, Frame 0, Back darkgrey, Swallow(UseOld, NoHints, NoClose, Respawn) "xclock" "Exec exec xclock -digital -brief -twentyfour -padding 1 -chime -fg blue -bg darkgrey -fn -adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-* -norender")
*FvwmButtonsBottom: (15x11, Id cd1, Padding 0 0, Frame 0, Back darkgrey, Left, Icon cd-player.xpm, Action (Mouse 1) 'Menu FvwmMenuPreMusic Rectangle +$left+$top 0', Action (Mouse 3) 'Menu FvwmMenuMusicRc' )
#*FvwmButtonsBottom: (35x11, Padding 0 0, Frame 0, Back
#darkgrey, #Swallow(UseOld, NoHints, NoClose, Respawn)
#"FvwmScript-Status" "Module FvwmScript FvwmScript-Time")
#*FvwmButtonsBottom: (End)
#}}}3
# FvwmButtons: FvwmBar {{{3
DestroyModuleConfig FvwmBar: *
*FvwmBar: Frame 1
*FvwmBar: Padding 2 2
*FvwmBar: Rows 23
*FvwmBar: Columns 71
*FvwmBar: (71x23, Swallow "FvwmIconMans" `Module FvwmIconMan FvwmIconMans`)
# }}}3
# FvwmButtons: FvwmButtons-Pager {{{3
*FvwmButtons-Pager: Geometry 99x99+0+0
*FvwmButtons-Pager: Columns 99
*FvwmButtons-Pager: Frame 2
*FvwmButtons-Pager: Padding 1 1
*FvwmButtons-Pager: Fore black
*FvwmButtons-Pager: Back darkgrey
*FvwmButtons-Pager: (99x89, Padding 0 0, Swallow "FvwmPager" 'FvwmPager * *')
*FvwmButtons-Pager: (12x10, Title "<", Action 'Desk -1 0 3')
#*FvwmButtons-Pager: (75x10,Panel (NoRespawn, down, steps 12, delay 0, position center mtb, indicator) "FvwmPager-Multiple" 'Module FvwmPager FvwmPager-Multiple 0 3')
*FvwmButtons-Pager: (12x10, Title ">", Action 'Desk +1 0 3')
#}}}3
# FvwmButtons: FvwmButtons-Compact {{{3
DestroyModuleConfig FvwmButtons-Compact: *
#*FvwmButtons-Compact: Colorset 10
*FvwmButtons-Compact: Geometry -0+0
*FvwmButtons-Compact: Columns 4
*FvwmButtons-Compact: Padding 1 1
#*FvwmButtons-Compact: Colorset 6
*FvwmButtons-Compact: (4x4, Back $[bg.cs5], Padding 0 0, Frame 1, \
Swallow "xclock" \
`Exec exec xclock -bg $[bg.cs5] -fg $[fg.cs4] -hd $[shadow.cs6] -hl \
$[hilight.cs4] -padding 2 -norender -geometry 86x86-0+0`)
*FvwmButtons-Compact: (4x2, Back firebrick3, Padding 0 0, Frame 2,\
Swallow "xload" \
`Exec exec xload -nolabel -update 1 -geometry 86x43-0+99 -bg firebrick3`)
*FvwmButtons-Compact: (4x2, Back darkgrey, Padding 0 0, Frame 2, \ Swallow "xmem" \
"Exec exec xmem -nolabel -jumpscroll 1 -update 1 -bg darkgrey")
#*FvwmButtons-Compact: (4x2, Back darkgreen, Padding 0 0, Frame 2, \ Swallow "xloadserver" \
#"Exec exec ssh -X server xload -title xloadserver -nolabel -update 1 \
#-geometry 86x43-0+99 -bg darkgreen -fg white -jumpscroll 1")
#*FvwmButtons-Compact: (4x2, Back blue, Padding 0 0, Frame 1,Swallow "xmems" \
#"Exec exec ssh -X server xmem -nolabel -title xmems -jumpscroll 1 -update 1 -bg blue",\
#Action (Mouse 1) "Exec exec rxvt +sb -e ssh server")
#*FvwmButtons-Compact: (4x2, Back darkgrey, Frame 1, Padding 0 0, \ Swallow "xlassie" \
#"Exec exec xlassie -mailcommand 'mailcommand.sh' -command 'fetchmail -s' -imap 192.168.0.254 -username n6tadam -password ask < ~/.mailpass -bg darkgrey -fg black -update 10", Action (Mouse 3) 'Function ToggleWindow xbuffy')
#*FvwmButtons-Compact: (4x4, Container(Columns 2, Colorset 3, Hilight))
#*FvwmButtons-Compact: (Frame 1, Fore darkgrey, Padding 0 0, Icon 32x32-general/cd-player.xpm)
#*FvwmButtons-Compact: (Frame 1, Padding 0 0, Icon 32x32-kde/chat.xpm, Action (Mouse 1) `Exec exec rxvt -title irssi -fn -misc-fixed-medium-r-normal--16-110-100-100-c-90-iso8859-1 +sb -fg white -bg black -e ssh -t server screen -RDS irssi irssi`, Action (Mouse 2) `All (irssi) Close`)
#*FvwmButtons-Compact: (Frame 1, Padding 0 0, Icon 32x32-kde/modules.xpm, Action (Mouse 1) Exec exec gcream, Action (Mouse 3) `Exec exec gvim)
#*FvwmButtons-Compact: (Frame 1, Padding 0 0, Icon 32x32-kde/home.xpm, Action (Mouse 1) `Exec exec rox $[HOME]`, Action (Mouse 3) `Exec exec gentoo`)
#*FvwmButtons-Compact: (Frame 1, Padding 0 0, Icon 32x32-kde/game-board.xpm, Action (Mouse 1) `Exec exec xboard -size middling`)
#*FvwmButtons-Compact: (Frame 1, Padding 0 0, Icon 32x32-kde/terminal-remote.xpm, Action (Mouse 1) `Function toggleWindow FvwmConsole`)
#*FvwmButtonsBottom: (End)
# }}}3
# }}}2
# FvwmEvent {{{2
# FvwmEvent: FvwmEvent-count {{{3
DestroyModuleConfig FvwmEvent-count: *
*FvwmEvent-count: Cmd
*FvwmEvent-count: PassId
*FvwmEvent-count: add_window FvwmCountDestroyWindows
*FvwmEvent-count: destroy_window FvwmCountDestroyWindows
#}}}3
# FvwmEvent: FvwmEvent-decrxvt {{{3
DestroyModuleConfig FvwmEvent-decrxvt: *
*FvwmEvent-decrxvt: Cmd Function
*FvwmEvent-decrxvt: PassId
*FvwmEvent-decrxvt: destroy_window FvwmDecrementRCount
# }}}3
# FvwmEvent: FvwmEvent-moveBB {{{3
DestroyModuleConfig FvwmEvent-moveBB: *
*FvwmEvent-moveBB: Cmd function
*FvwmEvent-moveBB: PassId
*FVwmEvent-moveBB: add_window FuncMoveBB
#}}}3
# FvwmEvent: Iconify check for FvwmButtonsBottom and to set EWMHBaseStruts {{{3
*FvwmEvent-Iconify: Cmd Function
*FvwmEvent-Iconify: iconify FuncMoveMaximised
#*FvwmEvent-Iconify: deiconify FuncUnMoveMaximised
#}}}3
# }}}2
# FvwmForm {{{2
# FvwmForm: Login {{{3
*LoginGrabServer
*LoginWarpPointer
*LoginFont	    -adobe-helvetica-bold-r-*-*-14-*-*-*-*-*-*-*
*LoginButtonFont    -adobe-helvetica-bold-r-*-*-20-*-*-*-*-*-*-*
*LoginFore         White
*LoginBack         Blue4
*LoginItemFore     Bisque
*LoginItemBack     Gray50

# begin items
*LoginLine         center
*LoginText         "Start Options:"
*LoginLine         center
*LoginButton	   quit " Quick  Start " ^[
*LoginLine         center
*LoginButton       quit "All Programs" ^M
*LoginCommand 	   RunProgs
#}}}3
# FvwmForm: Run {{{3
DestroyModuleConfig  FvwmForm-Run: *
*FvwmForm-Run: Back darkgrey
*FvwmForm-Run: Fore black
*FvwmForm-Run: ItemBack darkgrey
*FvwmForm-Run: ItemFore black
*FvwmForm-Run: Title        "Run Program"
*FvwmForm-Run: Line         right
*FvwmForm-Run: Text         "Command:"
*FvwmForm-Run: Input        Program        30      ""
*FvwmForm-Run: Line         right
#*FvwmForm-Run: Text         "Host (optional):"
#*FvwmForm-Run: Input        Host           20      ""
*FvwmForm-Run: Line         expand
*FvwmForm-Run: Button       quit    "Run"           ^M
#*FvwmForm-Run: Command      Exec case "$(Program)" in '') exec x-terminal-emulator $(Host?-ut -T screen-ssh@$(Host) -n screen-ssh@$(Host))$(Host!-T screen@localhost -n screen@localhost) -e $(Host?hostinfo -S $(Host) -t) screen -RR ;; *://*|www.*) exec $(Host?ssh -X $(Host)) sensible-browser $(Program) ;; *) exec $(Host?ssh -X $(Host)) $(Program) ;; esac

# Before saving the data, remove any previously saved data:
*FvwmForm-Run: Command DestroyModuleConfig FvwmForm-RunDefault: *
*FvwmForm-Run: Command !(                                      /bin/echo \
#  "# This file last created by FvwmForm-Run on: `/bin/date`."; /bin/echo \
#  '*FvwmForm-RunDefault: Program $(Program)'                 ; /bin/echo \
#) > ${FVWM_USERDIR}/.FvwmForm-Run
#*FvwmForm-Run: Command !(                                      /bin/echo \
#  "# This file last created by FvwmForm-Run on: `/bin/date`."; /bin/echo \
# Exec case '"$(Program)"' in "'')" exec x-terminal-emulator $(Host?-ut
# -T screen-ssh@$(Host) -n \
# screen-ssh@$(Host))$(Host! -T screen@localhost -n screen@localhost) -e
# $(Host?hostinfo -S \
# $(Host) -t) screen -RR ';; *://*|www.*)' exec $(Host?ssh -X $(Host))
# sensible-browser \
# '$(Program)' ';; *)' exec $(Host?ssh -X $(Host)) '$(Program)' ';;' esac \
#> ${FVWM_USERDIR}/.FvwmForm-RunLast

*FvwmForm-Run: Button       quit    "In Terminal"           ^J
*FvwmForm-Run: Command      Exec exec x-terminal-emulator $(Host?-ut) -name $(Host?ssh@$(Host)) $(Host!localhost) -n $(Host?ssh@$(Host)) $(Host!localhost) -e $(Host?ssh -Xt $(Host)) $(Program)
# Before saving the data, remove any previously saved data:
*FvwmForm-Run: Command DestroyModuleConfig FvwmForm-RunDefault: *
*FvwmForm-Run: Command !(                                      /bin/echo \
#  "# This file last created by FvwmForm-Run on: `/bin/date`."; /bin/echo \
#  '*FvwmForm-RunDefault: Program $(Program)'                 ; /bin/echo \
#) > ${FVWM_USERDIR}/.FvwmForm-Run
#*FvwmForm-Run: Command !(                                      /bin/echo \
#  "# This file last created by FvwmForm-Run on: `/bin/date`."; /bin/echo \
#  Exec exec x-terminal-emulator $(Host?-ut) -name $(Host?ssh@$(Host)) $(Host!localhost) -n $(Host?ssh@$(Host)) $(Host!localhost) -e $(Host?ssh -Xt $(Host)) #'$(Program)' \
#) > ${FVWM_USERDIR}/.FvwmForm-RunLast
*FvwmForm-Run: Button       restart "Reset"         F3
*FvwmForm-Run: Button       quit    "Cancel"        ^[
*FvwmForm-Run: Command      Nop
# Tell FvwmForm to read vars from the .FvwmForm-RunDefault file:
*FvwmForm-Run: UseData .FvwmForm-Run *FvwmForm-RunDefault
#}}}3
#}}}2
# FvwmIconMan {{{2
# FvwmIconMan {{{3
DestroyModuleConfig FvwmIconMan: *
*FvwmIconMan: *numManagers 1
*FvwmIconMan: *Resolution  page
#*FvwmIconMan: *Background  Darkgrey
*FvwmIconMan: *Background  darkgrey
#*FvwmIconMan: *Foreground  black
*FvwmIconMan: *Format      "%t"
#*FvwmIconMan: *Font        "$[fvwm_iconfont]"
*FvwmIconMan: *Action      Mouse   1 A sendcommand "Focus", sendcommand "Raise"
*FvwmIconMan: *Action      Mouse   2 A sendcommand "Iconify"
*FvwmIconMan: *Action      Mouse   3 A sendcommand "Menu FvwmMenuWindowOps Nop"
*FvwmIconMan: *FollowFocus true
*FvwmIconMan: *UseWinList true
*FvwmIconMan: *Sort        weighted
#*FvwmIconMan: *SortWeight   1 resource=screen@*
#*FvwmIconMan: *SortWeight   2 resource=*localhost
#*FvwmIconMan: *SortWeight   4 resource=screen-irc@*
#*FvwmIconMan: *SortWeight   5 resource=screen-ssh@*
#*FvwmIconMan: *SortWeight   7 resource=ssh@*
#*FvwmIconMan: *SortWeight  50
*FvwmIconMan: *PlainButton          up   black darkgrey
#LightSkyBlue PaleTurquoise
*FvwmIconMan: *IconButton           up   DimGrey darkgrey
*FvwmIconMan: *SelectButton         up   blue  darkgrey
*FvwmIconMan: *FocusButton          down black darkgrey
*FvwmIconMan: *FocusAndSelectButton down blue  darkgrey
#*FvwmIconMan: FocusButton          down yellow NavyBlue
#*FvwmIconMan: FocusAndSelectButton down yellow Blue
*FvwmIconMan: *TitleButton          flat LightSteelBlue darkgrey
#*FvwmIconMan: *DontShow icon=Untitled resource=Untitled title=FvwmButtonsBottom title=xbuffy title=xloadtime title=xlassie title="Desk 0" title=ncmpc
*FvwmIconMan: *DrawIcons always
#*FvwmIconMan: *ButtonGeometry  200x19
*FvwmIconMan: *ManagerGeometry 1x2
*FvwmIconMan: Title ""
#}}}3
# README: Comments starting with '##' are the ones to be uncommented
#         next time around.
# FvwmIconMan:  FvwmIconMans {{{3
DestroyModuleConfig FvwmIconMans: *
*FvwmIconMans: ManagerGeometry 1x1
*FvwmIconMans: Background darkgrey
*FvwmIconMans: Foreground black
#*FvwmIconMans: ButtonGeometry 31x23
*FVwmIconMans: ButtonGeometry 35x16
*FvwmIconMans: Title ""
*FvwmIconMans: FocusAndSelectButton down black grey
*FvwmIconMans: FocusButton down black grey
*FvwmIconMans: IconButton down blue darkgrey
*FVwmIconMans: IconButton up blue darkgrey
*FvwmIconMans: PlainButton up black darkgrey
*FvwmIconMans: SelectButton down black grey
# disable default binding of "Iconify"
*FvwmIconMans: Action Mouse 0 N sendcommand Nop
# redefine buttons 1, 2 and 3.
*FvwmIconMans: Action Mouse 2 N sendcommand Iconify
*FvwmIconMans: Action Mouse 1 N sendcommand "Iconify off", sendcommand RaiseLower, sendcommand FlipFocus
*FvwmIconMans: Action Mouse 3 N sendcommand "Popup FvwmMenuWindowOps Rectangle +$left+$top 0 -100m"
#*FvwmIconMans: Action Mouse 4 N sendcommand "LockingSlide keep w-3p"
#*FvwmIconMans: Action Mouse 5 N sendcommand "LockingSlide keep w3p"
#*FvwmIconMans: Colorset 15
*FvwmIconMans: ReliefThickness 1
#*FvwmIconMans: Font "xft:Bitstream Vera Sans Mono:style=Roman:size=8"
#*FvwmIconMans: FocusAndSelectColorset 16
#*FvwmIconMans: FocusColorset 16
*FvwmIconMans: Resolution Page
*FvwmIconMans: DrawIcons false
*FvwmIconMans: FollowFocus True
*FvwmIconMans: UseWinList True
*FvwmIconMans: ShowOnlyIcons False
*FvwmIconMans: Format "%t"
#*FvwmIconMans: Title ""
*FvwmIconMans: Sort id
*FvwmIconMans: DontShow icon=Untitled resource=Untitled title=FvwmButtonsBottom title=xbuffy title=xloadtime title=xlassie title="Desk 0" title=ncmpc class=Fvwm*
#}}}3
#}}}2
#}}}1
#deactivate autofocus
DestroyFunc UrgencyFunc

DestroyFunc StartFunction
AddToFunc StartFunction
+  I Module FvwmPerl perlwops
+  I Schedule 600 Module FvwmEvent FvwmEvent-moveBB
#+  I Test (Init) Exec exec unclutter -noevents -notclass TeXmacs -notclass Gnome-breakout
+  I Module FvwmButtons FvwmButtons-Pager -g 99x99+0+0
+  I Wait   FvwmButtons-Pager
+  I Schedule 300 All (FvwmButtons-Pager) Move 0p 0p
+  I Module FvwmButtons FvwmButtons-Compact -g 100x337+0+107
+  I Wait FvwmButtons-Compact
+  I Schedule 500 All (FvwmButtons-Compact) Move 0p 107p
+  I Exec exec xsetroot -solid lightskyblue4
+  I Module FvwmCommandS
+  I Module FvwmAnimate
+  I Module FvwmProxy
#+  I Test (Init) Module FvwmForm Login
#+ I Test (Init) Exec exec xcompmgr -c 1
+ I Exec exec xcompmgr -cCFf  -D3
#+ I Exec exec nitrogen --restore
#+ I Exec exec gtk-redshift -l -33.45:-70.667 -g 0.7
+ I Exec exec $HOME/.fehbgx &
+ I Exec exec xgamma -gamma 0.8
+ I Exec exec parcellite
#+ I Test (Init) Exec exec eval `cat $HOME/.fehbg` &
#+ I Test (Init) Exec exec rclock -geometry 80x80+1279+550 -bg \#a0a0a0
#+ I Test (Init) Exec exec xload -geometry 80x80+1279+640 -update 3 -fg black -bg \#a0a0a0
#+ I test (Init) Exec exec numlockx
#+ I Test (Init) Exec exec trayer --transparent false --edge bottom --distance 5 --widthtype request --width 100 --alpha 250 --tint blue --SetDockType True --SetPartialStrut True
+ I Test (Init) Exec exec trayer --transparent true --edge top --distance 5 --widthtype request --width 100 --alpha 250 --tint blue --SetDockType false --SetPartialStrut True