From a343d09be11a512c48611b2abbb9d270ff71e75e Mon Sep 17 00:00:00 2001
From: mail <mail@n-sch.de>
Date: Tue, 15 Sep 2009 12:13:27 +0200
Subject: New module : X.H.SetCursor

Ignore-this: 2f0641155ada05dae955cd6941d52b70
Idea from Andres Salomon
(http://www.haskell.org/pipermail/xmonad/2009-September/008553.html).

darcs-hash:20090915101327-e34a6-113517da012281d809388a260dd7ab5ca6e2078d.gz
---
 XMonad/Hooks/SetCursor.hs | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 xmonad-contrib.cabal      |  1 +
 2 files changed, 48 insertions(+)
 create mode 100644 XMonad/Hooks/SetCursor.hs

diff --git a/XMonad/Hooks/SetCursor.hs b/XMonad/Hooks/SetCursor.hs
new file mode 100644
index 0000000..047d582
--- /dev/null
+++ b/XMonad/Hooks/SetCursor.hs
@@ -0,0 +1,47 @@
+-----------------------------------------------------------------------------
+-- |
+-- 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 3c24172..cebc348 100644
--- a/xmonad-contrib.cabal
+++ b/xmonad-contrib.cabal
@@ -127,6 +127,7 @@ 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