# Begin ~/.fvwm/fvwmrc.fun

# Frank Gruellich <frank@der-frank.org>

# I don't like the default behaviour of changing windows.
#
DestroyFunc WindowListFunc
AddToFunc WindowListFunc
+ I Iconify off
+ I FlipFocus

# initialization functions
#
AddToFunc StartFunction
+ I exec fvwm-root -r $HOME/.fvwm/backgrounds/background.png
+ I Module FvwmAnimate
+ I Module FvwmButtons
+ I Module FvwmEvent
+ I Module FvwmProxy
+ I Module FvwmPager FreePager 0 5
+ I Module FvwmAuto FvwmAutohide -menter enter_handler
+ I Module FvwmAuto 10000 LongFocused Nop
+ I GotoPage 1 1

AddToFunc InitFunction
# this is my logfile
+ I Exec exec aterm -fg blue -tr -trsb -sb -sl 0 -tint lightyellow \
	-fn '-*-*-medium-r-*-*-8-*-*-*-*-*-*-*' -n 'logfile' \
	-title 'info.logfile' -name 'logfile' -g 150x40-0-0 -e \
	/usr/bin/sudo /usr/bin/tail -fn20 /var/log/messages
# this is a watch to the heise news ticker
+ I Exec exec aterm -fg blue -tr -trsb -sb -sl 0 -tint lightyellow \
	-fn '-*-*-medium-r-*-*-8-*-*-*-*-*-*-*' -n 'heiseticker' \
	-title 'info.heiseticker' -name 'heiseticker' -g 80x20+0+0 -e \
	watch -n60 --no-title cat ~/tmp/heisenews.txt
# my personal notes
+ I Exec exec aterm -fg blue -tr -trsb -sb -sl 0 -tint lightyellow \
	-fn '-*-*-medium-r-*-*-8-*-*-*-*-*-*-*' -n 'notes' \
	-title 'info.notes' -name 'notes' -g 80x30-0+50 -e \
	watch -n3600 cat ~/notes
+ I Exec exec xview -title 'info.dvorak' -geometry 269x155+0-29 $[HOME]/downloads/sDvorak.png

AddToFunc SessionInitFunction
+ I Nop

AddToFunc	ExitFunction
+ I Exec rm -f $[FVWM_USERDIR]/tmp/icon.tmp.*.png

# nice eye candy: a thumbnail of the window when iconified is used as icon
# 
DestroyFunc ThumbnailIconify
AddToFunc ThumbnailIconify
+ I ThisWindow (Iconic) ThumbnailDeIconify
+ I TestRc (Match) Break
+ I Test (f $[FVWM_USERDIR]/tmp/icon.tmp.$[w.id].png) Iconify
+ I TestRc (Match) Break
+ I DoThumbnail
+ I Iconify

DestroyFunc ThumbnailDeIconify
AddToFunc ThumbnailDeIconify
+ I Iconify false

DestroyFunc	DoThumbnail
AddToFunc	DoThumbnail
+ I ThisWindow PipeRead \
	"nice -19 xwd -silent -id $[w.id] \
	|nice -19 convert -resize 64x64 -frame 1x1 -mattecolor black -quality 0 xwd:- png:$[FVWM_USERDIR]/tmp/icon.tmp.$[w.id].png \
	&& echo WindowStyle IconOverride, EWMHMiniIconOverride, Icon $[FVWM_USERDIR]/tmp/icon.tmp.$[w.id].png, MiniIcon $[FVWM_USERDIR]/tmp/icon.tmp.$[w.id].png \
	|| echo Nop"

DestroyFunc	LongFocused
AddToFunc	LongFocused
+ I All (CurrentPage, Raised, !Iconic) DoThumbnail

DestroyFunc FunSelectStation
AddToFunc FunSelectStation
+ I DestroyMenu recreate MenuSelectStation
+ I AddToMenu MenuSelectStation "Select station" Title Top
+ I PipeRead 'for fn in $HOME/data/media/music/radio/*; \
	do echo AddToMenu MenuSelectStation "\'`basename \"$fn\"`\'" \
	"Exec ln -sf \\\"$fn\\\" $HOME/.Mpg321/currentstation"; done'
+ I PipeRead 'echo AddToMenu MenuSelectStation \\\"`basename "\\\`readlink $HOME/.Mpg321/currentstation\\\`"`\\\" Title'

DestroyFunc	ToggleShade
AddToFunc	ToggleShade
+ I ThisWindow (Shaded) WindowShade false
+ I TestRc (Match) WindowStyle NoTitle
+ I TestRc (Match) UpdateStyles
+ I TestRc (Match) Break
+ I WindowStyle TitleAt$0
+ I UpdateStyles
+ I WindowShade
+ I WindowStyle Title

# The autohiding functions
DestroyFunc	autohide
AddToFunc	autohide
+ I ThisWindow ($0) Deschedule $[w.id]
+ I TestRc (!Match) Deschedule -$[w.id]
+ I ThisWindow ($0) ThisWindow (shaded) autohide_show $1 $3
+ I TestRc (!Match) All ($0, !shaded) autohide_hide $2 $3

DestroyFunc	autohide_show
AddToFunc	autohide_show
+ I Schedule $0 -$[w.id] WindowShade $1 off
+ I Schedule $0 -$[w.id] Deschedule $[w.id]
+ I Schedule $0 -$[w.id] Deschedule -$[w.id]

DestroyFunc	autohide_hide
AddToFunc	autohide_hide
+ I Schedule $0 $[w.id] WindowShade $1 on
+ I Schedule $0 $[w.id] Deschedule $[w.id]
+ I Schedule $0 $[w.id] Deschedule -$[w.id]

DestroyFunc	enter_handler
AddToFunc	enter_handler
+ I autohide FvwmButtons 250 500 W
#            ^           ^   ^   ^
#            |           |   |   |___  Shade direction (optional)
#            |           |   |________ Hide delay
#            |           |___________  Show delay
#            |_______________________  Unique window name/resource

DestroyFunc	PagerMiniview
AddToFunc	PagerMiniview
+ I Module FvwmPager PagerMiniview

# End ~/.fvwm/fvwmrc.fun