From 76c40e5820eb2846bf37098e81b7c55e8c014042 Mon Sep 17 00:00:00 2001 From: Andres Salomon Date: Tue, 15 Sep 2009 18:57:53 +0200 Subject: XMonadContrib: set the default cursor to left_ptr for the Desktop config Ignore-this: a4f7417c8a4190a0cabdadbd359e217 darcs-hash:20090915165753-40516-96e1153264d254d0f4ef3b839057a80db61b5af7.gz --- XMonad/Config/Desktop.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'XMonad/Config') diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs index d5bd47d..2831913 100644 --- a/XMonad/Config/Desktop.hs +++ b/XMonad/Config/Desktop.hs @@ -22,6 +22,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 @@ -29,6 +30,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 } -- cgit v1.2.3