From 7e1fd1be4277b90595df3ded8d80253ecd6171ec Mon Sep 17 00:00:00 2001
From: "Ivan.Miljenovic" <Ivan.Miljenovic@gmail.com>
Date: Thu, 22 May 2008 12:53:16 +0200
Subject: Default Xfce config, this time with me holding the copyright,
 maintainership, etc.

darcs-hash:20080522105316-97e08-bd25bd2e69cbd1070a3afb5ca344dc3ef997b3ef.gz
---
 XMonad/Config/Xfce.hs | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 XMonad/Config/Xfce.hs

(limited to 'XMonad/Config/Xfce.hs')

diff --git a/XMonad/Config/Xfce.hs b/XMonad/Config/Xfce.hs
new file mode 100644
index 0000000..7e4a239
--- /dev/null
+++ b/XMonad/Config/Xfce.hs
@@ -0,0 +1,42 @@
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
+
+-----------------------------------------------------------------------------
+-- |
+-- Module       : XMonad.Config.Xfce
+-- Copyright    : (c) Ivan Miljenovic <Ivan.Miljenovic@gmail.com>
+-- License      : BSD
+--
+-- Maintainer   : Ivan Miljenovic <Ivan.Miljenovic@gmail.com>
+--
+-- This module provides a config suitable for use with the Xfce desktop
+-- environment.
+
+module XMonad.Config.Xfce (
+    -- * Usage
+    -- -- $usage
+    xfceConfig
+    ) where
+
+import XMonad
+import XMonad.Config.Desktop
+
+import qualified Data.Map as M
+
+-- $usage
+-- To use this module, start with the following @~\/.xmonad\/xmonad.hs@:
+--
+-- > import XMonad
+-- > import XMonad.Config.Xfce
+-- >
+-- > main = xmonad xfceConfig
+-- 
+
+xfceConfig = desktopConfig
+    { terminal = "Terminal"
+    , keys     = \c -> xfceKeys c `M.union` keys desktopConfig c }
+
+xfceKeys (XConfig {modMask = modm}) = M.fromList $
+    [ ((modm,               xK_p), spawn "xfrun4")
+    , ((modm .|. shiftMask, xK_p), spawn "xfce4-appfinder")
+    , ((modm .|. shiftMask, xK_q), spawn "xfce4-session-logout")
+    ]
-- 
cgit v1.2.3