# -*- mode: fvwm; -*-

############################
# Set Environment variables.
############################

SetEnv fvwm_img $[FVWM_USERDIR]/images
SetEnv fvwm_icon $[FVWM_USERDIR]/icons
SetEnv fvwm_scrpt $./scripts
SetEnv fvwm_wallpapers $[FVWM_USERDIR]/wallpaper

#####################
# Set the image path.
#####################

ImagePath $[fvwm_icon]:$[fvwm_icon];.png:$[fvwm_wallpapers]:+

# #################
# Virtual Desktops.
# #################

DesktopSize 3x3
DesktopName 0 Main
DesktopName 1 Work
DesktopName 2 Games
# In percent.
# With 0 0 I cann't scroll to other page by hitting edge, but can move app to another page!
# With 100 100 by hitting edge I move to next page.
EdgeScroll 0 0
EdgeResistance 150  150
EdgeThickness 1

# #########################
# Mouse and Focus Behavior.
# #########################

ClickTime 350
MoveThreshold 3
Style * SloppyFocus, MouseFocusClickRaises

#################
# Program Styles.
#################

# TODO need works.
Style "*" Icon 48x48/x.png, MiniIcon mini/x.png
# Style "XTerm" Icon 48x48/terminal.png, NoActiveIconOverride, MiniIcon mini/terminal.png
# Style "gvim" Icon 48x48/vim.png, IconOverride, MiniIcon mini/vim.png, EWMHMiniIconOverride
# Style "Firefox-bin" Icon 48x48/firefox.png, MiniIcon mini/firefox.png, EWMHMiniIconOverride
# Style "irssi" Icon 48x48/irc.png, MiniIcon mini/irc.png

# ############
# FvwmTaskBar.
# ############

Style "FvwmTaskBar" NoTitle, !Handles, !Borders, Sticky, WindowListSkip, CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, !Iconifiable

##################
# Basic Functions.
##################

# DestroyFunc FuncName
# AddToFunc   FuncName
# + I (Action to happen immediately)
# + C (Action to happen on a mouse 'click)
# + D (Action to happen on a mouse 'double click')
# + H (Action to happen on a mouse 'hold')
# + M (Action to happen on a mouse 'motion')

DestroyFunc FvwmDeleteOrDestroy
AddToFunc   FvwmDeleteOrDestroy
+ H Nop
+ M Nop
+ C Delete
+ D Destroy

DestroyFunc FvwmIconifyOrShade
AddToFunc   FvwmIconifyOrShade
+ C Iconify
+ D WindowShade

DestroyFunc FvwmMaximize
AddToFunc   FvwmMaximize
+ H Nop
+ M Nop
+ C Maximize $0 $1

DestroyFunc FvwmMoveOrIconify
AddToFunc   FvwmMoveOrIconify
+ M Move
+ D Iconify

# ############
# Key binding.
# ############

Key F1 A M Menu MenuFvwmRoot Root c c
Key Super_L W CSM Delete

# Used by WindowList
DestroyFunc WindowListFunc
AddToFunc WindowListFunc
+ I Iconify off
+ I FlipFocus
+ I Raise
# Place mouse pointer in center of window.
+ I WarpToWindow 50 50

# Prevent show long title.
SetEnv fvwm_winlist_width 60
Key     Tab A M WindowList Root c c NoDeskSort, MaxLabelWidth $[fvwm_winlist_width], SelectOnRelease Meta_L
Key Super_L A N WindowList Root c c NoDeskSort, MaxLabelWidth $[fvwm_winlist_width]

Mouse 1 R A Menu Utilities Nop

Key F4 A M Delete

Mouse 1 1 A FvwmDeleteOrDestroy
Mouse 1 3 A FvwmIconifyOrShade
Mouse 1 5 A FvwmMaximize 93 100
Mouse 2 5 A FvwmMaximize 100 0
Mouse 3 5 A FvwmMaximize 0 100
Mouse 1 T A FvwmMoveOrIconify
Mouse 1 I A FvwmMoveOrIconify

###############
# Window Decor.
###############

DestroyDecor MyDecor
AddToDecor   MyDecor
+ TitleStyle LeftJustified Height 18
+ ButtonStyle 1 ActiveUp Vector 4 30x30@3 60x60@3 60x30@4 30x60@3 -- Flat
+ ButtonStyle 1 ActiveDown Vector 4 30x30@3 60x60@3 60x30@4 30x60@3 -- Flat
+ ButtonStyle 1 Inactive Vector 4 30x30@3 60x60@3 60x30@4 30x60@3 -- Flat
+ ButtonStyle 3 ActiveUp Vector 5 30x60@3 60x60@3 60x50@3 30x50@3 30x60@3 -- Flat
+ ButtonStyle 3 ActiveDown Vector 5 30x60@3 60x60@3 60x50@3 30x50@3 30x60@3 -- Flat
+ ButtonStyle 3 Inactive Vector 5 30x60@3 60x60@3 60x50@3 30x50@3 30x60@3 -- Flat
+ ButtonStyle 5 ActiveUp Vector 7 30x30@3 30x60@3 60x60@3 60x30@3 30x30@3 30x35@3 60x35@3 -- Flat
+ ButtonStyle 5 ActiveDown Vector 7 30x30@3 30x60@3 60x60@3 60x30@3 30x30@3 30x35@3 60x35@3 -- Flat
+ ButtonStyle 5 Inactive Vector 7 30x30@3 30x60@3 60x60@3 60x30@3 30x30@3 30x35@3 60x35@3 -- Flat

################
# Window Styles.
################

Style "*" UseDecor MyDecor
Style "*" BorderWidth 6, HandleWidth 6
Style "*" MWMBorder

# #####
# Menu.
# #####

AddToMenu MenuMy Media Title
+ "Peoplenet"     Exec  exec xterm -e /usr/bin/pon
+ VLC             Exec  exec vlc
+ Stardict        Exec  exec stardict
+ xkill           Exec  exec xkill

# Use interactive bash mode to read profile (~/.bashrc) to override default
# value of PS1.
AddToMenu Utilities Utilities Title
+ Xterm           Exec  exec xterm -e bash -i
+ Mc              Exec  exec xterm -fn "-misc-fixed-medium-r-*-*-18-*-*-*-*-*-iso10646-1" \
                             -geometry 120x42 -e bash -i -c "mc -x"
+ Emacs           Exec  exec emacs

+ debian          Popup "/Debian"
+ my              Popup MenuMy
+ fvwm            Popup MenuFvwmRoot

# ##########
# FvwmPager.
# ##########
Style "FvwmPager" NoTitle, Handles, Borders, BorderWidth 5, Sticky, WindowListSkip, \
  CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, !Iconifiable

SetEnv FvwmPager_Inactive rgb:c0/c0/c0
SetEnv FvwmPager_Active rgb:ef/df/bdc

DestroyModuleConfig FvwmPager: *
*FvwmPager: Back $[FvwmPager_Inactive]
*FvwmPager: BalloonBack $[FvwmPager_Active]
*FvwmPager: Hilight  $[FvwmPager_Active]
*FvwmPager: Geometry 80x300-0+0
*FvwmPager: WindowColors $[FvwmPager_Inactive] $[FvwmPager_Inactive] $[FvwmPager_Active] $[FvwmPager_Active]
*FvwmPager: Font "xft:Sans:Bold:pixelsize=12:minspace=True:antialias=True"
*FvwmPager: Balloons All
*FvwmPager: BalloonFont "-Misc-Fixed-Medium-R-Normal-*-13-*-*-*-*-*-ISO10646-1"
*FvwmPager: Window3dBorders
*FvwmPager: MiniIcons
*FvwmPager: UseSkipList
*FvwmPager: Rows 3
*FvwmPager: Columns 1

AddToFunc StartFunction
+ I Module FvwmPager 0 2