# -*- mode: shell-script -*-

#==============================================================================#
# This program is free software: you can redistribute it and/or modify         #
# it under the terms of the version 3 of the GNU General Public License        #
# as published by the Free Software Foundation.                                #
#                                                                              #
# This program is distributed in the hope that it will be useful, but          #
# WITHOUT ANY WARRANTY; without even the implied warranty of                   #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU            #
# General Public License for more details.                                     #
#                                                                              #
# You should have received a copy of the GNU General Public License            #
# along with this program.  If not, see <http://www.gnu.org/licenses/>.        #
#                                                                              #
# Written and (C) by Francois Fleuret                                          #
# Contact <francois.fleuret@idiap.ch> for comments & bug reports               #
#==============================================================================#

# I set the variable BGCOLOR in my .xsession to the color of the root
# window.

CleanupColorsets

# Menu
Colorset 0 bg $[MENUCOLOR], fg black, sh $[MENUCOLOR], hi $[MENUCOLOR]
# Active menu item
Colorset 1 bg $[FGCOLOR], fg black, sh $[FGCOLOR], hi $[FGCOLOR]

# This is a bit ugly ...
# ModulePath /usr/lib/fvwm/2.5.21

# DefaultFont     "-*-helvetica-medium-r-*-*-16-*-*-*-*-*-*-*"

DefaultFont  \
  "xft:bitstream:*:*:size=12:minspace=true:antialias=true:rgba:vrgb"

# DefaultFont     "Bitstream Vera Sans Mono 10"

DesktopSize	1x1
EdgeScroll	100 100
EdgeResistance 0
OpaqueMoveSize  -1

TitleStyle LeftJustified
TitleStyle -- Flat
BorderStyle -- Flat

Style * EdgeMoveDelay 0
Style * EdgeMoveResistance 0
Style * ResizeOpaque
Style * MouseFocusClickRaises
Style "*" NoHandles,IconBox 900x10+318-11
Style "*" BorderWidth 0,BorderColorSet 0,HilightBorderColorset 1
Style "*" ForeColor black,HilightFore white
Style "*" NoTitle
Style "*" SloppyFocus

# Bunch of specific behaviours and style

Style "Passphrase" Sticky,StaysOnTop
Style "xload" CirculateSkip,ClickToFocus,BorderWidth 0
Style "*console" CirculateSkip,ClickToFocus,BorderWidth 0
Style "xacpi" BorderWidth 0,StaysOnTop,NeverFocus
Style "xclipboard" Sticky,ClickToFocus,BorderWidth 0
Style "*clock" BorderWidth 0,StaysOnTop,NeverFocus

# Style "pho:*" BorderWidth 0
# Style "MPlayer" StaysOnTop
# Style "VLC*" StaysOnTop
# Style "Eye" StaysOnTop
# Style "emacs*" BorderWidth 0

######################################################################
## The desktop (I have a 12.1" on my X61s)

# DesktopName 0 First
# DesktopName 1 Second
# DesktopName 2 Third
# DesktopName 3 Fourth

# Key 1 A M GotoDesk 0 0
# Key 2 A M GotoDesk 0 1
# Key 3 A M GotoDesk 0 2
# Key 4 A M GotoDesk 0 3
######################################################################

#DestroyFunc EWMHActivateWindowFunc

#AddToFunc EWMHActivateWindowFunc
#+ "I" Iconify Off
#+ "I" Focus
#+ "I" Raise

#+ "I" WarpToWindow 50 50

# For conferences
# Style "*clock" NoTitle,WindowListSkip,Sticky,BorderWidth 0,NeverFocus
# Style "xapm" NoTitle,WindowListSkip,Sticky,BorderWidth 0,NeverFocus

#MenuStyle * Hilight3DThin,PopupOffset -2 2
MenuStyle * MenuColorset 0, HilightBack, ActiveColorset 1
MenuStyle * BorderWidth 5,SeparatorsLong,TrianglesSolid

# AddToFunc InitFunction
# + "I" Module FvwmAuto 100

# AddToFunc RestartFunction
# + "I" Module FvwmAuto 100

AddToFunc FocusAndWarp
+ I FlipFocus
+ I WarpToWindow 4p 4p

# AddToFunc RunXterm
# + I Exec exec xterm -title "shell" -geometry 80x24+16+12
# + I Wait shell
# + I Next (!Iconic *shell*) FocusAndWarp

# Key XF86Back     A A Scroll -100000   0
# Key XF86Forward  A A Scroll +100000   0

# Key keyname context modifier function
# contexts: W application window, R root window, A anywhere, T title
# modifier: N none, S Shift, M Meta, C Control, A any

Key s A M Next (!Iconic,shell*) FocusAndWarp
Key e A M Next (!Iconic,*emacs*) FocusAndWarp

Key f12 A N Exec winshepherd.sh mod5-F12 # mega-kill

# Key f12 A S Prev (AcceptsFocus) FocusAndWarp

# This one moves the current window and warps the mouse cursor in its
# title bar

# AddToFunc WarpAndMove
# + I WarpToWindow 8p 8p
# + I AnimatedMove $0 $1 Warp

# AddToFunc WarpAndMoveAndResize
# + I WarpToWindow 8p 8p
# + I Resize $2 $3
# + I AnimatedMove $0 $1 Warp

# <f11> restarts fvwm2
Key F11 A N Restart fvwm2

# <M-mouse1>, <M-mouse2> and <M-mouse3> move, resize and iconify

AddToFunc ResizeSE I Resize direction SE #warptoborder

MoveThreshold 0

# AddToFunc Raise-and-Move I Raise
# + M Move
# + D Lower

AddToFunc DontRaise-but-Move I Move
#+ D Lower

#Mouse 1 SFW A Raise

Mouse 1 SFW M DontRaise-but-Move
Mouse 2 SFW M ResizeSE
Mouse 3	SFW M Iconify

# Mouse 2	W M Resize
# Mouse 3	SFW M WindowShade

# Useful when iconified

Mouse 1 TI A Move
Mouse 2 TI A Resize
Mouse 3 TI A Iconify
# Mouse 3 A A Move
# Mouse 3 A A Menu root-window-ops-popup Nop

# Clicks in the root window popup menus

Mouse 1 R N Menu menu Nop
Mouse 2 R N Menu root-window-ops-popup Nop
Mouse 3 R N WindowList

# <A-f1> and <A-f2> show the menus (convenient for the notepad)

Key F1 A M Menu menu Nop
Key F2 A M Menu root-window-ops-popup Nop

Key Tab A M Next FocusAndWarp

AddToMenu root-window-ops-popup
+ "close  " Close
+ "nuke   " Destroy
+ "move   " Move
+ "resize " Resize

AddToMenu menu
+ "xterm  " Exec exec xterm -bg white -fa dummy -fs 12 -u8
+ "close  " Close
+ "nuke   " Destroy
+ "move   " Move
+ "resize " Resize