diff options
| -rw-r--r-- | XMonad/Hooks/SetCursor.hs | 47 | ||||
| -rw-r--r-- | xmonad-contrib.cabal | 1 |
2 files changed, 0 insertions, 48 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 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 |