# SilentHacker desktop
# Written by: Maciej Delmanowski <harnir@linux.net.pl>
#
# 2007-2013 - Dominique Michel
# See ChangeLog for details
#
# You can use folding to navigate this file

Echo SilentHacker recipe loading from $.

# Place of the desktop icons; " ": left; "-": right
InfoStoreAdd DeskIconsSign " "

# Includes and FVWM modules {{{1
Include components/bindings/Desktop-MMB-ToggleTopBar
# Type of icons on the desktop {{{2
LoadPreferences IconsType

# Desktop manager {{{2
LoadPreferences DefaultDesktopManager

# Media player {{{2
Include components/functions/Music-$[infostore.MusicPlayer]

# Desktop settings {{{1
EdgeScroll	0	0
EdgeResistance			0
Style * EdgeMoveDelay		250
Style * EdgeMoveResistance	100
HideGeometryWindow	Move, Resize
OpaqueMoveSize	100
EdgeThickness	1

EWMH-Desktop 0 0 0 0

# Settings for icons on the desktop {{{1
#Style * IconBox 1200x800+30-30, IconFill left bottom, IconGrid 30 30
Style * StickyIcon
Test (EnvMatch DefaultDesktopManager Crystal) PipeRead 'echo "Style * IconBox $(($[vp.width]-((((50*$[IconColumnsNumber]))+50))))x$(($[vp.height]-33))+$((((50*$[IconColumnsNumber]))+25))+30, IconFill left bottom, IconGrid 30 30"'
Test (!EnvMatch DefaultDesktopManager Crystal) PipeRead 'echo "Style * IconBox $(($[vp.width]-6))x$(($[vp.height]-50))+3+30, IconFill left bottom, IconGrid 30 30"'

DestroyFunc RedrawIconBox
AddToFunc RedrawIconBox
+ I PipeRead 'echo "Style * IconBox $(($[vp.width]-((((50*$[IconColumnsNumber]))+50))))x$(($[vp.height]-33))+$((((50*$[IconColumnsNumber]))+25))+30, IconFill left bottom, IconGrid 30 30"'

# Applications generator and main menu{{{1
# 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'

# Main "diamond" menu {{{2
DestroyMenu /FVWM-Crystal
AddToMenu /FVWM-Crystal
+ '%22x22/fvwm-crystal/fvwm-crystal.png%$[gt.FVWM-Crystal documentation]' Popup /Developer/FVWM-Crystal-Documentation
+ "" Nop
+ '%22x22/fvwm-crystal/preferences-desktop-screensaver.png%$[gt.Screensaver]' Popup /Screensaver
+ '%22x22/fvwm-crystal/camera-photo.png%$[gt.Screenshot]' Popup /Screenshot
+ '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music]' Popup /Music
+ "" Nop
+ '%22x22/fvwm-crystal/preferences-desktop-theme.png%$[gt.Window decorations]' Popup /Window-Decorations
+ '%22x22/fvwm-crystal/colorsets.png%$[gt.Colorsets]' Popup /Colorsets
+ '%22x22/fvwm-crystal/preferences-desktop-wallpaper.png%$[gt.Wallpaper]' Popup /Wallpaper
+ '%22x22/fvwm-crystal/preferences-desktop.png%$[gt.Preferences]' Popup /Preferences
+ "" Nop
+ '%22x22/fvwm-crystal/applications-development.png%$[gt.Developer menu]' Popup /Developer
+ '%22x22/fvwm-crystal/fvwm-crystal.png%$[gt.About FVWM-Crystal]' Include components/functions/About
+ MissingSubmenuFunction FuncFvwmMenuXephyrDirectory
+ '%22x22/fvwm-crystal/gdm-xnest.png%$[gt.Nested sessions]' Popup /etc/X11/Sessions
+ '%22x22/fvwm-crystal/system-log-out.png%$[gt.Exit]' Popup /Exit

# Desktop menu with left click
SetEnv DesktopMenu /FVWM-Crystal
#SetEnv DesktopMenu /Applications

# InfoLine {{{1
DestroyFunc Get-InfoLine
AddToFunc Get-InfoLine
+ I PipeRead 'fvwm-crystal.infoline'
+ I SendToModule FvwmButtons-InfoLine ChangeButton InfoLine Title "$[FVWM_INFOLINE]"

All (FvwmButtons-InfoLine) Close
DestroyModuleConfig FvwmButtons-InfoLine: *
PipeRead "echo *FvwmButtons-InfoLine: Geometry $(($[vp.width]-240))x$(($[panel_font_size]+10))-152+-1"
*FvwmButtons-InfoLine: BoxSize smart
*FvwmButtons-InfoLine: ActiveColorset $[infostore.cs_panel_active]
*FvwmButtons-InfoLine: Colorset $[infostore.cs_panel_inactive]
*FvwmButtons-InfoLine: Columns 1
*FvwmButtons-InfoLine: Padding 2 2
*FvwmButtons-InfoLine: Frame 0
*FvwmButtons-InfoLine: Font "xft:$[panel_font]:pixelsize=$[panel_font_size]:$[panel_font_style]"

PipeRead 'fvwm-crystal.infoline'

*FvwmButtons-InfoLine: (1x1, Id "InfoLine", Title (Left) "$[FVWM_INFOLINE]", Action Get-InfoLine)

Module FvwmButtons FvwmButtons-InfoLine
Style FvwmButtons-InfoLine StaysOnTop

# Clock {{{1
# original height = 16
All (FvwmButtons-Clock) Close
DestroyModuleConfig FvwmButtons-Clock: *
PipeRead 'echo *FvwmButtons-Clock: Geometry x$(($[panel_font_size]+10))-90+-1'
*FvwmButtons-Clock: BoxSize smart
*FvwmButtons-Clock: ActiveColorset $[infostore.cs_panel_active]
*FvwmButtons-Clock: Colorset $[infostore.cs_panel_inactive]
*FvwmButtons-Clock: Columns 2
*FvwmButtons-Clock: Padding 2 2
*FvwmButtons-Clock: Frame 0
*FvwmButtons-Clock: Font "xft:$[panel_font]:pixelsize=$[panel_font_size]:$[panel_font_style]"

PipeRead "echo \"*FvwmButtons-Clock: (2x1, Size 60 $(($[panel_font_size]+10)), \
Swallow (Close, Respawn, FvwmModule) "FvwmScript-Clock" 'Script components/scripts/FvwmScript-Clock', \
Action (Mouse 3) SendToModule *FvwmScript-Clock SendString 1 1 str)\""

Module FvwmButtons FvwmButtons-Clock

# MMB Toggle-TopBar-OnTop 1{{{
DestroyFunc Toggle-TopBar-OnTop
AddToFunc Toggle-TopBar-OnTop
+ I All (FvwmButtons-InfoLine, !State 1) PutTopBar-OnTop
+ I TestRc (NoMatch) PutTopBar-OnBottom
+ I Restore-TopBar-RaiseLower

DestroyFunc PutTopBar-OnTop
AddToFunc PutTopBar-OnTop
+ I All (FvwmButtons-InfoLine) PutOnTop
+ I All (FvwmButtons-Clock) PutOnTop

DestroyFunc PutTopBar-OnBottom
AddToFunc PutTopBar-OnBottom
+ I All (FvwmButtons-InfoLine) PutOnBottom
+ I All (FvwmButtons-Clock) PutOnBottom

Echo /--------- Fvwm-Crystal: Recipe loaded ---------/
#PrintInfo infostore

# vim:foldmethod=marker:foldenable:foldlevel=0:ft=fvwm
