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

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

2 files changed, 65 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
+
diff --git a/XMonad/Config/Gnome.hs b/XMonad/Config/Gnome.hs
new file mode 100644
index 0000000..5aa2f3e
--- /dev/null
+++ b/XMonad/Config/Gnome.hs
@@ -0,0 +1,32 @@
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
+
+-----------------------------------------------------------------------------
+-- |
+-- Module       : XMonad.Config.Gnome
+-- 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 the GNOME desktop
+-- environment.
+
+module XMonad.Config.Gnome (
+    -- * Usage
+    -- -- $usage
+    gnomeConfig
+    ) where
+
+import XMonad
+import XMonad.Config.Desktop
+
+-- $usage
+-- To use this module, start with the following @~\/.xmonad\/xmonad.hs@:
+--
+-- > import XMonad
+-- > import XMonad.Config.Gnome
+-- >
+-- > main = xmonad gnomeConfig
+-- 
+
+gnomeConfig = desktopConfig { terminal = "gnome-terminal" }