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