From 67d02962648cf2a0dcacada3130d5075e40ecd6e Mon Sep 17 00:00:00 2001 From: Adam Vogt 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 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 XMonad/Hooks/SetCursor.hs (limited to 'XMonad') 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 --- 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