.fvwm2rc

#vim600: foldmethod=marker
######################
# Fvwm Configuration #
######################
Read $[HOME]/.fvwm/FvwmIconMan2
# 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 * EdgeMoveResistance 1

Style * EdgeMoveDelay scrolling

Style * EdgeMoveResistance 100 100
# The width and height of the pan window drawn when moving window
# between pages.
EdgeThickness 1
# }}}2

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

# I use this option if I don't want insets on the border (so-called
# 'smooth' border.)
#BorderStyle Simple

# 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/wm-icons/:/usr/share/icons/wm-icons/16x16-general:+
ImagePath $[HOME]/.fvwm/icons:+

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

# 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 11

# 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
Style "*" Iconsize 36 36

# 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.
EWMHBaseStruts 0 0 30 45

# 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:
#
#
#   +-----+-----+-----+-----+-----+-----+
#   |     |     |     |     |     |     |
#   +-----+-----+-----+-----+-----+-----+
#   |     |     |     |     |     |     |
#   +-----+-----+-----+-----+-----+-----+
#   |     |     |     |     |     |     |
#   +-----+-----+-----+-----+-----+-----+
DeskTopSize 6x3

# 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
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 0 fg black, bg gray68
#Colorset 0 fg black, bg brown
####Colorset 1 fg white, bg rgb:c0/60/77

#Colorset 1 fg white, bg aquamarine4
Colorset 1 fg white, bg lightseagreen
Colorset 2 fg white, bg rgb:00/50/00, Plain, NoShape
Colorset 3 fg white, bg darkgreen

# 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.
SetEnv RCount 0
SetEnv RXVT "rxvt +sb -bg white -fg black"
SetEnv DefCS "Colorset 1 fg white, bg #c06077"
# }}}1
# Style definitions {{{1
# General Window Styles {{{2
# Default styles common to all windows created.
Style "**"  Icon default.xpm
Style "*"   BorderWidth 4, HandleWidth 4
Style "*"   FvwmBorder, FirmBorder, SloppyFocus
Style "*"   Colorset 0
Style "*"   HilightColorset 1
Style "*"   UseDecor fDecor
Style "*"   Button 1, Button 2, Button 4, Button 6
Style "*"   MWMButtons
Style "*"   MWMDecor, MWMFunctions, HintOverride, MinOverLapPlacement
#Style "*"   ResizeHintOverride
Style "*"   !UsePPosition
Style "*"   WindowShadeSteps 0, WindowShadeScrolls
Style "*"   DecorateTransient, ResizeOpaque
Style "*" Font	-adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
# }}}2
# Application specific styles. {{{2
Style rxvt  IndexedWindowName
Style Fvwm*  Sticky, WindowListSkip, !Title, CirculateSkip, !Handles
Style FvwmConsole Title, Handles
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
Style rxvt_a  StartsOnPage 0 1 1, SkipMapping
Style rxvt_b  StartsOnPage 0 1 1, SkipMapping
Style irc     StartsOnPage 0 1 1, SkipMapping
Style mutt    StartsOnPage 1 2, SkipMapping
Style rxvt_c  StartsOnPage 1 2, SkipMapping
Style rxvt_d  StartsOnPage 1 2, SkipMapping
Style Mozilla-bin StartsOnPage 0 1 0, SkipMapping, WindowListSkip
Style *Firefox* StartsOnPage 0 1 0, SkipMapping, WindowListSkip
Style FvwmIconMan WindowListSkip
Style FvwmButtonsBottom WindowListSkip
Style gecko WindowListSkip
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

#}}}2
# Module Styles {{{2
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
#}}}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
# ---------------------------------------------------------------------------


# click in the root menu
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 {{{3

# Now some keyboard shortcuts.

# Arrow Keys
# press arrow + control anywhere, and scroll by 1 page

# Now using the 'PageScroll' function
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

#Key Left	A	CM	PageScroll left
#Key Right	A	CM	PageScroll right
#Key Up		A	CM	PageScroll up
#Key Down	A	CM	PageScroll down

# 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

#Application keybindings.
Key L		A	CM	Exec xscreensaver-command -lock
Key X   A 3   Function FvwmTitleRxvt
Key S   A 3   Stick
Key Tab A 3   SendToModule FvwmProxy ShowToggle
Key R   A CM  Module FvwmForm FvwmForm-Run
Key Menu A N  Popup FvwmMenuRoot
#Key Tab		A	M	-
Key Up      WTSF    C3  PackWrapperUp
Key Down    WTSF    C3  PackWrapperDown
Key Left    WTSF    C3  PackWrapperLeft
Key Right   WTSF    C3  PackWrapperRight
Key Up      WTSF    3   WindowShade North
Key Down    WTSF    3   WindowShade South
Key Left    WTSF    3   WindowShade West
Key Right   WTSF    3   WindowShade East

IgnoreModifiers L25
Key F9 A M Desk 0 0
Key F10 A M Desk 0 1
Key F11 A M Desk 0 2
Key F12 A M Desk 0 3
# ALT+TAB Windowlist
#Key Tab A M WindowList NoGeometry
#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
# F12 to open QuakeTerm
#Key F12 A A Next (CirculateHit, QuakeTerm) QuakeTermKeyBinding
# WindowsKey+S Sticky window
# }}}3
# 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 Exec exec xsetroot -solid gray66
#+ I Module FvwmButtons -g 13x80+1268+880 Buttons-Slider
#+ I Module FvwmEvent FvwmEvent-count
#+ I Module FvwmEvent FvwmEvent-decrxvt
#}}}3
# RunProgs (called via FvwmForm-Login) {{{3
DestroyFunc RunProgs
AddToFunc RunProgs
#+ I Exec exec xsetroot -solid gray66
+ I Exec exec rxvt -T "Terminal Emulation" -geometry 135x41+161+189 +sb
+ I Exec exec xmcd -geometry 360x135+460+1
#+ I Exec exec xterm -iconic -e "xlassie.sh"
+ I Exec exec $[RXVT] -n rxvt_a  -geometry 90x24+1+482
+ I Exec exec $[RXVT] -n rxvt_b  -geometry 88x24+645+482
#+ I Exec exec xterm -T "irc" -geometry 140x30+0+0 -e "ssh -X gateway 'screen -RS irssi irssi'"
#+ I Exec exec xsetroot -solid darkgrey
+ I Exec exec xsetroot -solid lightskyblue4
+ I Exec exec screen -d -S mutt -m "mutt -Z"
+ I Exec exec $[RXVT] -T "mutt" -n mutt -geometry 101x59+0+0  -e screen -R -S mutt
+ I Exec exec $[RXVT] -T "rxvt_c" -n rxvt_c -geometry 78x29+720+0
+ I Exec exec $[RXVT] -T "rxvt_d" -n rxvt_d -geometry 78x28+721+438
# }}}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]
#+ I	Echo $[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

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
#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 + DynamicPopDownAction DestroyMenu FvwmMenuPreMusic
+ 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 DestroyMenu FvwmMenuPreMusic
#+ I AddToMenu FvwmMenuPreMusic "CD ROM" Title
#+ I + DynamicPopDownAction DestroyMenu FvwmMenuPreMusic
+ 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
#}}}2
# Functions called from Mouse Actions {{{2
# ToggleWindow {{{3
AddToFunc ToggleWindow
+ I None ($0, CirculateHit) Function FvwmStartXbuffy
#+ I TestRc (Match) Break
+ I Next ($0, CirculateHit) Close
#+ I TestRc (Match) Break
#+ I Next ($$0, CirculateHit) FlipFocus nowarp
#}}}3
# FvwmStartXbuffy {{{3
AddToFunc FvwmStartXbuffy
+ I Exec exec xbuffy -bg darkgrey -fg black -poll 5 -header 0 -nobeep -horiz -mail ~/Mail{/dorset,/fvwm,/fvwm-workers,/glost,/hants,/inbox,/lgang,/sussex,/tag,/wilts,/hants-wiki,/cream,/ruby} -geometry 461x88+399-40
+ I All (CurrentPage, AcceptsFocus, !iconic) ThisWindow ("xbuffy") FlipFocus NoWarp
+ I TestRc (NoMatch) ThisWindow (xbuffy) Close
#}}}3
# ChangeStyle {{{3
DestroyFunc ChangeStyle
AddToFunc   ChangeStyle
+ I ColorSet $*
+ I Style * HilightColorSet $*
+ I SetEnv DefCS "$0 $*"
+ I UpdateStyles
#}}}3
#}}}2
# Functions called from Key-Bindings {{{2
# PackWindowUp {{{3
DestroyFunc PackWindowUp
AddToFunc PackWindowUp
+ I SetEnv low_w 0
+ I WindowId $3 Raise
+ I All (CurrentPage, !Iconic AcceptsFocus, \
        !Shaded) PipeRead "test `expr $[w.y] + $[w.height]` -gt $[low_w] \
        -a `expr $[w.y] + $[w.height]` -lt $0 \
        -a \
\
( \
\
( $[w.x] -gt $1 -a $[w.x] -lt `expr $1 + $2` \
\
) \
            -o \
\
( $1 -gt $[w.x] -a $1 -lt `expr $[w.x] + $[w.width]` \
\
) \
            -o \
\
( $1 -le $[w.x] -a `expr $1 + $2` -ge `expr $[w.x] + $[w.width]` \
\
) \
            -o \
\
( $[w.x] -lt $1 -a `expr $[w.x] + $[w.width]` -gt `expr $1 + $2` \
\
) \
        \
\
) \
        && echo SetEnv low_w `expr $[w.y] + $[w.height]` \
        || echo Nop"
+ I WindowId $3 AnimatedMove keep $[low_w]p
#+ I WindowId $3 RefreshWindow

AddToFunc PackWrapperUp I NoWindow PackWindowUp $[w.y] $[w.x] $[w.width] $[w.id]
#}}}3
# PackWindowDown {{{3
#####
# Name:     PackWindowDown
# Bound:    Alt+Shift+Down When a window is active.
# Purpose:  See PackWindowUp.
#
#################
DestroyFunc PackWindowDown
AddToFunc PackWindowDown
+ I SetEnv high_w $[vp.height]
+ I WindowId $3 Raise
+ I All (CurrentPage, !Iconic, AcceptsFocus, \
        !Shaded) PipeRead "test $[w.y] -lt $[high_w] \
        -a $[w.y] -gt `expr $0 + $4`  \
        -a \
\
( \
\
( $[w.x] -gt $1 -a $[w.x] -lt `expr $1 + $2` \
\
) \
            -o \
\
( $1 -gt $[w.x] -a $1 -lt `expr $[w.x] + $[w.width]` \
\
) \
            -o \
\
( $1 -le $[w.x] -a `expr $1 + $2` -ge `expr $[w.x] + $[w.width]` \
\
) \
            -o \
\
( $[w.x] -lt $1 -a `expr $[w.x] + $[w.width]` -gt `expr $1 + $2` \
\
) \
        \
\
) \
        && echo SetEnv high_w $[w.y] \
        || echo Nop"
+ I PipeRead "echo WindowId $3 AnimatedMove keep `expr $[high_w] - $4`p"
#+ I WindowId $3 RefreshWindow

AddToFunc PackWrapperDown I NoWindow PackWindowDown $[w.y] $[w.x] $[w.width] $[w.id] $[w.height]
#}}}3
# PackWindowLeft {{{3
#####
# Name:     PackWindowLeft
# Bound:    Alt+Shift+Left When a window is active
# Purpose:  See PackWindowUp.
#
# The Logic works likes this:
#   1. Set Destination to the Left Edge
#   2. For every window, Run these tests:
#               + Is the Window's Right edge further _Right_ than furthest edge seen yet?
#       And:    + Is it's Right edge Further _Left_ than Target Windows Left edge? (ie,
#in the way)
#           Yes:
#                   + Does the window start inside Target Window, and end below?
#               Or  + Does it start above, and end inside?
#               Or  + Is it the same vertical position/height/size, or start inside and
#end inside?
#               Or  + Does it start above, and end below?
#                   Yes:
#                       This is the new Destination.
#                   No:
#                       Nop
#           No:
#               Nop
#   3. Move to Destination.
#
#################
DestroyFunc PackWindowLeft
AddToFunc PackWindowLeft
+ I SetEnv left_w 0
+ I WindowId $3 Raise
+ I All (CurrentPage, !Iconic, AcceptsFocus, \
        !Shaded) PipeRead "test `expr $[w.x] + $[w.width]` -gt $[left_w] \
        -a `expr $[w.x] + $[w.width]` -lt $1 \
        -a \
\
( \
\
( $[w.y] -gt $0 -a $[w.y] -lt `expr $0 + $4` \
\
) \
            -o \
\
( $[w.y] -lt $0 -a `expr $[w.y] + $[w.height]` -gt $0 \
\
) \
            -o \
\
( $[w.y] -ge $0 -a `expr $[w.y] + $[w.height]` -le `expr $0 + $4` \
\
) \
            -o \
\
( $[w.y] -lt $0 -a `expr $[w.y] + $[w.height]` -gt `expr $0 + $4` \
\
) \
        \
\
) \
        && echo SetEnv left_w `expr $[w.x] + $[w.width]`  \
        || echo Nop"
+ I WindowId $3 AnimatedMove $[left_w]p keep
#+ I WindowId $3 RefreshWindow

AddToFunc PackWrapperLeft I NoWindow PackWindowLeft $[w.y] $[w.x] $[w.width] $[w.id] $[w.height]
#}}}3
# PackWindowRight {{{3
DestroyFunc PackWindowRight
AddToFunc PackWindowRight
+ I SetEnv right_w $[vp.width]
+ I WindowId $3 Raise
+ I All (CurrentPage, !Iconic, AcceptsFocus, \
        !Shaded) PipeRead "test $[w.x] -lt $[right_w] \
        -a $[w.x] -gt `expr $1 + $2` \
        -a \
\
( \
\
( $[w.y] -gt $0 -a $[w.y] -lt `expr $0 + $4` \
\
) \
            -o \
\
( $[w.y] -lt $0 -a `expr $[w.y] + $[w.height]` -gt $0 \
\
) \
            -o \
\
( $[w.y] -ge $0 -a `expr $[w.y] + $[w.height]` -le `expr $0 + $4` \
\
) \
            -o \
\
( $[w.y] -lt $0 -a `expr $[w.y] + $[w.height]` -gt `expr $0 + $4` \
\
) \
        \
\
) \
        && echo SetEnv right_w $[w.x] \
        || echo Nop"
+ I PipeRead "echo WindowId $3 AnimatedMove `expr $[right_w] - $2`p keep"
#+ I WindowId $3 RefreshWindow

AddToFunc PackWrapperRight I NoWindow PackWindowRight $[w.y] $[w.x] $[w.width] $[w.id] $[w.height]
#}}}3
#}}}2
#}}}1
# Menus {{{1
# FvwmMenuWindowOps {{{2
DestroyMenu "FvwmMenuWindowOps"
AddToMenu "FvwmMenuWindowOps" "WindowOps" Title
+              "&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"
+	       "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
+ "&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
#}}}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 mfe
+ "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
+ "&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
+ "&Mozilla"  Exec exec mozilla
+ "&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
+ "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"'
#}}}2
# FvwmMenuPreMusic {{{2
DestroyMenu "FvwmMenuPreMusic"
AddToMenu   "FvwmMenuPreMusic" DynamicPopupAction FuncMusicMenu

# 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
+ "fvwm-convert-2.6"    FuncViewManPage fvwm-convert-2.6
+ "" 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 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
#}}}1
# Module Configs {{{1
# FvwmPager {{{2
DestroyModuleConfig FvwmPager: *
#*FvwmPager: Font -adobe-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*
*FvwmPager: Font none
*FvwmPager: SmallFont none
*FvwmPager: Back darkgrey
#*FvwmPagerBack #5c54c0
*FvwmPager: Fore Black
*FvwmPager: DeskHilight
*FvwmPager: WindowColors black skyblue3 orhid
*FvwmPager: Hilight orchid
#*FvwmPager: Geometry 0x0+715+514
*FvwmPager: DeskTopScale 29
*FvwmPager: SloppyFocus
*FvwmPager: UseSkipList
*FvwmPager: 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 edulinux.homeunix.org -username n6tadam -password ask < ~/.mailpass -bg darkgrey -fg black -update 5 -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"
*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: 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")
PipeRead 'echo SetEnv width `expr $[vp.width] / 2 - 135`'

*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 gateway xmem -nolabel -jumpscroll 1 -update 1 -bg darkgrey")
#*FvwmButtonsBottom: (1x9, Back darkgrey, Frame 1, Swallow (USeOld,NoClose) "xosview@gateway" "Exec exec ssh -X gateway xosview -captions -usedlabels -mem -disk -swap -battery -page -ints -labels -int -name xosviews -xrm "xosview@gateway*background: darkgrey"")
*FvwmButtonsBottom: (1x5+11+0, Back darkgrey, Frame 1, Swallow (UseOld,NoClose,Respawn,NoKill) "xlassie" "Exec exec xlassie -offline -command 'fetchmail -s' -imap edulinux.homeunix.org -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: (8x8, Padding 2 2, Frame 1, Back darkgrey, Panel(up,indicator, position Module mlr right, steps 0) "FvwmPager" "Module FvwmPager FvwmPager 0 0")
*FvwmButtonsBottom: (39x8, Padding 0 0, Frame 0, Back darkgrey,  Swallow(UseOld, NoHints, NoClose, Respawn) "FvwmScript-Date" "Module FvwmScript FvwmScript-Date")
*FvwmButtonsBottom: (20x11, 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) "FvwmApplet-DigitalClock" "Module FvwmScript FvwmApplet-DigitalClock")
*FvwmButtonsBottom: (End)
#}}}3
# FvwmButtons: FvwmBar {{{3
DestroyModuleConfig FvwmBar: *
*FvwmBar: Frame 1
*FvwmBar: Padding 2 2
*FvwmBar: Rows 23
*FvwmBar: Columns 71
*FvwmBar: (71x23, Swallow "FvwmIconMan" `Module FvwmIconMan FvwmIconMans`)
# }}}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
*FvwmEvent-decrxvt: PassId
*FvwmEvent-decrxvt: destroy_window FvwmDecrementRCount
# }}}3
# }}}2
# FvwmForm {{{2
# FvwmForm: Login {{{3
*LoginGrabServer
*LoginWarpPointer
#*LoginFont         *helvetica*m*r*n*14*
#*LoginButtonFont   *helvetica*m*o*n*14*
#*LoginInputFont    *cour*m*r*n*14*
*LoginFore         White
#Bisque
*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 FvwmnIconMans: *
#*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 Always
##*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


DestroyFunc StartFunction
AddToFunc StartFunction
#+  I Exec exec xsetroot lightskyblue4
#+  I Test (Init) Module FvwmForm Login
#+  I Test (Init) Exec exec unclutter -noevents -notclass TeXmacs
+  I Module FvwmButtons FvwmButtonsBottom
+  I Module FvwmButtons FvwmBar -g 1273x16+0+0
+  I Module FvwmCommandS
+  I Module FvwmAnimate
+  I Module FvwmProxy
+  I Exec exec autocutsel
#+ I Test (Init) Exec exec xcompmgr -c 1
+ I Exec exec xcompmgr -cCFf  -D3
+ I Exec exec nitrogen --restore
+ 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