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.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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user