Prune more imports

darcs-hash:20071207235116-a5988-563cabf7a60a879beb0eb54c9e352a1c27b7729f.gz

27 files changed, 2 insertions, 53 deletions

diff --git a/XMonad/Actions/ConstrainedResize.hs b/XMonad/Actions/ConstrainedResize.hs
index 1d0922d..2520d6b 100644
--- a/XMonad/Actions/ConstrainedResize.hs
+++ b/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
 --
diff --git a/XMonad/Actions/DeManage.hs b/XMonad/Actions/DeManage.hs
index 7866cd2..edd89f0 100644
--- a/XMonad/Actions/DeManage.hs
+++ b/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@:
diff --git a/XMonad/Actions/FlexibleManipulate.hs b/XMonad/Actions/FlexibleManipulate.hs
index c577d31..613548e 100644
--- a/XMonad/Actions/FlexibleManipulate.hs
+++ b/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@:
diff --git a/XMonad/Actions/FlexibleResize.hs b/XMonad/Actions/FlexibleResize.hs
index f3523bb..28f654c 100644
--- a/XMonad/Actions/FlexibleResize.hs
+++ b/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
diff --git a/XMonad/Actions/FloatKeys.hs b/XMonad/Actions/FloatKeys.hs
index 116a72e..b424a6c 100644
--- a/XMonad/Actions/FloatKeys.hs
+++ b/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@:
diff --git a/XMonad/Actions/MouseGestures.hs b/XMonad/Actions/MouseGestures.hs
index 1edec0d..ba1908d 100644
--- a/XMonad/Actions/MouseGestures.hs
+++ b/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
diff --git a/XMonad/Actions/SinkAll.hs b/XMonad/Actions/SinkAll.hs
index e5eee4b..d956b33 100644
--- a/XMonad/Actions/SinkAll.hs
+++ b/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@:
diff --git a/XMonad/Actions/Submap.hs b/XMonad/Actions/Submap.hs
index b4b1ec2..4d00957 100644
--- a/XMonad/Actions/Submap.hs
+++ b/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)
 
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index 090e386..a6a44c0 100644
--- a/XMonad/Config/Droundy.hs
+++ b/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
 
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 99ef090..a657c1e 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/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
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index 899ea3d..7d0aa9a 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/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
 
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index 6380f94..0cce565 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/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)
 
diff --git a/XMonad/Hooks/SetWMName.hs b/XMonad/Hooks/SetWMName.hs
index 0da0bed..e6510b5 100644
--- a/XMonad/Hooks/SetWMName.hs
+++ b/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 ()
diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs
index 7c670ce..df38226 100644
--- a/XMonad/Hooks/UrgencyHook.hs
+++ b/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:
diff --git a/XMonad/Layout/Accordion.hs b/XMonad/Layout/Accordion.hs
index 396ec8a..2177de9 100644
--- a/XMonad/Layout/Accordion.hs
+++ b/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
diff --git a/XMonad/Layout/Dishes.hs b/XMonad/Layout/Dishes.hs
index 73de55b..6066143 100644
--- a/XMonad/Layout/Dishes.hs
+++ b/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@:
diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index 07d90f2..6082656 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -29,7 +29,6 @@ module XMonad.Layout.DragPane (
                               ) where
 
 import XMonad
-import Data.Bits
 import Data.Unique
 
 import XMonad.Layouts
diff --git a/XMonad/Layout/Grid.hs b/XMonad/Layout/Grid.hs
index 4a0a8cb..36a5768 100644
--- a/XMonad/Layout/Grid.hs
+++ b/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@:
diff --git a/XMonad/Layout/HintedTile.hs b/XMonad/Layout/HintedTile.hs
index a3a81d7..e76e651 100644
--- a/XMonad/Layout/HintedTile.hs
+++ b/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
 
diff --git a/XMonad/Layout/MosaicAlt.hs b/XMonad/Layout/MosaicAlt.hs
index 9bdd81a..884d219 100644
--- a/XMonad/Layout/MosaicAlt.hs
+++ b/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@:
diff --git a/XMonad/Layout/ResizableTile.hs b/XMonad/Layout/ResizableTile.hs
index ca73a7c..00aaf85 100644
--- a/XMonad/Layout/ResizableTile.hs
+++ b/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
diff --git a/XMonad/Layout/Roledex.hs b/XMonad/Layout/Roledex.hs
index fd9b73e..50f842d 100644
--- a/XMonad/Layout/Roledex.hs
+++ b/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
diff --git a/XMonad/Layout/Square.hs b/XMonad/Layout/Square.hs
index 21e466c..9e07caa 100644
--- a/XMonad/Layout/Square.hs
+++ b/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
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 7eefa5b..c6315e0 100644
--- a/XMonad/Prompt.hs
+++ b/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
diff --git a/XMonad/Util/CustomKeys.hs b/XMonad/Util/CustomKeys.hs
index 9d58f39..998f9bc 100644
--- a/XMonad/Util/CustomKeys.hs
+++ b/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
 -- >
diff --git a/XMonad/Util/EZConfig.hs b/XMonad/Util/EZConfig.hs
index 543f5a1..6c5f655 100644
--- a/XMonad/Util/EZConfig.hs
+++ b/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:
diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs
index dd5e1a2..0ee1987 100644
--- a/XMonad/Util/XSelection.hs
+++ b/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,
-                                       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
 import XMonad.Util.Run (safeSpawn, unsafeSpawn)
 
 {- $usage