diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2009-10-20 01:57:22 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2009-10-20 01:57:22 +0200 |
commit | 67d02962648cf2a0dcacada3130d5075e40ecd6e (patch) | |
tree | 51e293fb1b3e680c2b886b2bbf09b7eec185b25e /XMonad/Hooks/SetCursor.hs | |
parent | c2154ab3724806dc9b2ae16d3ef71d61b97a5e05 (diff) | |
download | XMonadContrib-67d02962648cf2a0dcacada3130d5075e40ecd6e.tar.gz XMonadContrib-67d02962648cf2a0dcacada3130d5075e40ecd6e.tar.xz XMonadContrib-67d02962648cf2a0dcacada3130d5075e40ecd6e.zip |
Remove H.SetCursor: U.Cursor is preferred
Ignore-this: 5796fe86879c2ce02ef12150e0a8603a
darcs-hash:20091019235722-1499c-bc320e621daf6860c26989a841c0eaadcbabe5be.gz
Diffstat (limited to 'XMonad/Hooks/SetCursor.hs')
-rw-r--r-- | XMonad/Hooks/SetCursor.hs | 47 |
1 files changed, 0 insertions, 47 deletions
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 |