From a343d09be11a512c48611b2abbb9d270ff71e75e Mon Sep 17 00:00:00 2001 From: mail 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 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 XMonad/Hooks/SetCursor.hs (limited to 'XMonad') 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 +-- 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 -- cgit v1.2.3