Add XMonad.Config.Desktop and XMonad.Config.Gnome

darcs-hash:20080430082253-a5988-66822252a13bee869034da162f4a127ae06f9992.gz

1 files changed, 33 insertions, 0 deletions

diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs
new file mode 100644
index 0000000..d004dbe
--- /dev/null
+++ b/XMonad/Config/Desktop.hs
@@ -0,0 +1,33 @@
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
+
+-----------------------------------------------------------------------------
+-- |
+-- Module       : XMonad.Config.Desktop
+-- Copyright    : (c) Spencer Janssen <sjanssen@cse.unl.edu>
+-- License      : BSD
+--
+-- Maintainer   : Spencer Janssen <sjanssen@cse.unl.edu>
+--
+-- This module provides a config suitable for use with a desktop
+-- environment such as KDE or GNOME.
+
+module XMonad.Config.Desktop (
+    -- * Usage
+    -- -- $usage
+    desktopConfig,
+    desktopLayoutModifiers
+    ) where
+
+import XMonad
+import XMonad.Config (defaultConfig)
+import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.EwmhDesktops
+
+desktopConfig = defaultConfig
+                { logHook    = ewmhDesktopsLogHook
+                , layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig
+                , manageHook = manageHook defaultConfig <+> manageDocks
+                }
+
+desktopLayoutModifiers = avoidStruts . ewmhDesktopsLayout
+