From ce8dc62233514e70c5e4785574df9d07a5d2739b Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 30 Apr 2008 10:22:53 +0200 Subject: Add XMonad.Config.Desktop and XMonad.Config.Gnome darcs-hash:20080430082253-a5988-66822252a13bee869034da162f4a127ae06f9992.gz --- XMonad/Config/Desktop.hs | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 XMonad/Config/Desktop.hs (limited to 'XMonad/Config/Desktop.hs') 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 +-- License : BSD +-- +-- Maintainer : Spencer Janssen +-- +-- 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 + -- cgit v1.2.3