From 67d02962648cf2a0dcacada3130d5075e40ecd6e Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Tue, 20 Oct 2009 01:57:22 +0200
Subject: Remove H.SetCursor: U.Cursor is preferred

Ignore-this: 5796fe86879c2ce02ef12150e0a8603a

darcs-hash:20091019235722-1499c-bc320e621daf6860c26989a841c0eaadcbabe5be.gz
---
 XMonad/Hooks/SetCursor.hs | 47 -----------------------------------------------
 xmonad-contrib.cabal      |  1 -
 2 files changed, 48 deletions(-)
 delete mode 100644 XMonad/Hooks/SetCursor.hs

diff --git a/XMonad/Hooks/SetCursor.hs b/XMonad/Hooks/SetCursor.hs
deleted file mode 100644
index 047d582..0000000
--- a/XMonad/Hooks/SetCursor.hs
+++ /dev/null
@@ -1,47 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  XMonad.Hooks.SetCursor
--- Copyright   :  (c) 2009 Nils Schweinsberg
--- License     :  BSD3-style (see LICENSE)
---
--- Maintainer  :  Nils Schweinsberg <mail@n-sch.de>
--- Stability   :  unstable
--- Portability :  unportable
---
--- Set a default cursor on startup.
---
--- Thanks to Andres Salomon for his initial idea for this startup hook.
---
------------------------------------------------------------------------------
-
-module XMonad.Hooks.SetCursor (
-    -- * Usage
-    -- $usage
-      setDefaultCursor
-    ) where
-
-import XMonad
-
-{- $usage
-
-To use this startup hook add a line to your startup hook:
-
-> myStartupHook = do
->     setDefaultCursor 68
->     -- more stuff
-
-Where @68@ is the default left pointer.
-
--}
-
--- | Set the default (root) cursor
-setDefaultCursor :: Glyph -- ^ the cursor to use
-    -> X ()
-setDefaultCursor glyph = do
-    dpy   <- asks display
-    rootw <- asks theRoot
-    liftIO $ do
-        curs <- createFontCursor dpy glyph
-        defineCursor dpy rootw curs
-        flush dpy
-        freeCursor dpy curs
diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal
index aac6145..b1d290b 100644
--- a/xmonad-contrib.cabal
+++ b/xmonad-contrib.cabal
@@ -127,7 +127,6 @@ library
                         XMonad.Hooks.Place
                         XMonad.Hooks.RestoreMinimized
                         XMonad.Hooks.Script
-                        XMonad.Hooks.SetCursor
                         XMonad.Hooks.SetWMName
                         XMonad.Hooks.ServerMode
                         XMonad.Hooks.UrgencyHook
-- 
cgit v1.2.3