# -*- mode: fvwm; fill-column: 90 -*-

################################################################

# Help on syntax.

# 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')

# Mouse [(window)] Button Context Modifiers Function

# Button

#   1 left

#   2 right

#   3 middle

# Context

#   ’R’ for the root window

#   ’W’  for  an application  window

#   ’D’ for a desktop application (as kdesktop or Nautilus desktop)

#   ’T’ for a window title-bar

#   ’S’ for a window side, top, or bottom bar,

#   ’[’, ’]’, ´-’ and ’_’ for the left, right, top or bottom  side  only

#   ’F’  for a window frame (the corners),

#   ’<’, ’^’, ’>’ and ’v’ for the top left, top right, bottom right or bottom left corner,

#   ’I’ for an icon window

#   ’0’  through  ’9’  for  title-bar buttons

#   ’A’ is for any context

# Modifiers

#   ’N’ for no modifiers

#   ’C’ for control

#   ’S’ for shift

#   ’M’ for Meta

#   ’L’ for  Caps-Lock

#   ’A’ for any modifier

# Key [(window)] Keyname Context Modifiers Function

# See Keyname on /usr/include/X11/keysymdef.h, without the XK_ prefix.

# Use Bash for PIPESTATUS.

ExecUseShell /bin/bash

################################################################

# Debugging code.

# BugOpts DisplayNewWindowNames on

# BugOpts DisplayNewWindowNames off

# BugOpts ExplainWindowPlacement on

# BugOpts ExplainWindowPlacement off

# KillModule FvwmDebug

# Module FvwmDebug -m -1

################################################################

# Set paths.

m4_define(`m4_IMGPATH', `$[FVWM_USERDIR]/images')m4_dnl

m4_define(`m4_ICONPATH', `$[FVWM_USERDIR]/icons')m4_dnl

ModulePath $[FVWM_USERDIR]:+

ImagePath m4_ICONPATH:m4_IMGPATH:+

# Debian paths.

ImagePath +:/usr/share/icons/gnome/16x16/places

ImagePath +:/usr/share/icons/gnome/32x32/apps

ImagePath +:/usr/share/icons/gnome-colors-common/32x32/apps

ImagePath +:/usr/share/icons/locolor/32x32/apps

# ImagePath +:/usr/share/icons/hicolor/16x16/apps

ImagePath +:/usr/share/icons/hicolor/22x22/apps

ImagePath +:/usr/share/icons/hicolor/24x24/apps

ImagePath +:/usr/share/icons/hicolor/32x32/apps

ImagePath +:/usr/share/icons/hicolor/48x48/apps

# ImagePath +:/usr/share/icons/hicolor/64x64/apps

# This paths contain large icons for some apps, they make menus look ugly...

# ImagePath +:/usr/share/app-install/icons/

# ImagePath +:/usr/share/pixmaps

################################################################

# Set aliases to common values.

m4_define(`m4_MONOFONT', `-misc-fixed-medium-r-semicondensed-*-13-120-*-*-*-*-iso10646-1')m4_dnl

m4_define(`m4_BIGMONOFONT', `-misc-fixed-medium-r-*-*-18-*-*-*-*-*-iso10646-1')m4_dnl

# As args expected class name.

m4_define(`m4_XTERM_MC',`xterm -name $1 -fn "'m4_BIGMONOFONT`" -geometry 136x42 -e bash -i -c "mc -x"')m4_dnl

################################################################

# Startup functions.

# Run only on sturtup.

DestroyFunc InitFunction

AddToFunc InitFunction

# Right offset: 80 from FvwmPager + 2*6 from border = 92.

+ I Exec  exec xclock -digit -update 1 -strftime '%m-%d %T %a' -padding 2 -geometry 130x16-92+0 -face Monospace-9 -bg gray

+ I Exec  exec stalonetray --window-strut none --grow-gravity S --icon-gravity N --geometry 1x16-$((130+92+24))+0 

+ I Exec  exec m4_XTERM_MC(`mc-main1')

+ I Exec  exec m4_XTERM_MC(`mc-main2')

# Run after each restart.

DestroyFunc RestartFunction

AddToFunc RestartFunction

# Run at sturtup and after each restart.

# All fvwm modules exit after restart Fvwm, so you must put they there.

DestroyFunc StartFunction

AddToFunc StartFunction

# + I Module FvwmDebug --xconsole

# + I KillModule FvwmDebug

# + I Module FvwmGtkDebug

# + I Module FvwmConsole

+ I Module FvwmCommandS

+ I Module FvwmPager 0 4

+ I Module FvwmKbdd.pl

# Add next to load desktop image (must be .xpm or .png)

# + I Exec fvwm-root -r ~/tmp/MagicItemComp2_1280x1024.png

################################################################

# Window Styles.

Style * BorderWidth 6, HandleWidth 6

# NoDecorHint, OLDecor, MwmDecor

# MwmDecor remove border from transient windows (like Firefox network log) so you can't resize/close this windows.

Style * NoDecorHint

# MwmBorder, FvwmBorder, DepressableBorder, FirmBorder

Style * MwmBorder

# MwmButtons, FvwmButtons

Style * MwmButtons

# Mwm and Win style menus popup sub menus automatically and never overlap the parent menu.

# Available: Fvwm, Mwm, Win.

MenuStyle * Mwm

DefaultFont m4_MONOFONT

MenuStyle * Font m4_MONOFONT

Style * DecorateTransient

Style * TitleFormat %n «%c:%r»

DestroyDecor MyDecor

AddToDecor   MyDecor

+ TitleStyle LeftJustified Height 16

+ ButtonStyle 1 ActiveUp Vector 4 30x30@3 60x60@3 60x30@4 30x60@3 -- Flat

+ ButtonStyle 1 ActiveDown Vector 4 30x30@1 60x60@1 60x30@4 30x60@1 -- 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@1 60x60@1 60x50@1 30x50@1 30x60@1 -- 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@1 30x60@1 60x60@1 60x30@1 30x30@1 30x35@1 60x35@1 -- Flat

+ ButtonStyle 5 Inactive Vector 7 30x30@3 30x60@3 60x60@3 60x30@3 30x30@3 30x35@3 60x35@3 -- Flat

Style * UseDecor MyDecor

################################################################

# Windows moving and resizing behaviour.

# If during an interactive move the window or icon comes within proximity pixels of

# another the window or icon, it is moved to make the borders adjoin.

Style * SnapAttraction 10 SameType

Style * !Iconifiable

# This disable ResizeOpaque, which cause frequent redrawing of applications.

Style * ResizeOutline

# Default is TileCascadePlacement.

Style * MinOverlapPlacement

# Ignore PPosition hint. Many programs set PPosition to something obnoxious like 0,0 (upper left corner).

Style * !UsePPosition

# Percentage of a page to scroll when the cursor hits the edge of a page.

# With 0 0 I can'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

# Tells how hard it should be to change the desktop viewport by moving the mouse over the

# edge of the screen and how hard it should be to move a window over the edge of the screen.

EdgeResistance 150

Style * EdgeMoveDelay 150

Style * EdgeMoveResistance 150

# Width or height of the invisible window that fvwm creates on the edges of the  screen  that

# are used for the edge scrolling feature.

EdgeThickness 1

################################################################

# Program Styles.

Style *            Icon app/x-32x32.xpm, \

                   MiniIcon app/x-flex-16x16.xpm

Style "XTerm"      Icon app/terminal-16x16.xpm, \

                   MiniIcon app/terminal-16x16.xpm

Style "rxvt"       Icon app/terminal-16x16.xpm, \

                   MiniIcon app/terminal-16x16.xpm

Style "mc-*"       Icon app/mc-16x16.xpm, \

                   MiniIcon app/mc-16x16.xpm

# Define places for autoloaded programs.

# StartsOnPage [desk [x y]]

Style "mc-main1"  StartsOnPage 0 1 0, SkipMapping

Style "mc-main2"  StartsOnPage 0 2 0, SkipMapping

# SkipMapping was not added to emacs to give focus it.

Style "emacs-main"  StartsOnPage 2 0 0

Style "Goldendict"  StartsOnPage 3 1 2, SkipMapping

Style "Iceweasel"  StartsOnPage 1 0 0, SkipMapping

Style "XClock"  !Title, Sticky, StaysOnTop, !Iconifiable, FixedPosition, FixedSize, WindowListSkip, CirculateSkip

# DestroyStyle "stalonetray"

Style "stalonetray" !Button 1, !Button 3, !Button 5

Style "stalonetray" StaysOnTop, Sticky, !Iconifiable

Style "stalonetray" FixedPosition, FixedSize

Style "stalonetray" WindowListSkip, CirculateSkip

Style "stalonetray" TitleFormat TRY

################################################################

# Virtual Desktops.

DesktopSize 3x3

DesktopName 0 Main

DesktopName 1 Net

DesktopName 2 Work

DesktopName 3 Media

DesktopName 4 Games

################################################################

# Focus Behavior.

ClickTime 350

# How many pixels to move in order to distinct click from drag.

MoveThreshold 3

# GrabFocusTransient, ClickToFocusRaises

Style * SloppyFocus, ClickToFocus

Style * !FPClickRaisesFocused, !FPClickRaisesUnfocused

Style * FPClickDecorRaisesFocused, FPClickIconRaisesFocused

Style * FPClickDecorRaisesUnfocused, FPClickIconRaisesUnfocused

# Colormap is the one for the window that currently has the keyboard focus.

ColormapFocus FollowsFocus

DestroyFunc MyFuncFocusWindow

AddToFunc MyFuncFocusWindow

+ I FlipFocus

+ I WarpToWindow 50 50

DestroyModuleConfig FvwmEvent-NewWindow

*FvwmEvent-NewWindow: Cmd

*FvwmEvent-NewWindow: Delay 1

*FvwmEvent-NewWindow: StartDelay 10

*FvwmEvent-NewWindow: add_window MyFuncFocusWindow

DestroyFunc MyFuncStartMaximised

AddToFunc   MyFuncStartMaximised

+ I ThisWindow ("Xpdf", "win") Maximize True

DestroyModuleConfig FvwmEvent-StartMaximised

*FvwmEvent-StartMaximised: Cmd

*FvwmEvent-StartMaximised: add_window MyFuncStartMaximised

AddToFunc StartFunction I Module FvwmEvent

# TODO: have problem with Emacs ediff frame.

# AddToFunc StartFunction I FvwmEvent FvwmEvent-NewWindow

AddToFunc StartFunction I FvwmEvent FvwmEvent-StartMaximised

# Start on screen with pointer.

# Style * StartsOnScreen c

# Fix for broken Java based GUI.

Style "sun-awt-X11-*" MouseFocusClickRaises, Lenience

# Style "com-pb-*" MouseFocusClickRaises, Lenience

################################################################

# Multi-monitor setup.

# Xinerama On

# XineramaPrimaryScreen 0

################################################################

# Screenshot Functions (uses ImageMagick).

m4_define(`m4_SCREENSHOTPATH', `$[HOME]/.screenshot')m4_dnl

m4_changequote(`<--', `-->')m4_dnl

DestroyFunc FvwmWindowScreenshot

AddToFunc   FvwmWindowScreenshot

+ I Exec import -window $[w.id] -quality 100 -silent \

         "m4_SCREENSHOTPATH/$[w.class]-`date +%F[%R]`.png"

# Remember there is 5 seconds pause before screenshot makes!

# For alternative screenshot command with delay you may use:  scrot -d <sec> <file>

DestroyFunc FvwmDesktopScreenshot

AddToFunc   FvwmDesktopScreenshot

+ I Exec import -window root -quality 100 -pause 5 -silent \

         "m4_SCREENSHOTPATH/Desktop-`date +%F-[%H:%M:%S]`.png"

DestroyFunc FvwmScreenshot

AddToFunc   FvwmScreenshot

+ I Exec import -quality 100 -silent \

         "m4_SCREENSHOTPATH/App-`date +%F-[%H:%M:%S]`.png"

m4_changequote`'m4_dnl

################################################################

# Modifier settings.

# L - caps-lock.

# With XFree86 '2' usually is the num-lock modifier and '5' refers to the scroll-lock key.

IgnoreModifiers L25

################################################################

# Mouse binding.

DestroyFunc FvwmDeleteOrDestroy

AddToFunc   FvwmDeleteOrDestroy

+ C Delete

+ D Destroy

DestroyFunc FvwmSmartMaximize

AddToFunc   FvwmSmartMaximize

+ C Maximize 100 100

+ D Maximize grow grow

# Setup title-bar button actions.

Mouse 1 1 A FvwmDeleteOrDestroy

Mouse 1 3 A WindowShade

Mouse 1 5 A FvwmSmartMaximize

Mouse 2 5 A Maximize 100 0

Mouse 3 5 A Maximize 0 100

DestroyFunc FvwmMove

AddToFunc   FvwmMove

+ I Raise

+ M Move

+ D WindowShade

# Move windows by holding left mouse button on window title.

Mouse 1 T A FvwmMove

# Move windows by holding right mouse button on window title, borders or corners.

Mouse 3 FST A FvwmMove

################################################################

# WindowList.

# Used by WindowList to raise selected windows and to pass focus to it.

DestroyFunc WindowListFunc

AddToFunc WindowListFunc

+ I Iconify off

+ I FlipFocus

+ I Raise

# Place mouse pointer in center of window.

+ I WarpToWindow 50 50

# Sort by focus.

Style * FPSortWindowlistByFocus

# Prevent show long title.

m4_define(`m4_WINLIST_CONF',`NoDeskSort, NoGeometryWithInfo, NoDeskNum, NoCurrentDeskTitle, CurrentAtEnd, MaxLabelWidth 80')m4_dnl

# Define switch between aps.

# Key Tab A M WindowList Root c c m4_WINLIST_CONF, SelectOnRelease Meta_L

Key Tab A M WindowList Root c c m4_WINLIST_CONF, SelectOnRelease

################################################################

# Key binding.

# Close window by Alt+F4 (send SIGHUP).

Key F4 A M Delete

Key XF86PowerOff A N Delete

# Close window by LeftWin+F4 (delete window protocol).

DestroyFunc MyClose

AddToFunc MyClose

+ I ThisWindow Close

Key F4 W 3 MyClose

Key F12 A 3 Maximize 100 100

# Make screenshot.

Key Print A N  FvwmScreenshot

Key Print A S  FvwmDesktopScreenshot

Key Scroll_Lock A N Exec  exec xscreensaver-command -activate

# Similar to Vi hjkl:

#

#              F11 - up

# F9  - left              F12 - right

#             F10 - down

DestroyFunc myGotoPageHoriz

AddToFunc myGotoPageHoriz

+ I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"

+ I GotoPage wrapx $0 +0p

+ I Next (CurrentPage) Focus

Key F9  A 3C myGotoPageHoriz -1p

Key F12 A 3C myGotoPageHoriz +1p

# Move across pages up, if there are no more page go to last page of prev desk.

DestroyFunc myGotoPageUp

AddToFunc myGotoPageUp

+ I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"

+ I SetEnv fvwm_page_ny $[page.ny]

+ I Test (EnvMatch fvwm_page_ny 0) Nop

+ I TestRc (Match) GotoDesk -1 0 4

+ I TestRc (Match) GotoPage +0p 2

+ I TestRc (NoMatch) GotoPage +0p -1p

+ I UnSetEnv fvwm_page_ny

+ I Next (CurrentPage) Focus

Key F11 A 3C myGotoPageUp

# Move across pages down, if there are no more pages go to first page of next desk.

DestroyFunc myGotoPageDown

AddToFunc myGotoPageDown

+ I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"

+ I SetEnv fvwm_page_ny $[page.ny]

+ I Test (EnvMatch fvwm_page_ny 2) Nop

+ I TestRc (Match) GotoDesk +1 0 4

+ I TestRc (Match) GotoPage +0p 0

+ I TestRc (NoMatch) GotoPage +0p +1p

+ I UnSetEnv fvwm_page_ny

+ I Next (CurrentPage) Focus

Key F10 A 3C myGotoPageDown

# Move window across pages left.

DestroyFunc myMovePageLeft

AddToFunc myMovePageLeft

+ I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"

+ I Focus

+ I SetEnv fvwm_curr_w $[w.id]

+ I WindowId $[fvwm_curr_w] MoveToPage wrapx -1p +0p

+ I WindowId $[fvwm_curr_w] Focus

+ I UnSetEnv fvwm_curr_w

Key F9 A 3M myMovePageLeft

# Move window across pages right.

DestroyFunc myMovePageRight

AddToFunc myMovePageRight

+ I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"

+ I Focus

+ I SetEnv fvwm_curr_w $[w.id]

+ I WindowId $[fvwm_curr_w] MoveToPage wrapx +1p +0p

+ I WindowId $[fvwm_curr_w] Focus

+ I UnSetEnv fvwm_curr_w

Key F12 A 3M myMovePageRight

# Move window across pages down, if there is no more pages go to first page of next desk.

DestroyFunc myMovePageDown

AddToFunc myMovePageDown

+ I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"

+ I Focus

+ I SetEnv fvwm_curr_w $[w.id]

+ I SetEnv fvwm_page_ny $[page.ny]

+ I Test (EnvMatch fvwm_page_ny 2) WindowId $[fvwm_curr_w] MoveToDesk +1 0 4

+ I Test (EnvMatch fvwm_page_ny 2) WindowId $[fvwm_curr_w] MoveToPage +0p 0

+ I Test (!EnvMatch fvwm_page_ny 2) WindowId $[fvwm_curr_w] MoveToPage +0p +1p

+ I WindowId $[fvwm_curr_w] Focus

+ I UnSetEnv fvwm_page_ny

+ I UnSetEnv fvwm_curr_w

Key F10 A 3M myMovePageDown

# Move window across pages up, if there is no more pages go to last page of the previous desk.

DestroyFunc myMovePageUp

AddToFunc myMovePageUp

+ I Next (CirculateHit, FvwmPager, Shaded) WindowShade "False"

+ I Focus

+ I SetEnv fvwm_curr_w $[w.id]

+ I SetEnv fvwm_page_ny $[page.ny]

+ I Test (EnvMatch fvwm_page_ny 0) WindowId $[fvwm_curr_w] MoveToDesk -1 0 4

+ I Test (EnvMatch fvwm_page_ny 0) WindowId $[fvwm_curr_w] MoveToPage +0p 2

+ I Test (!EnvMatch fvwm_page_ny 0) WindowId $[fvwm_curr_w] MoveToPage +0p -1p

+ I WindowId $[fvwm_curr_w] Focus

+ I UnSetEnv fvwm_page_ny

+ I UnSetEnv fvwm_curr_w

Key F11 A 3M myMovePageUp

Key F9 A S CursorMove -50p +0p

Key F10 A S CursorMove +0p +50p

Key F11 A S CursorMove +0p -50p

Key F12 A S CursorMove +50p +0p

# Switch input method.

Key 1 A 3 SendToModule FvwmKbdd.pl kbdd 0

Key 2 A 3 SendToModule FvwmKbdd.pl kbdd 1