Remove unnecessary imports of X.L.LayoutCombinators

This commit is contained in:
slotThe 2021-03-24 19:01:05 +01:00 committed by Tomas Janousek
parent 921ee69064
commit 9af232489d
9 changed files with 6 additions and 23 deletions

View File

@ -24,7 +24,6 @@ module XMonad.Actions.BluetileCommands (
import XMonad import XMonad
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Layout.LayoutCombinators
import System.Exit import System.Exit
-- $usage -- $usage

View File

@ -19,20 +19,15 @@ module XMonad.Actions.CycleSelectedLayouts (
import XMonad import XMonad
import XMonad.Prelude (findIndex, fromMaybe) import XMonad.Prelude (findIndex, fromMaybe)
import XMonad.Layout.LayoutCombinators (JumpToLayout(..))
import qualified XMonad.StackSet as S import qualified XMonad.StackSet as S
-- $usage -- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
-- --
-- > import XMonad hiding ((|||)) -- > import XMonad
-- > import XMonad.Layout.LayoutCombinators ((|||))
-- > import XMonad.Actions.CycleSelectedLayouts -- > import XMonad.Actions.CycleSelectedLayouts
-- --
-- > , ((modm, xK_t ), cycleThroughLayouts ["Tall", "Mirror Tall"]) -- > , ((modm, xK_t ), cycleThroughLayouts ["Tall", "Mirror Tall"])
--
-- Make sure you are using NewSelect from XMonad.Layout.LayoutCombinators,
-- rather than the Select defined in xmonad core.
cycleToNext :: (Eq a) => [a] -> a -> Maybe a cycleToNext :: (Eq a) => [a] -> a -> Maybe a
cycleToNext lst a = do cycleToNext lst a = do

View File

@ -22,7 +22,7 @@ module XMonad.Config.Arossato
import qualified Data.Map as M import qualified Data.Map as M
import XMonad hiding ( (|||) ) import XMonad
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
@ -30,7 +30,6 @@ import XMonad.Hooks.DynamicLog hiding (xmobar)
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ServerMode import XMonad.Hooks.ServerMode
import XMonad.Layout.Accordion import XMonad.Layout.Accordion
import XMonad.Layout.LayoutCombinators
import XMonad.Layout.Magnifier import XMonad.Layout.Magnifier
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.SimpleFloat import XMonad.Layout.SimpleFloat

View File

@ -25,7 +25,7 @@ module XMonad.Config.Bluetile (
bluetileConfig bluetileConfig
) where ) where
import XMonad hiding ( (|||) ) import XMonad
import XMonad.Layout.BorderResize import XMonad.Layout.BorderResize
import XMonad.Layout.BoringWindows import XMonad.Layout.BoringWindows
@ -33,7 +33,6 @@ import XMonad.Layout.ButtonDecoration
import XMonad.Layout.Decoration import XMonad.Layout.Decoration
import XMonad.Layout.DecorationAddons import XMonad.Layout.DecorationAddons
import XMonad.Layout.DraggingVisualizer import XMonad.Layout.DraggingVisualizer
import XMonad.Layout.LayoutCombinators
import XMonad.Layout.Maximize import XMonad.Layout.Maximize
import XMonad.Layout.Minimize import XMonad.Layout.Minimize
import XMonad.Layout.MouseResizableTile import XMonad.Layout.MouseResizableTile

View File

@ -9,7 +9,7 @@
module XMonad.Config.Droundy ( config, mytab ) where module XMonad.Config.Droundy ( config, mytab ) where
import XMonad hiding (keys, config, (|||)) import XMonad hiding (keys, config)
import qualified XMonad (keys) import qualified XMonad (keys)
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W

View File

@ -51,7 +51,7 @@ module XMonad.Layout.Groups.Examples ( -- * Usage
, zoomRowG , zoomRowG
) where ) where
import XMonad hiding ((|||)) import XMonad
import qualified XMonad.Layout.Groups as G import qualified XMonad.Layout.Groups as G
import XMonad.Layout.Groups.Helpers import XMonad.Layout.Groups.Helpers
@ -60,7 +60,6 @@ import XMonad.Layout.ZoomRow
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Layout.Named import XMonad.Layout.Named
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.LayoutCombinators
import XMonad.Layout.Decoration import XMonad.Layout.Decoration
import XMonad.Layout.Simplest import XMonad.Layout.Simplest
@ -236,4 +235,3 @@ expandMasterGroups = sendMessage $ G.ToEnclosing $ SomeMessage $ Expand
-- | Rotate the available outer layout algorithms -- | Rotate the available outer layout algorithms
nextOuterLayout :: X () nextOuterLayout :: X ()
nextOuterLayout = sendMessage $ G.ToEnclosing $ SomeMessage $ NextLayout nextOuterLayout = sendMessage $ G.ToEnclosing $ SomeMessage $ NextLayout

View File

@ -33,7 +33,7 @@ module XMonad.Layout.Groups.Wmii ( -- * Usage
, def , def
, module XMonad.Layout.Groups.Helpers ) where , module XMonad.Layout.Groups.Helpers ) where
import XMonad hiding ((|||)) import XMonad
import qualified XMonad.Layout.Groups as G import qualified XMonad.Layout.Groups as G
import XMonad.Layout.Groups.Examples import XMonad.Layout.Groups.Examples
@ -42,7 +42,6 @@ import XMonad.Layout.Groups.Helpers
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Layout.Named import XMonad.Layout.Named
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.LayoutCombinators
import XMonad.Layout.MessageControl import XMonad.Layout.MessageControl
import XMonad.Layout.Simplest import XMonad.Layout.Simplest
@ -130,4 +129,3 @@ groupToTabbedLayout = sendMessage $ escape $ JumpToLayout "Tabs"
-- | Switch the focused group to the \"column\" layout. -- | Switch the focused group to the \"column\" layout.
groupToVerticalLayout :: X () groupToVerticalLayout :: X ()
groupToVerticalLayout = sendMessage $ escape $ JumpToLayout "Column" groupToVerticalLayout = sendMessage $ escape $ JumpToLayout "Column"

View File

@ -45,7 +45,6 @@ import Control.Arrow (second)
-- --
-- > import XMonad.Layout.Master (mastered) -- > import XMonad.Layout.Master (mastered)
-- > import XMonad.Layout.Tabbed (simpleTabbed) -- > import XMonad.Layout.Tabbed (simpleTabbed)
-- > import XMonad.Layout.LayoutCombinators ((|||))
-- > -- >
-- > myLayout = Tall ||| unEscape (mastered 0.01 0.5 $ Full ||| simpleTabbed) -- > myLayout = Tall ||| unEscape (mastered 0.01 0.5 $ Full ||| simpleTabbed)
-- --
@ -62,9 +61,6 @@ import Control.Arrow (second)
-- > unEscape $ mastered 0.01 0.5 -- > unEscape $ mastered 0.01 0.5
-- > $ Full ||| simpleTabbed) -- > $ Full ||| simpleTabbed)
-- --
-- /IMPORTANT NOTE:/ The standard '(|||)' operator from "XMonad.Layout"
-- does not behave correctly with 'ignore'. Make sure you use the one
-- from "XMonad.Layout.LayoutCombinators".
-- | the Ignore layout modifier. Prevents its inner layout from receiving -- | the Ignore layout modifier. Prevents its inner layout from receiving
-- messages of a certain type. -- messages of a certain type.

View File

@ -23,7 +23,6 @@ import XMonad hiding ( workspaces )
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Workspace ( Wor(..) ) import XMonad.Prompt.Workspace ( Wor(..) )
import XMonad.StackSet ( workspaces, layout ) import XMonad.StackSet ( workspaces, layout )
import XMonad.Layout.LayoutCombinators ( JumpToLayout(..) )
-- $usage -- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: