Prune more imports

XMonad/Actions/ConstrainedResize.hs

@@ -23,8 +23,6 @@ module XMonad.Actions.ConstrainedResize (
 
 import XMonad
 import XMonad.Operations
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 
 -- $usage
 --

XMonad/Actions/DeManage.hs

@@ -36,7 +36,6 @@ module XMonad.Actions.DeManage (
 import qualified XMonad.StackSet as W
 import XMonad
 import XMonad.Operations
-import Graphics.X11 (Window)
 
 -- $usage
 -- To use demanage, add this import to your @~\/.xmonad\/xmonad.hs@:

XMonad/Actions/FlexibleManipulate.hs

@@ -24,8 +24,6 @@ module XMonad.Actions.FlexibleManipulate (
 
 import XMonad
 import XMonad.Operations
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 
 -- $usage
 -- First, add this import to your @~\/.xmonad\/xmonad.hs@:

XMonad/Actions/FlexibleResize.hs

@@ -20,8 +20,6 @@ module XMonad.Actions.FlexibleResize (
 
 import XMonad
 import XMonad.Operations
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 import Foreign.C.Types
 
 -- $usage

XMonad/Actions/FloatKeys.hs

@@ -21,8 +21,6 @@ module XMonad.Actions.FloatKeys (
 
 import XMonad.Operations
 import XMonad
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:

XMonad/Actions/MouseGestures.hs

@@ -21,8 +21,6 @@ module XMonad.Actions.MouseGestures (
 
 import XMonad
 import XMonad.Operations
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 
 import Data.IORef
 import qualified Data.Map as M

XMonad/Actions/SinkAll.hs

@@ -15,10 +15,9 @@ module XMonad.Actions.SinkAll (
     sinkAll) where
 
 import XMonad.Operations
-import XMonad.Core
+import XMonad
 import XMonad.StackSet
 
-import Graphics.X11.Xlib
 -- $usage
 --
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:

XMonad/Actions/Submap.hs

@@ -20,8 +20,6 @@ module XMonad.Actions.Submap (
 
 import XMonad hiding (keys)
 import XMonad.Operations (cleanMask)
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 import qualified Data.Map as M
 import Control.Monad.Fix (fix)
 

XMonad/Config/Droundy.hs

@@ -18,10 +18,8 @@ import XMonad.Config ( defaultConfig )
 import XMonad.Layouts hiding ( (|||) )
 import XMonad.Operations
 import qualified XMonad.StackSet as W
-import Data.Bits ((.|.))
 import qualified Data.Map as M
 import System.Exit
-import Graphics.X11.Xlib
 
 -- % Extension-provided imports
 

XMonad/Config/Sjanssen.hs

@@ -15,9 +15,7 @@ import XMonad.Prompt
 import XMonad.Prompt.Shell
 import XMonad.Util.Run (spawnPipe)
 
-import Data.Bits
 import qualified Data.Map as M
-import Graphics.X11
 import System.IO (hPutStrLn)
 
 sjanssenConfig = do

XMonad/Hooks/EwmhDesktops.hs

@@ -24,8 +24,6 @@ import Data.Maybe   (fromMaybe)
 import XMonad
 import Control.Monad
 import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 
 import XMonad.Hooks.SetWMName
 

XMonad/Hooks/ManageDocks.hs

@@ -48,8 +48,6 @@ module XMonad.Hooks.ManageDocks (
 import XMonad
 import XMonad.Operations
 import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 import Foreign.C.Types (CLong)
 import Data.Maybe (catMaybes)
 

XMonad/Hooks/SetWMName.hs

@@ -44,9 +44,6 @@ import Foreign.C.Types (CChar)
 import Foreign.Marshal.Alloc (alloca)
 
 import XMonad
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Atom
-import Graphics.X11.Xlib.Extras
 
 -- | sets WM name
 setWMName :: String -> X ()

XMonad/Hooks/UrgencyHook.hs

@@ -44,8 +44,6 @@ import Data.List ((\\), delete)
 import Data.Maybe (listToMaybe)
 import qualified Data.Set as S
 import Foreign (unsafePerformIO)
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 
 -- $usage
 -- To wire this up, first add:

XMonad/Layout/Accordion.hs

@@ -22,7 +22,6 @@ module XMonad.Layout.Accordion (
 import XMonad
 import XMonad.Layouts
 import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
 import Data.Ratio
 
 -- $usage

XMonad/Layout/Dishes.hs

@@ -26,7 +26,6 @@ import XMonad
 import XMonad.Layouts
 import XMonad.StackSet (integrate)
 import Control.Monad (ap)
-import Graphics.X11.Xlib
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:

XMonad/Layout/DragPane.hs

@@ -29,7 +29,6 @@ module XMonad.Layout.DragPane (
                               ) where
 
 import XMonad
-import Data.Bits
 import Data.Unique
 
 import XMonad.Layouts

XMonad/Layout/Grid.hs

@@ -22,7 +22,6 @@ module XMonad.Layout.Grid (
 
 import XMonad
 import XMonad.StackSet
-import Graphics.X11.Xlib.Types
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:

XMonad/Layout/HintedTile.hs

@@ -24,8 +24,6 @@ import XMonad
 import XMonad.Layouts    (Resize(..), IncMasterN(..))
 import XMonad.Operations (applySizeHints, D)
 import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
-import Graphics.X11.Xlib.Extras
 import Control.Applicative ((<$>))
 import Control.Monad
 

XMonad/Layout/MosaicAlt.hs

@@ -30,12 +30,10 @@ module XMonad.Layout.MosaicAlt (
 
 import XMonad
 import XMonad.Layouts
-import Graphics.X11.Xlib
 import qualified XMonad.StackSet as W
 import qualified Data.Map as M
 import Data.List ( sortBy )
 import Data.Ratio
-import Graphics.X11.Types ( Window )
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:

XMonad/Layout/ResizableTile.hs

@@ -24,7 +24,6 @@ module XMonad.Layout.ResizableTile (
 import XMonad
 import XMonad.Layouts (Resize(..), IncMasterN(..))
 import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
 import Control.Monad
 
 -- $usage

XMonad/Layout/Roledex.hs

@@ -23,7 +23,6 @@ module XMonad.Layout.Roledex (
 import XMonad
 import XMonad.Layouts
 import qualified XMonad.StackSet as W
-import Graphics.X11.Xlib
 import Data.Ratio
 
 -- $usage

XMonad/Layout/Square.hs

@@ -25,7 +25,6 @@ module XMonad.Layout.Square (
                              Square(..) ) where
 
 import XMonad
-import Graphics.X11.Xlib
 import XMonad.StackSet ( integrate )
 
 -- $usage

XMonad/Prompt.hs

@@ -51,7 +51,6 @@ import Control.Arrow ((&&&))
 import Control.Monad.Reader
 import Control.Monad.State
 import Control.Applicative ((<$>))
-import Data.Bits
 import Data.Char
 import Data.Maybe
 import Data.List

XMonad/Util/CustomKeys.hs

@@ -20,7 +20,6 @@ module XMonad.Util.CustomKeys (
 
 import XMonad
 import Control.Monad.Reader
-import Graphics.X11.Xlib
 
 import qualified Data.Map as M
 
@@ -51,7 +50,6 @@ import qualified Data.Map as M
 --   entirely. No need to import "CustomKeys" this time:
 --
 -- > import XMonad
--- > import Graphics.X11.Xlib
 -- > import System.Exit
 -- > import qualified Data.Map as M
 -- >

XMonad/Util/EZConfig.hs

@@ -21,7 +21,6 @@ module XMonad.Util.EZConfig (
 import XMonad
 
 import qualified Data.Map as M
-import Graphics.X11.Xlib
 
 -- |
 -- Add or override keybindings from the existing set. Example use:

XMonad/Util/XSelection.hs

@@ -30,16 +30,7 @@ import Data.Bits (shiftL, (.&.), (.|.))
 import Data.Char (chr, ord)
 import Data.Maybe (fromMaybe)
 import Data.Word (Word8)
-import Graphics.X11.Xlib.Extras (Event(ev_event_display,
+import XMonad
-                                       ev_time, ev_property, ev_target, ev_selection,
-                                       ev_requestor, ev_event_type),
-                                xConvertSelection, xGetSelectionOwner, xSetSelectionOwner, getEvent,
-                                currentTime, setSelectionNotify, getWindowProperty8, changeProperty8,
-                                propModeReplace)
-import Graphics.X11.Xlib (destroyWindow, createSimpleWindow, Display, XEventPtr,
-                         sendEvent, nextEvent, sync, allocaXEvent, openDisplay, rootWindow,
-                         defaultScreen, internAtom, Atom, selectionNotify, selectionRequest, noEventMask)
-import XMonad (X, io)
 import XMonad.Util.Run (safeSpawn, unsafeSpawn)
 
 {- $usage