20 files changed, 381 insertions, 0 deletions
diff --git a/components/bindings/Desktop-dakkar b/components/bindings/Desktop-dakkar
new file mode 100644
index 0000000..57836e4
--- /dev/null
+++ b/components/bindings/Desktop-dakkar
@@ -0,0 +1,4 @@
+# Open screen on Alt+RMB
+Mouse 3 RI $[Mod1] Exec exec $[DefaultTerminal] -title local-screen -e screen -D -RR
+
+Key XF86SplitScreen A N Exec emacsclient -nc
diff --git a/components/bindings/Music b/components/bindings/Music
new file mode 100644
index 0000000..02d963d
--- /dev/null
+++ b/components/bindings/Music
@@ -0,0 +1,8 @@
+Key XF86AudioLowerVolume A $[Mod0] Mixer-Volume-Down 5
+Key XF86AudioRaiseVolume A $[Mod0] Mixer-Volume-Up 5
+Key XF86AudioMute A $[Mod0] Mixer-GUI
+Key XF86Eject A $[Mod0] Music-GUI
+
+Key XF86AudioPlay A $[Mod0] Music-PlayPause
+Key XF86AudioNext A $[Mod] Music-Next
+Key XF86AudioPrev A $[Mod] Music-Prev
diff --git a/components/bindings/Numpad-Focus b/components/bindings/Numpad-Focus
new file mode 100644
index 0000000..f09ddd9
--- /dev/null
+++ b/components/bindings/Numpad-Focus
@@ -0,0 +1,13 @@
+# Here are the bindings for focus-switching using the numpad
+# This version only switches the focus
+Key KP_Home             A $[Mod1] Window-FocusInDirection NorthWest
+Key KP_Left             A $[Mod1] Window-FocusInDirection West
+Key KP_End              A $[Mod1] Window-FocusInDirection SouthWest
+Key KP_Up               A $[Mod1] Window-FocusInDirection North
+Key KP_Down             A $[Mod1] Window-FocusInDirection South
+Key KP_Page_Up          A $[Mod1] Window-FocusInDirection NorthEast
+Key KP_Page_Down        A $[Mod1] Window-FocusInDirection SouthEast
+Key KP_Right            A $[Mod1] Window-FocusInDirection East
+Key KP_Begin            A $[Mod1] Window-FocusInDirection Center
+
+# vim:ft=fvwm
diff --git a/components/bindings/PageSwitch-Square b/components/bindings/PageSwitch-Square
new file mode 100644
index 0000000..043a867
--- /dev/null
+++ b/components/bindings/PageSwitch-Square
@@ -0,0 +1,11 @@
+Key Left	 A $[Mod1] GotoPage -1p 0p
+Key Right	 A $[Mod1] GotoPage +1p 0p
+Key Up  	 A $[Mod1] GotoPage 0p -1p
+Key Down	 A $[Mod1] GotoPage 0p +1p
+
+
+Key Left	 A $[Mod2] WarpToPage-Left
+Key Right	 A $[Mod2] WarpToPage-Right
+Key Up  	 A $[Mod2] WarpToPage-Up
+Key Down	 A $[Mod2] WarpToPage-Down
+
diff --git a/components/bindings/Pager-Square b/components/bindings/Pager-Square
new file mode 100644
index 0000000..54943d0
--- /dev/null
+++ b/components/bindings/Pager-Square
@@ -0,0 +1,36 @@
+Key XF86MonBrightnessDown  A M4 GotoPage 0 0
+Key XF86MonBrightnessUp    A M4 GotoPage 1 0
+Key XF86SplitScreen        A M4 GotoPage 2 0
+Key XF86TaskPane           A M4 GotoPage 3 0
+Key F5                     A M4 GotoPage 4 0
+
+Key 1   A M4 GotoPage 0 1
+Key 2   A M4 GotoPage 1 1
+Key 3   A M4 GotoPage 2 1
+Key 4   A M4 GotoPage 3 1
+Key 5   A M4 GotoPage 4 1
+
+Key apostrophe A M4 GotoPage 0 2
+Key comma      A M4 GotoPage 1 2
+Key period     A M4 GotoPage 2 2
+Key P          A M4 GotoPage 3 2
+Key Y          A M4 GotoPage 4 2
+
+Key A   A M4 GotoPage 0 3
+Key O   A M4 GotoPage 1 3
+Key E   A M4 GotoPage 2 3
+Key U   A M4 GotoPage 3 3
+Key I   A M4 GotoPage 4 3
+
+Key semicolon   A M4 GotoPage 0 4
+Key Q   A M4 GotoPage 1 4
+Key J   A M4 GotoPage 2 4
+Key K   A M4 GotoPage 3 4
+Key X   A M4 GotoPage 4 4
+
+# Go to previouse page using Escape
+Key Escape A $[Mod1] GotoPage prev
+
+# Move focused window to the last used page
+Key Escape A $[Mod2] MoveToPage-Focus prev
+
diff --git a/components/bindings/TheLauncher b/components/bindings/TheLauncher
new file mode 100644
index 0000000..ea0f170
--- /dev/null
+++ b/components/bindings/TheLauncher
@@ -0,0 +1,2 @@
+Key section A $[Mod1] Exec exec thelauncher
+Style Thelauncher NoTitle, !Borders, WindowListSkip, CirculateSkip
diff --git a/components/bindings/Window-Basic b/components/bindings/Window-Basic
new file mode 100644
index 0000000..d67845b
--- /dev/null
+++ b/components/bindings/Window-Basic
@@ -0,0 +1,10 @@
+# Basic window bindings
+
+Mouse 1 T       $[Mod] Window-Raise-RaiseMove
+Mouse 2 T       $[Mod] Window-Shade-Resize
+Mouse 3 T       $[Mod] Window-Lower-Move
+
+Mouse 1 WT      $[Mod1] Window-Raise-RaiseMove
+Mouse 2 WT      $[Mod1] Popup /Window-Menu Mouse -50m +5p
+Mouse 3 WT      $[Mod1] Window-Lower-Move
+
diff --git a/components/bindings/Window-Control-Dakkar b/components/bindings/Window-Control-Dakkar
new file mode 100644
index 0000000..3080bfb
--- /dev/null
+++ b/components/bindings/Window-Control-Dakkar
@@ -0,0 +1,9 @@
+Key W           A $[Mod1] Close
+Key M           A $[Mod1] Window-Iconify
+Key KP_Add      A $[Mod1] Raise
+Key KP_Subtract A $[Mod1] Lower
+Key KP_Multiply A $[Mod1] PlaceAgain
+Key KP_Equal    A $[Mod1] Window-Shade toggle
+Key KP_Up       A $[Mod2] Maximize toggle 0 100
+Key KP_Right    A $[Mod2] Maximize toggle 100 0
+Key KP_Begin    A $[Mod2] Maximize toggle 100 100
diff --git a/components/bindings/Window-List b/components/bindings/Window-List
new file mode 100644
index 0000000..9710532
--- /dev/null
+++ b/components/bindings/Window-List
@@ -0,0 +1,11 @@
+# Window list
+
+# Show only windows on current page
+#Key Tab A $[Mod1]	Window-List-Page "root c c"
+# Show windows on all pages
+Key Tab A $[Mod1]	Window-List "root c c"
+
+
+# This menu shows iconified windows
+Key Tab A $[Mod2]	Window-List-Icons "root c c"
+
diff --git a/components/decorations/Buttons-os2-MiniIcon b/components/decorations/Buttons-os2-MiniIcon
new file mode 100644
index 0000000..798fe66
--- /dev/null
+++ b/components/decorations/Buttons-os2-MiniIcon
@@ -0,0 +1,45 @@
+# OS/2 Button Setup
+# Written by Maciej Delmanowski <harnir@post.pl>
+#
+# This is the window titlebar button setup similar to the OS/2
+# buttons on the titlebar
+
+# 1st button - close
+Mouse 1 1 $[Mod]	Window-Button-Function Button1 /Window-Menu Close
+Mouse 2 1 $[Mod]	Window-Button-Function Button1 /Window-Menu Nop
+Mouse 3 1 $[Mod]	Window-Button-Function Button1 /Window-Menu Window-Iconify
+Style * Button 1
+
+# 2nd button - various ways to maximize a window
+Mouse 1 2 $[Mod0]	Window-Button-Function Button2 /Window-Menu-Maximize Maximize 
+Mouse 2 2 $[Mod0]	Window-Button-Function Button2 /Window-Menu-Maximize Maximize 100 0
+Mouse 3 2 $[Mod0]	Window-Button-Function Button2 /Window-Menu-Maximize Maximize 0 100
+Mouse 1 2 $[Mod1]	Window-Button-Function Button2 /Window-Menu-Maximize Maximize grow grow
+Mouse 2 2 $[Mod1]	Window-Button-Function Button2 /Window-Menu-Maximize Maximize grow 0
+Mouse 3 2 $[Mod1]	Window-Button-Function Button2 /Window-Menu-Maximize Maximize 0 grow
+Style * Button 2
+
+# MiniIcon
+Mouse 1 3       $[Mod] Window-Raise-MoveRaise
+Mouse 2 3       $[Mod] Window-Shade-Resize
+Mouse 3 3       $[Mod] Window-Lower-Move
+Style * Button 3
+
+# 4th button - iconify
+Mouse 1 4 $[Mod]	Window-Button-Function Button4 /Window-Menu Window-Iconify
+Mouse 2 4 $[Mod]	Window-Button-Function Button4 /Window-Menu Nop
+Mouse 3 4 $[Mod]	Window-Button-Function Button4 /Window-Menu Nop
+Style * Button 4
+
+Style * NoButton 5
+
+Style * NoButton 6
+
+Style * NoButton 7
+
+Style * NoButton 8
+
+Style * NoButton 9
+
+Style * NoButton 0
+
diff --git a/components/desktop/Keyboard b/components/desktop/Keyboard
new file mode 100644
index 0000000..84bd7d9
--- /dev/null
+++ b/components/desktop/Keyboard
@@ -0,0 +1,17 @@
+# Standard keyboard layout
+# You need several functions to use all of the keybindings
+
+Include components/bindings/Music
+Include components/bindings/Pager-Square
+Include components/bindings/PageSwitch-Square
+#Include components/bindings/Window-Control
+Include components/bindings/Window-List
+#Include components/bindings/Window-Rearrange
+Include components/bindings/Misc-Keybindings
+Include components/bindings/Window-Control-Dakkar
+Include components/bindings/Numpad-Focus
+Include components/bindings/TheLauncher
+
+Key apostrophe A $[Mod1] Menu /Applications root c c
+Key quotedbl A $[Mod1] Menu /FVWM-Crystal root c c
+
diff --git a/components/desktop/dakkar_Preferences b/components/desktop/dakkar_Preferences
new file mode 100644
index 0000000..b2d6254
--- /dev/null
+++ b/components/desktop/dakkar_Preferences
@@ -0,0 +1,6 @@
+AddToMenu /Preferences/Mixer
+Test (x amixer)         + '%22x22/apps/alsamixer.png%ALSA' SelectMixer amixer
+
+AddToMenu /Preferences/MusicPlayer
+Test (x amarok)         + '%22x22/apps/amarok.png%AmaroK' SelectMusicPlayer amarok
+
diff --git a/components/functions/Mixer-amixer b/components/functions/Mixer-amixer
new file mode 100644
index 0000000..2f2d705
--- /dev/null
+++ b/components/functions/Mixer-amixer
@@ -0,0 +1,25 @@
+DestroyFunc Mixer-Volume
+AddToFunc Mixer-Volume
++ I Exec amixer set PCM "$0"'%' > /dev/null
+
+DestroyFunc Mixer-Volume-Up
+AddToFunc Mixer-Volume-Up
++ I Exec amixer set PCM "$0"'%+' > /dev/null
+
+DestroyFunc Mixer-Volume-Down
+AddToFunc Mixer-Volume-Down
++ I Exec amixer set PCM "$0"'%-' > /dev/null
+
+DestroyFunc Mixer-GUI
+AddToFunc Mixer-GUI
++ I Exec exec gamix > /dev/null
+
+# Mixer menu
+DestroyMenu /Mixer
+AddToMenu /Mixer
++ "100%%" Mixer-Volume 100
++ "90%%" Mixer-Volume 90
++ "80%%" Mixer-Volume 80
++ "50%%" Mixer-Volume 50
++ "30%%" Mixer-Volume 30
++ "0%%" Mixer-Volume 0
diff --git a/components/functions/Music-amarok b/components/functions/Music-amarok
new file mode 100644
index 0000000..8a5ab35
--- /dev/null
+++ b/components/functions/Music-amarok
@@ -0,0 +1,49 @@
+DestroyMenu /Music
+AddToMenu /Music
++ DynamicPopupAction Function /Music-generator
+
+DestroyFunc /Music-generator
+AddToFunc /Music-generator
++ I DestroyMenu recreate /Music
++ I AddToMenu /Music '$[gt.Toggle random]'	Music-ToggleRandom
++ I AddToMenu /Music '$[gt.Toggle repeat]'	Music-ToggleRepeat
++ I AddToMenu /Music "" Nop
++ I AddToMenu /Music '$[gt.Stop playback]'	Music-Stop
++ I AddToMenu /Music '$[gt.Show/hide player]'	Music-GUI
++ I AddToMenu /Music '$[gt.Play/Pause]'		Music-PlayPause
+
+DestroyFunc Music-Play
+AddToFunc Music-Play
++ I Exec exec dcop amarok player play 2>/dev/null
+
+DestroyFunc Music-Pause
+AddToFunc Music-Pause
++ I Exec exec dcop amarok player pause 2>/dev/null
+
+DestroyFunc Music-Stop
+AddToFunc Music-Stop
++ I Exec exec dcop amarok player stop 2>/dev/null
+
+DestroyFunc Music-PlayPause
+AddToFunc Music-PlayPause
++ I Exec exec dcop amarok player playPause 2>/dev/null
+
+DestroyFunc Music-Next
+AddToFunc Music-Next
++ I Exec exec dcop amarok player next 2>/dev/null
+
+DestroyFunc Music-Prev
+AddToFunc Music-Prev
++ I Exec exec dcop amarok player prev 2>/dev/null
+
+DestroyFunc Music-ToggleRandom
+AddToFunc Music-ToggleRandom
++ I Exec exec dcop amarok player enableRandomMode $( if [ $(dcop amarok player randomModeStatus) == false ]; then echo true; else echo false;fi) 2>/dev/null
+
+DestroyFunc Music-ToggleRepeat
+AddToFunc Music-ToggleRepeat
++ I Exec exec dcop amarok player enableRepeatPlaylist $( if [ $(dcop amarok player repeatPlaylistStatus) == false ]; then echo true; else echo false;fi) 2>/dev/null
+
+DestroyFunc Music-GUI
+AddToFunc Music-GUI
++ I Exec dcop amarok playlist togglePlaylist 2>/dev/null || amarok
diff --git a/components/functions/Notify b/components/functions/Notify
new file mode 100644
index 0000000..f0c2a55
--- /dev/null
+++ b/components/functions/Notify
@@ -0,0 +1,12 @@
+AddToFunc StartFunction
++ I ModuleSynchronous FvwmPerl NotifyPerl
++ I SendToModule NotifyPerl load FvwmNotify.pm
+
+DestroyFunc BubbleNotify
+AddToFunc BubbleNotify
++ I SendToModule NotifyPerl eval FvwmNotify::notify(q{$0},q{$1},q{$2},q{$3},q{$4})
+
+DestroyFunc UrgencyFunc
+AddtoFunc UrgencyFunc
++ I BubbleNotify $[w.name] $[w.name] 'beep!' 2000 $[w.iconfile]
+
diff --git a/components/functions/Numpad b/components/functions/Numpad
new file mode 100644
index 0000000..b694ee3
--- /dev/null
+++ b/components/functions/Numpad
@@ -0,0 +1,57 @@
+# Numpad
+
+# ---------------------------------------------------------------------------
+# Focus functions
+DestroyFunc Window-FocusInDirection
+AddToFunc Window-FocusInDirection
++ I Direction $0 (CurrentPage, AnyScreen, AcceptsFocus, !Iconic) Focus
+
+DestroyFunc Window-FocusAndRaiseInDirection
+AddToFunc Window-FocusAndRaiseInDirection
++ I Direction $0 (CurrentPage, AnyScreen, AcceptsFocus, !Iconic) Focus
++ I Current (Focused) Raise
+
+# ---------------------------------------------------------------------------
+# Move functions
+DestroyFunc Window-MPAnimatedMove
+AddToFunc Window-MPAnimatedMove
++ I Current (HasPointer) AnimatedMove $0 $1 Warp
++ I TestRc (NoMatch) AnimatedMove $0 $1
+
+DestroyFunc Window-Warp-CenterCenter
+AddToFunc Window-Warp-CenterCenter
++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] / 2 - $[w.height] / 2`p'
+
+DestroyFunc Window-Warp-LeftCenter
+AddToFunc Window-Warp-LeftCenter
++ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH_BS_Panel_Left]p `expr $[vp.height] / 2 - $[w.height] / 2`p'
+
+DestroyFunc Window-Warp-LeftTop
+AddToFunc Window-Warp-LeftTop
++ I Current Window-MPAnimatedMove $[EWMH_BS_Panel_Left]p $[EWMH_BS_Panel_Top]p
+
+DestroyFunc Window-Warp-CenterTop
+AddToFunc Window-Warp-CenterTop
++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p $[EWMH_BS_Panel_Top]p'
+
+DestroyFunc Window-Warp-RightTop
+AddToFunc Window-Warp-RightTop
++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH_BS_Panel_Right] - $[w.width]`p $[EWMH_BS_Panel_Top]p'
+
+DestroyFunc Window-Warp-RightCenter
+AddToFunc Window-Warp-RightCenter
++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH_BS_Panel_Right] - $[w.width]`p `expr $[vp.height] / 2 - $[w.height] / 2`p'
+
+DestroyFunc Window-Warp-CenterBottom
+AddToFunc Window-Warp-CenterBottom
++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] - $[EWMH_BS_Panel_Bottom] - $[w.height]`p'
+
+DestroyFunc Window-Warp-LeftBottom
+AddToFunc Window-Warp-LeftBottom
++ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH_BS_Panel_Left]p `expr $[vp.height] - $[EWMH_BS_Panel_Bottom] - $[w.height]`p'
+
+DestroyFunc Window-Warp-RightBottom
+AddToFunc Window-Warp-RightBottom
++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH_BS_Panel_Right] - $[w.width]`p `expr $[vp.height] - $[EWMH_BS_Panel_Bottom] - $[w.height]`p'
+
+# vim:ft=fvwm
diff --git a/components/functions/Screen-Menu b/components/functions/Screen-Menu
new file mode 100644
index 0000000..e32dc39
--- /dev/null
+++ b/components/functions/Screen-Menu
@@ -0,0 +1,11 @@
+DestroyMenu /Screens
+AddToMenu /Screens
++ DynamicPopupAction Function BuildScreensMenu
+
+DestroyFunc BuildScreensMenu
+AddToFunc BuildScreensMenu
++ I DestroyMenu recreate /Screens
++ I AddToMenu /Screens
++ I PipeRead $[FVWM_USERDIR]/scripts/fvwm-screen.pl
+
+Mouse 3 RI $[Mod1] Popup /Screens
diff --git a/components/scripts/FvwmScript-Clock-dakkar b/components/scripts/FvwmScript-Clock-dakkar
new file mode 100755
index 0000000..a298848
--- /dev/null
+++ b/components/scripts/FvwmScript-Clock-dakkar
@@ -0,0 +1,38 @@
+WindowTitle {FvwmScript-Clock}
+WindowSize  165 20
+Font		"xft:Tahoma:pixelsize=12:Bold"
+Colorset 1
+
+Init
+ Begin
+
+  Set $tmp = (GetOutput {exec date "+%Y-%m-%d %a %H:%M"} 1 -1)
+
+  ChangeTitle 1 $tmp
+End
+
+PeriodicTasks
+ Begin 
+  If (RemainderOfDiv (GetTime) 60)==0 Then
+  Begin
+
+    Set $tmp = (GetOutput {exec date "+%Y-%m-%d %a %H:%M"} 1 -1)
+
+    ChangeTitle  1 $tmp
+  End
+End
+
+Widget 1
+Property
+ Position 0 -3
+ Size 165 20
+ Type ItemDraw
+ Flags NoReliefString
+ Title {}
+ Colorset 1
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
diff --git a/components/styles/Application-Icons-22-32 b/components/styles/Application-Icons-22-32
new file mode 100644
index 0000000..8fc04c5
--- /dev/null
+++ b/components/styles/Application-Icons-22-32
@@ -0,0 +1,2 @@
+Style xchat-2             MiniIcon 22x22/apps/xchat.png, Icon 32x32/apps/xchat.png
+Style skype.bin           MiniIcon 22x22/apps/skype.png, Icon 32x32/apps/skype.png
diff --git a/components/styles/Applications b/components/styles/Applications
new file mode 100644
index 0000000..9e0136e
--- /dev/null
+++ b/components/styles/Applications
@@ -0,0 +1,15 @@
+Style xpad NoTitle, !Borders
+
+Style xine NoTitle, !Borders
+Style "xine Video Window" Title, Borders
+Style Xitk NoTitle, !Borders
+
+Style mwatch NoTitle, NoHandles, WindowListSkip, BorderWidth 0, \
+             CirculateSkip, StaysOnBottom, \
+             Sticky, StickyAcrossPages, StickyAcrossDesks, FixedPosition
+
+Style Firefox MiniIcon $[FVWM_USERDIR]/icons/$[Icon_Theme]/22x22/apps/firefox.png
+Style Claws-mail MiniIcon $[FVWM_USERDIR]/icons/$[Icon_Theme]/22x22/apps/claws-mail.png
+Style Pidgin MiniIcon $[FVWM_USERDIR]/icons/$[Icon_Theme]/22x22/apps/pidgin.png
+
+