ImagePath +:/usr/share/WindowMaker/Icons:$HOME/.fvwm/pics
#---- some stupid function due to gramma of fvwm
DestroyFunc raise-ro-move
AddToFunc raise-or-move
DestroyFunc max-and-raise
AddToFunc max-and-raise
#save and retrieve current focused window id
DestroyFunc move-and-focus
AddToFunc move-and-focus
- I PipeRead "echo SetEnv focusnumber$[page.nx]$[page.ny] $[w.id] "
- I GotoPage $0 $1
- I PipeRead "echo WindowID $focusnumber$[page.nx]$[page.ny] \(CurrentPage \) Focus "
#+ I TestRc (0) search-window
DestroyFunc search-window
AddToFunc search-window
- I ScanForWindow FromPointer East North ( CurrentPage !Iconic ) Focus
- I TestRc (0) ScanForWindow FromPointer West South ( CurrentPage !Iconic ) Focus
if fails to find window on “right-up” direction, go for the other
quadrant
#changing focus window within same desk
remember the new focus window id
change-focus(direction)
DestroyFunc change-focus
AddToFunc change-focus
- I Direction $0 (CurrentPage !Iconic Visible !x2x*) Focus
— normal window operations ------
Key M W MC Maximize
Key N W MC Maximize 0 100
Key I A MC Iconify
Key X W MC Close
Key R W MC RaiseLower
Key S W MC Resize
Key V W MC Move
jumping to remote display
Key F10 A A All (x2x*) Focus
while F11 is used for jumping back
Style x2x* Sticky StaysOnBottom
Mouse 0 I A Iconify
Mouse 1 W M raise-or-move
Mouse 0 W CM Echo $[w.id]
#----- move to pages
Key K A MCS move-and-focus +0p -1p
Key J A MCS move-and-focus +0p +1p
Key H A MCS move-and-focus -1p +0p
Key L A MCS move-and-focus +1p +0p
Key Up A MC move-and-focus +0p -1p
Key Down A MC move-and-focus +0p +1p
Key Left A MC move-and-focus -1p +0p
Key Right A MC move-and-focus +1p +0p
Key Up A MCS MoveToPage +0p -1p
Key Down A MCS MoveToPage +0p +1p
Key Left A MCS MoveToPage -1p +0p
Key Right A MCS MoveToPage +1p +0p
EdgeResistance 100 20
#------- app key bindings -----
Key F3 A A Exec xterm
Key F4 A A Exec firefox
Key F9 A A Module FvwmConsole
#---------- Focus
Style * FPGrabFocus, FPClickToFocus, FPReleaseFocus, StickyIcon
Style * MinOverlapPlacement, MinOverlapPlacementPenalties 1 5 0 0 0.05 50
Style Fvwm* MinOverlapPlacementPenalties 0 0 0 0 0 0
Key H A MC change-focus left
Key L A MC change-focus right
Key J A MC change-focus south
Key K A MC change-focus north
Style * HandleWidth 1
Style *term NoTitle
Style firefox NoTitle
Style Acroread NoTitle
Style Gv NoTitle
#----- about Icons -----
Style Firefox-bin Icon “WOAX/Aqua\ Ornament.png”, IconOverride
Style XTerm Icon “petro/The\ Crab.png” , IconOverride
Style GQview Icon “CandyBar/Clipping\ -\ Picture.png”, IconOverride
Style Gtkam Icon “smooth6/iPhoto.png”, IconOverride
Style Fig Icon “petro/The\ Antelope.png”, IconOverride
Style GV Icon “petro/The\ Gazelle.png”, IconOverride
Style AcroRead Icon “TI/File\ Server\ Disconnected.png”,
+IconOverride
Style Fvwm* CirculateSkip, WindowListSkip
Style FvwmPager StaysOnBottom
Style * MiniIcon Terminal.xpm
Style * IconBox 1000x100+1-1
Style Fvwm* Sticky
##------ init ------
#DestroyFunc InitFunction
#AddToFunc InitFunction
#+ I Module FvwmBacker
#+ I Module FvwmPager
#+ I Module FvwmButtons
#+ I Colorset 10 TiledPixmap black.xpm
##+I Colorset 11 Pixmap bar.png
#+ I *FvwmBacker: Command (Desk *, Page * 0) Colorset 10
#+ I Exec xscreensaver
##+I *FvwmBacker: Command (Desk *, Page * 1) Colorset 11
##---- some stupid function due to gramma of fvwm
DestroyFunc StartFunction
AddToFunc StartFunction
- I Module FvwmBacker
- I Module FvwmPager
#+ I Module FvwmButtons yybuttons
- I Colorset 10 TiledPixmap black.xpm
#+I Colorset 11 Pixmap bar.png
- I *FvwmBacker: Command (Desk *, Page * 0) Colorset 10
- I Exec xscreensaver
#+I *FvwmBacker: Command (Desk *, Page * 1) Colorset 11
#---- some stupid function due to gramma of fvwm
#---- close ----
DestroyFunc ExitFunction
AddToFunc ExitFunction
- I All (xscreensaver) Close
Colorset 1 RootTransparent, fg black, bg black, sh Gray,
hi Yellow, Tint black 0, btTint black 0
#-----------------Module part
DestroyModuleConfig yybuttons: *
*yybuttons: Geometry 60x400+0+200
*yybuttons: Colorset 1
*yybuttons: Rows 10
*yybuttons: Columns 1
*yybuttons: Frame 0
*yybuttons: Font “Shadow=3:xft:Sans:Bold:pixelsize=14:minspace=True:antialias=True”
*yybuttons: ( 1x1, Icon net.png, Action beep, Action(Mouse 1) ‘Exec xterm’ )
*yybuttons: ( 1x1, Icon net.png, Action(Mouse 1) ‘Exec xterm’ )
*yybuttons: ( 1x1, Icon net.png, Action(Mouse 1) ‘Exec xterm’ )
*yybuttons: ( 1x1, Icon net.png, Action(Mouse 1) ‘Exec xterm’ )
*yybuttons: ( 1x1, Icon net.png, Action(Mouse 1) ‘Exec xterm’ )
Style “yybuttons” NoTitle, !Handles, !Borders, Sticky,
WindowListSkip, CirculateSkip, StaysOnBottom, FixedPosition,
FixedSize, !Iconifiable
DestroyMenu FvwmRootMenu
AddToMenu FvwmRootMenu “YYmenu” Title
- “YYtest %net.png” FvwmRearrange -tile -h -a -mn 3 -incx 0 -incy 0
- “YYtest2 %net.png” FvwmRearrange -tile
- “YYtest3 %net.png” FvwmRearrange -tile
- “YYtest4 %net.png” FvwmRearrange -tile
DestroyFunc yytile
AddToFunc yytile
- I SetEnv TempWindowCount 0
- I All (CurrentPage !Sticky !Iconic)
PipeRead
“echo SetEnv TempWindowCount $(( $TempWindowCount+1))”
- I PipeRead
‘perl -e ’ @mapping=(1,1,1,2,2,3,3,3,3,3,4,4,4);
if ( $[TempWindowCount] <=12 ) {
print "SetEnv nRow ".$mapping[ $[TempWindowCount] ];
} else {
print "SetEnv nRow ", (int(sqrt($[TempWindowCount])))
}’’
#+ I All (CurrentPage )
#PipeRead \
"echo SetEnv TempWindowCount $(($TempWindowCount+1)) "
##echo “balh $[TempWindowCount]”
- I FvwmRearrange -tile -h -mn $[nRow] -a
- I Echo $[TempWindowCount] “—” $[nRow]
Key F11 A A yytile
FvwmThumb stuff from the web
ModulePath ${HOME}/.fvwm:+
DestroyModuleConfig FvwmThumbnail: *
*FvwmThumbnail: Refresh 5
*FvwmThumbnail: Directory ${HOME}/.fvwm/
*FvwmThumbnail: Class Pager, ScaleTo 27x27
*FvwmThumbnail: Class Pager, Command “WindowId %w WindowStyle EWMHMiniIconOverride, MiniIcon %i”
*FvwmThumbnail: Class Icons, Factor 0.2x0.2
*FvwmThumbnail: Class Icons, Command “WindowId %w WindowStyle IconOverride, Icon %i”
*FvwmThumbnail: Class BigPager, Factor 0.166666x0.166666
AddToFunc StartFunction