Include components/functions/Music
Include components/functions/Screen-Menu
Include components/functions/Numpad-multihead
Include components/functions/Gather

Module FvwmCommandS

InfoStoreAdd DeskIconsSign " "
LoadPreferences IconsType
LoadPreferences DefaultDesktopManager

Style * DecorateTransient, StackTransientParent, RaiseTransient, LowerTransient
Style * MinOverlapPlacementPenalties 1 0 0 0 0 50
Style xpad MinOverlapPlacementPenalties 0 0 0 0 0.05 0
Style * TitleFormat %n, IconTitleFormat %n
Style * EdgeMoveDelay 250
Style * EdgeMoveResistance 1 30

EdgeScroll	100	100
EdgeResistance	250
HideGeometryWindow	Never
OpaqueMoveSize	100
EdgeThickness	1

Style * SnapAttraction 10 SameType Screen

EWMH-Desktop 0 0 0 0
EWMH-Panel-Top 5

Style * IconBox 1300x600+0-0@g, IconFill left bottom, IconGrid 30 30
Style * StickyIcon


Module FvwmAuto 300 -passid -menterleave \
 "Silent Raise_Pager" \
 "Silent Lower_Pager"

DestroyFunc Lower_Pager
AddToFunc Lower_Pager
+ I WindowId $0 (FvwmPager|mwatch) Layer 0 2

DestroyFunc Raise_Pager
AddToFunc Raise_Pager
+ I WindowId $0 (FvwmPager|mwatch) Layer 0 7

DestroyFunc FvwmPagerWindow
AddToFunc FvwmPagerWindow
+ I All (FvwmPager) Close
+ I DestroyModuleConfig FvwmPager: *
+ I PipeRead 'echo InfoStoreAdd FvwmPager_Width $((28*$[infostore.Desk_Pages_X])); echo InfoStoreAdd FvwmPager_Height $((24*$[infostore.Desk_Pages_Y]))'
+ I PipeRead 'echo *FvwmPager: Geometry $[infostore.FvwmPager_Width]x$[infostore.FvwmPager_Height]+$((($[vp.width]-$[infostore.FvwmPager_Width])/2))'
+ I *FvwmPager: MiniIcons
+ I *FvwmPager: Font none
+ I *FvwmPager: WindowBorderWidth 1
+ I *FvwmPager: NoSeparators
+ I *FvwmPager: UseSkipList
+ I *FvwmPager: Colorset * $[infostore.cs_panel_inactive]
+ I *FvwmPager: HilightColorset * $[infostore.cs_panel_active]
+ I *FvwmPager: WindowColorsets $[infostore.cs_panel_wininactive] $[infostore.cs_panel_winactive]
+ I Module FvwmPager

FvwmPagerWindow

FvwmTrayerPanel request pixel "24" top right "248" "4"
Style trayer UseStyle FvwmParts

All (FvwmButtons-Panel) Close
DestroyModuleConfig FvwmButtons-Panel: *
*FvwmButtons-Panel: Geometry -3+3
*FvwmButtons-Panel: BoxSize smart
*FvwmButtons-Panel: ActiveColorset $[infostore.cs_panel_active]
*FvwmButtons-Panel: Colorset $[infostore.cs_panel_inactive]
*FvwmButtons-Panel: Rows 1
*FvwmButtons-Panel: Padding 1 1
*FvwmButtons-Panel: Frame 0
*FvwmButtons-Panel: Font "xft:$[panel_font]:pixelsize=$[panel_font_size]:$[panel_font_style]"

# Window list {{{2
*FvwmButtons-Panel: (1x1, Icon "22x22/fvwm-crystal/window-list.png", \
Action (Mouse 1) Window-List "$[MenuPosition_SW]", \
Action (Mouse 2) All (CurrentPage) PlaceAgain anim, \
Action (Mouse 3) Window-List-Icons "$[MenuPosition_SW]")

# diamond {{{2
*FvwmButtons-Panel: (1x1, Size 22 22, Icon "22x22/fvwm-crystal/fvwm-crystal.png", \
	Action (Mouse 1) Menu /FVWM-Crystal $[MenuPosition_SW])

# apps {{{2
*FvwmButtons-Panel: (1x1, Size 22 22, Icon "22x22/fvwm-crystal/applications.png", \
	Action (Mouse 1) Menu /Applications $[MenuPosition_SW])

*FvwmButtons-Panel: (7x1, Size 154 24, \
Swallow (Close, Respawn, FvwmModule) "FvwmScript-Clock" 'Script components/scripts/FvwmScript-Clock', \
Action (Mouse 3) SendToModule *FvwmScript-Clock SendString 1 1 str)

Module FvwmButtons FvwmButtons-Panel

# This creates the menu with applications available under Alt+Win_R
PipeRead 'fvwm-crystal.apps --database=$[FVWM_DISTROMENUDIR]/Applications --database=$[FVWM_SYSTEMDIR]/Applications --database=$[FVWM_USERDIR]/Applications --search-icons-in=$[FVWM_USERDIR]/icons/$[infostore.Icon_Theme]/22x22/categories:$[FVWM_USERDIR]/icons/$[infostore.Icon_Theme]/22x22/apps:$[FVWM_SYSTEMDIR]/icons/$[infostore.Icon_Theme]/22x22/categories:$[FVWM_SYSTEMDIR]/icons/$[infostore.Icon_Theme]/22x22/apps:$[FVWM_DISTROMENUDIR]/icons/$[infostore.Icon_Theme]/22x22/categories:$[FVWM_DISTROMENUDIR]/icons/$[infostore.Icon_Theme]/22x22/apps --default-file-icon=22x22/apps/default.png --default-dir-icon=22x22/categories/directory.png --min-submenu-length=5 --sort=prio --panel-icons=topapp --panel-action1=menu --panel-action2=none --panel-action3=topapp --menu-pos=S --no-panel --check-execs'

AddToFunc StartFunction
+ I Style mwatch !FixedPosition
+ I Style gkrellm !FixedPosition
+ I UpdateStyles
+ I All (mwatch) Move -0 +30p
+ I All (gkrellm) Move -0 -0
+ I Style mwatch FixedPosition
+ I Style gkrellm FixedPosition