From 4db554f471293564a62ececb6f15acdb815b154c Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 8 Dec 2007 00:51:16 +0100 Subject: Prune more imports darcs-hash:20071207235116-a5988-563cabf7a60a879beb0eb54c9e352a1c27b7729f.gz --- XMonad/Actions/ConstrainedResize.hs | 2 -- XMonad/Actions/DeManage.hs | 1 - XMonad/Actions/FlexibleManipulate.hs | 2 -- XMonad/Actions/FlexibleResize.hs | 2 -- XMonad/Actions/FloatKeys.hs | 2 -- XMonad/Actions/MouseGestures.hs | 2 -- XMonad/Actions/SinkAll.hs | 3 +-- XMonad/Actions/Submap.hs | 2 -- XMonad/Config/Droundy.hs | 2 -- XMonad/Config/Sjanssen.hs | 2 -- XMonad/Hooks/EwmhDesktops.hs | 2 -- XMonad/Hooks/ManageDocks.hs | 2 -- XMonad/Hooks/SetWMName.hs | 3 --- XMonad/Hooks/UrgencyHook.hs | 2 -- XMonad/Layout/Accordion.hs | 1 - XMonad/Layout/Dishes.hs | 1 - XMonad/Layout/DragPane.hs | 1 - XMonad/Layout/Grid.hs | 1 - XMonad/Layout/HintedTile.hs | 2 -- XMonad/Layout/MosaicAlt.hs | 2 -- XMonad/Layout/ResizableTile.hs | 1 - XMonad/Layout/Roledex.hs | 1 - XMonad/Layout/Square.hs | 1 - XMonad/Prompt.hs | 1 - XMonad/Util/CustomKeys.hs | 2 -- XMonad/Util/EZConfig.hs | 1 - XMonad/Util/XSelection.hs | 11 +---------- 27 files changed, 2 insertions(+), 53 deletions(-) (limited to 'XMonad') 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 -- cgit v1.2.3