[xmonad] [PATCH 2/2] XMonadContrib: set the default cursor to left_ptr for the Desktop config

[Andres Salomon]

From 6d992ed0bb46df6956119aa65da87f02ea6c5e37 Mon Sep 17 00:00:00 2001
From: Andres Salomon <dilinger at 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 at 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