From 6d992ed0bb46df6956119aa65da87f02ea6c5e37 Mon Sep 17 00:00:00 2001 From: Andres Salomon <dilinger@collabora.co.uk> Date: Tue, 15 Sep 2009 02:05:46 -0400 Subject: [PATCH 2/2] XMonadContrib: set the default cursor to left_ptr for the Desktop config Set the default pointer for desktop configs to inherit. Signed-off-by: Andres Salomon <dilinger@collabora.co.uk> --- XMonad/Config/Desktop.hs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs index 1959aa8..0e091d6 100644 --- a/XMonad/Config/Desktop.hs +++ b/XMonad/Config/Desktop.hs @@ -20,6 +20,7 @@ import XMonad import XMonad.Config (defaultConfig) import XMonad.Hooks.ManageDocks import XMonad.Hooks.EwmhDesktops +import XMonad.Util.Cursor import qualified Data.Map as M @@ -27,6 +28,7 @@ desktopConfig = defaultConfig { logHook = ewmhDesktopsLogHook , layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig , manageHook = manageHook defaultConfig <+> manageDocks + , startupHook = setDefaultCursor xc_left_ptr , handleEventHook = ewmhDesktopsEventHook , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } -- 1.6.3.3