Remove XMonad.Operations imports

XMonad/Actions/Commands.hs

@@ -26,7 +26,6 @@ module XMonad.Actions.Commands (
                               ) where
 
 import XMonad
-import XMonad.Operations
 import XMonad.StackSet hiding (workspaces)
 import XMonad.Util.Dmenu (dmenu)
 import XMonad.Layouts

XMonad/Actions/ConstrainedResize.hs

@@ -22,7 +22,6 @@ module XMonad.Actions.ConstrainedResize (
 ) where
 
 import XMonad
-import XMonad.Operations
 
 -- $usage
 --

XMonad/Actions/CopyWindow.hs

@@ -23,7 +23,6 @@ module XMonad.Actions.CopyWindow (
 import Prelude hiding ( filter )
 import qualified Data.List as L
 import XMonad hiding (modify)
-import XMonad.Operations ( windows, kill )
 import XMonad.StackSet
 
 -- $usage

XMonad/Actions/CycleWS.hs

@@ -31,7 +31,6 @@ import Data.Ord ( comparing )
 import XMonad hiding (workspaces)
 import qualified XMonad (workspaces)
 import XMonad.StackSet hiding (filter)
-import XMonad.Operations
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@ file:

XMonad/Actions/DeManage.hs

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

XMonad/Actions/DwmPromote.hs

@@ -23,7 +23,6 @@ module XMonad.Actions.DwmPromote (
                                 ) where
 
 import XMonad
-import XMonad.Operations (windows)
 import XMonad.StackSet
 
 -- $usage

XMonad/Actions/DynamicWorkspaces.hs

@@ -25,7 +25,6 @@ module XMonad.Actions.DynamicWorkspaces (
 import Data.List ( sort )
 
 import XMonad hiding (workspaces)
-import XMonad.Operations
 import XMonad.StackSet hiding (filter, modify, delete)
 import XMonad.Prompt.Workspace
 import XMonad.Prompt ( XPConfig, mkXPrompt, XPrompt(..) )

XMonad/Actions/FindEmptyWorkspace.hs

@@ -24,8 +24,6 @@ import Data.Maybe ( isNothing )
 import XMonad
 import XMonad.StackSet
 
-import XMonad.Operations
-
 -- $usage
 --
 -- To use, import this module into your @~\/.xmonad\/xmonad.hs@:

XMonad/Actions/FlexibleManipulate.hs

@@ -23,7 +23,6 @@ module XMonad.Actions.FlexibleManipulate (
 ) where
 
 import XMonad
-import XMonad.Operations
 
 -- $usage
 -- First, add this import to your @~\/.xmonad\/xmonad.hs@:

XMonad/Actions/FlexibleResize.hs

@@ -19,7 +19,6 @@ module XMonad.Actions.FlexibleResize (
 ) where
 
 import XMonad
-import XMonad.Operations
 import Foreign.C.Types
 
 -- $usage

XMonad/Actions/FloatKeys.hs

@@ -19,7 +19,6 @@ module XMonad.Actions.FloatKeys (
                 keysResizeWindow,
                 keysAbsResizeWindow) where
 
-import XMonad.Operations
 import XMonad
 
 -- $usage

XMonad/Actions/FocusNth.hs

@@ -17,7 +17,6 @@ module XMonad.Actions.FocusNth (
                  focusNth) where
 
 import XMonad.StackSet
-import XMonad.Operations
 import XMonad
 
 -- $usage

XMonad/Actions/MouseGestures.hs

@@ -20,7 +20,6 @@ module XMonad.Actions.MouseGestures (
 ) where
 
 import XMonad
-import XMonad.Operations
 
 import Data.IORef
 import qualified Data.Map as M

XMonad/Actions/RotSlaves.hs

@@ -18,7 +18,6 @@ module XMonad.Actions.RotSlaves (
 	) where
 
 import XMonad.StackSet
-import XMonad.Operations
 import XMonad
 
 -- $usage

XMonad/Actions/RotView.hs

@@ -24,7 +24,6 @@ import Data.Ord ( comparing )
 
 import XMonad
 import XMonad.StackSet hiding (filter)
-import XMonad.Operations
 
 -- $usage
 --

XMonad/Actions/SinkAll.hs

@@ -14,7 +14,6 @@ module XMonad.Actions.SinkAll (
     -- $usage
     sinkAll) where
 
-import XMonad.Operations
 import XMonad
 import XMonad.StackSet
 

XMonad/Actions/Submap.hs

@@ -19,7 +19,6 @@ module XMonad.Actions.Submap (
                             ) where
 
 import XMonad hiding (keys)
-import XMonad.Operations (cleanMask)
 import qualified Data.Map as M
 import Control.Monad.Fix (fix)
 

XMonad/Actions/TagWindows.hs

@@ -29,7 +29,6 @@ import Data.List (nub,concat,sortBy)
 import Control.Monad
 
 import XMonad.StackSet hiding (filter)
-import XMonad.Operations (windows, withFocused)
 
 import XMonad.Prompt
 import XMonad hiding (workspaces)

XMonad/Actions/Warp.hs

@@ -21,7 +21,6 @@ module XMonad.Actions.Warp (
 
 import Data.Ratio
 import Data.List
-import XMonad.Operations
 import XMonad
 import XMonad.StackSet as W
 

XMonad/Actions/WindowBringer.hs

@@ -23,7 +23,6 @@ module XMonad.Actions.WindowBringer (
 import Data.Char (toLower)
 import qualified Data.Map as M
 
-import XMonad.Operations (windows)
 import qualified XMonad.StackSet as W
 import XMonad
 import qualified XMonad as X

XMonad/Config/Arossato.hs

@@ -25,7 +25,6 @@ import qualified Data.Map as M
 import XMonad
 import XMonad.Layouts
 import XMonad.ManageHook
-import XMonad.Operations
 import qualified XMonad.StackSet as W
 
 import XMonad.Actions.CycleWS

XMonad/Config/Droundy.hs

@@ -16,7 +16,6 @@ import XMonad.Config ( defaultConfig )
 
 --import XMonad.Core ( windowset )
 import XMonad.Layouts hiding ( (|||) )
-import XMonad.Operations
 import qualified XMonad.StackSet as W
 import qualified Data.Map as M
 import System.Exit

XMonad/Config/Sjanssen.hs

@@ -7,7 +7,6 @@ import XMonad.Actions.CopyWindow
 import XMonad.Layouts hiding (Tall)
 import XMonad.Layout.Tabbed
 import XMonad.Layout.HintedTile
-import XMonad.Operations
 import XMonad.Config (defaultConfig)
 import XMonad.Layout.NoBorders
 import XMonad.Hooks.DynamicLog

XMonad/Hooks/ManageDocks.hs

@@ -46,7 +46,6 @@ module XMonad.Hooks.ManageDocks (
     ) where
 
 import XMonad
-import XMonad.Operations
 import qualified XMonad.StackSet as W
 import Foreign.C.Types (CLong)
 import Data.Maybe (catMaybes)

XMonad/Hooks/UrgencyHook.hs

@@ -30,7 +30,6 @@ module XMonad.Hooks.UrgencyHook (
                                  ) where
 
 import XMonad
-import XMonad.Operations (windows)
 import qualified XMonad.StackSet as W
 
 import XMonad.Layout.LayoutModifier hiding (hook)

XMonad/Layout/Combo.hs

@@ -24,7 +24,7 @@ module XMonad.Layout.Combo (
 
 import Data.List ( delete, intersect, (\\) )
 import Data.Maybe ( isJust )
-import XMonad
+import XMonad hiding (focus)
 import XMonad.StackSet ( integrate, Stack(..) )
 import XMonad.Layout.WindowNavigation ( MoveWindowToWindow(..) )
 import qualified XMonad.StackSet as W ( differentiate )

XMonad/Layout/DragPane.hs

@@ -32,7 +32,6 @@ import XMonad
 import Data.Unique
 
 import XMonad.Layouts
-import XMonad.Operations
 import qualified XMonad.StackSet as W 
 import XMonad.Util.Invisible
 import XMonad.Util.XUtils

XMonad/Layout/HintedTile.hs

@@ -22,7 +22,6 @@ module XMonad.Layout.HintedTile (
 
 import XMonad
 import XMonad.Layouts    (Resize(..), IncMasterN(..))
-import XMonad.Operations (applySizeHints, D)
 import qualified XMonad.StackSet as W
 import Control.Applicative ((<$>))
 import Control.Monad

XMonad/Layout/LayoutHints.hs

@@ -19,7 +19,6 @@ module XMonad.Layout.LayoutHints (
     layoutHints,
     LayoutHints) where
 
-import XMonad.Operations ( applySizeHints, D )
 import XMonad hiding ( trace )
 import XMonad.Layout.LayoutModifier
 

XMonad/Layout/LayoutScreens.hs

@@ -20,7 +20,6 @@ module XMonad.Layout.LayoutScreens (
 
 import XMonad
 import qualified XMonad.StackSet as W
-import qualified XMonad.Operations as O
 
 -- $usage
 -- This module allows you to pretend that you have more than one screen by
@@ -58,7 +57,7 @@ layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ sh
 layoutScreens nscr l =
     do rtrect <- asks theRoot >>= getWindowRectangle
        (wss, _) <- doLayout l rtrect W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] }
-       O.windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) ->
+       windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) ->
            let (x:xs, ys) = splitAt nscr $ map W.workspace (v:vs) ++ hs
                gaps = map (statusGap . W.screenDetail) $ v:vs
                (s:ss, g:gg) = (map snd wss, take nscr $ gaps ++ repeat (head gaps))

XMonad/Layout/Mosaic.hs

@@ -41,7 +41,6 @@ import XMonad.Util.Anneal
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
 --
 -- > import XMonad.Layout.Mosaic
--- > import XMonad.Operations
 --
 -- Then edit your @layoutHook@ by adding the Mosaic layout:
 --

XMonad/Layout/Tabbed.hs

@@ -26,7 +26,6 @@ import Data.Maybe
 import Data.List
 
 import XMonad
-import XMonad.Operations
 import qualified XMonad.StackSet as W
 
 import XMonad.Util.NamedWindows

XMonad/Layout/TwoPane.hs

@@ -22,7 +22,7 @@ module XMonad.Layout.TwoPane (
                               TwoPane (..)
                              ) where
 
-import XMonad
+import XMonad hiding (focus)
 import XMonad.Layouts ( Resize(..), splitHorizontallyBy )
 import XMonad.StackSet ( focus, up, down)
 

XMonad/Layout/WindowNavigation.hs

@@ -28,7 +28,6 @@ module XMonad.Layout.WindowNavigation (
 import Data.List ( nub, sortBy, (\\) )
 import XMonad hiding (Point)
 import qualified XMonad.StackSet as W
-import XMonad.Operations ( windows )
 import XMonad.Layout.LayoutModifier
 import XMonad.Util.Invisible
 import XMonad.Util.XUtils

XMonad/Layout/WorkspaceDir.hs

@@ -32,7 +32,6 @@ module XMonad.Layout.WorkspaceDir (
 import System.Directory ( setCurrentDirectory, getCurrentDirectory )
 
 import XMonad
-import XMonad.Operations ( sendMessage )
 import XMonad.Util.Run ( runProcessWithInput )
 import XMonad.Prompt ( XPConfig )
 import XMonad.Prompt.Directory ( directoryPrompt )

XMonad/Prompt.hs

@@ -42,7 +42,6 @@ module XMonad.Prompt (
                              ) where
 
 import XMonad  hiding (config, io)
-import XMonad.Operations (initColor)
 import qualified XMonad.StackSet as W
 import XMonad.Util.Font
 import XMonad.Util.XSelection (getSelection)

XMonad/Prompt/Layout.hs

@@ -20,7 +20,6 @@ module XMonad.Prompt.Layout (
 
 import Data.List ( sort, nub )
 import XMonad hiding ( workspaces )
-import XMonad.Operations ( sendMessage )
 import XMonad.Prompt
 import XMonad.StackSet ( workspaces, layout )
 import XMonad.Layout.LayoutCombinators ( JumpToLayout(..) )

XMonad/Prompt/Window.hs

@@ -27,7 +27,6 @@ import Data.List
 
 import qualified XMonad.StackSet as W
 import XMonad
-import XMonad.Operations (windows)
 import XMonad.Prompt
 import XMonad.Actions.WindowBringer
 

XMonad/Util/Font.cpphs

@@ -31,7 +31,6 @@ module XMonad.Util.Font  (
 
 import XMonad
 import Foreign
-import XMonad.Operations
 
 #ifdef XFT
 import Data.List