Prune more imports

2025-05-19 11:30:22 -07:00 · 2007-12-07 23:51:16 +00:00 · 2007-12-07 23:51:16 +00:00 · 4f7764ca8b
commit 4f7764ca8b
parent e85228229b
27 changed files with 2 additions and 53 deletions
--- 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
 --
--- 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@:
--- 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@:
--- 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
--- 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@:
--- 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
--- 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@:
--- 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)

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

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

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

--- 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 ()
--- 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:
--- 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
--- 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@:
--- 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
--- 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@:
--- 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

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