mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
Remove H.SetCursor: U.Cursor is preferred
This commit is contained in:
parent
37a0dba16e
commit
4abbb620a4
@ -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
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user