Remove H.SetCursor: U.Cursor is preferred

This commit is contained in:
Adam Vogt 2009-10-19 23:57:22 +00:00
parent 37a0dba16e
commit 4abbb620a4
2 changed files with 0 additions and 48 deletions

View File

@ -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

View File

@ -127,7 +127,6 @@ library
XMonad.Hooks.Place XMonad.Hooks.Place
XMonad.Hooks.RestoreMinimized XMonad.Hooks.RestoreMinimized
XMonad.Hooks.Script XMonad.Hooks.Script
XMonad.Hooks.SetCursor
XMonad.Hooks.SetWMName XMonad.Hooks.SetWMName
XMonad.Hooks.ServerMode XMonad.Hooks.ServerMode
XMonad.Hooks.UrgencyHook XMonad.Hooks.UrgencyHook