XMonad.Layout.Named: Deprecate

This commit is contained in:
slotThe 2020-11-24 12:33:56 +01:00 committed by Tony Zorman
parent 4a8bd762af
commit 3bf9d80c40
6 changed files with 18 additions and 20 deletions

View File

@ -29,7 +29,7 @@ module XMonad.Config.Bluetile (
import XMonad import XMonad
import XMonad.Layout.BorderResize import XMonad.Layout.BorderResize
import XMonad.Layout.BoringWindows import XMonad.Layout.BoringWindows hiding (Replace)
import XMonad.Layout.ButtonDecoration import XMonad.Layout.ButtonDecoration
import XMonad.Layout.Decoration import XMonad.Layout.Decoration
import XMonad.Layout.DecorationAddons import XMonad.Layout.DecorationAddons
@ -37,7 +37,7 @@ import XMonad.Layout.DraggingVisualizer
import XMonad.Layout.Maximize import XMonad.Layout.Maximize
import XMonad.Layout.Minimize import XMonad.Layout.Minimize
import XMonad.Layout.MouseResizableTile import XMonad.Layout.MouseResizableTile
import XMonad.Layout.Named import XMonad.Layout.Renamed
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.PositionStoreFloat import XMonad.Layout.PositionStoreFloat
import XMonad.Layout.WindowSwitcherDecoration import XMonad.Layout.WindowSwitcherDecoration
@ -183,10 +183,10 @@ bluetileManageHook = composeAll
, isFullscreen --> doFullFloat] , isFullscreen --> doFullFloat]
bluetileLayoutHook = avoidStruts $ minimize $ boringWindows $ bluetileLayoutHook = avoidStruts $ minimize $ boringWindows $
named "Floating" floating ||| renamed [Replace "Floating"] floating |||
named "Tiled1" tiled1 ||| renamed [Replace "Tiled1"] tiled1 |||
named "Tiled2" tiled2 ||| renamed [Replace "Tiled2"] tiled2 |||
named "Fullscreen" fullscreen renamed [Replace "Fullscreen"] fullscreen
where where
floating = floatingDeco $ maximize $ borderResize positionStoreFloat floating = floatingDeco $ maximize $ borderResize positionStoreFloat
tiled1 = tilingDeco $ maximize mouseResizableTileMirrored tiled1 = tilingDeco $ maximize mouseResizableTileMirrored

View File

@ -20,7 +20,7 @@ import System.Exit ( exitSuccess )
import XMonad.Layout.Tabbed ( tabbed, import XMonad.Layout.Tabbed ( tabbed,
shrinkText, Shrinker, shrinkIt, CustomShrink(CustomShrink) ) shrinkText, Shrinker, shrinkIt, CustomShrink(CustomShrink) )
import XMonad.Layout.Combo ( combineTwo ) import XMonad.Layout.Combo ( combineTwo )
import XMonad.Layout.Named ( named ) import XMonad.Layout.Renamed ( Rename(Replace), renamed )
import XMonad.Layout.LayoutCombinators import XMonad.Layout.LayoutCombinators
import XMonad.Layout.Square ( Square(Square) ) import XMonad.Layout.Square ( Square(Square) )
import XMonad.Layout.WindowNavigation ( Navigate(Move,Swap,Go), Direction2D(U,D,R,L), import XMonad.Layout.WindowNavigation ( Navigate(Move,Swap,Go), Direction2D(U,D,R,L),
@ -124,10 +124,10 @@ config = docks $ ewmh def
, layoutHook = showWName $ workspaceDir "~" $ , layoutHook = showWName $ workspaceDir "~" $
boringWindows $ smartBorders $ windowNavigation $ boringWindows $ smartBorders $ windowNavigation $
maximizeVertical $ toggleLayouts Full $ avoidStruts $ maximizeVertical $ toggleLayouts Full $ avoidStruts $
named "tabbed" mytab ||| renamed [Replace "tabbed"] mytab |||
named "xclock" (mytab ****//* combineTwo Square mytab mytab) ||| renamed [Replace "xclock"] (mytab ****//* combineTwo Square mytab mytab) |||
named "three" (mytab **//* mytab *//* combineTwo Square mytab mytab) ||| renamed [Replace "three"] (mytab **//* mytab *//* combineTwo Square mytab mytab) |||
named "widescreen" ((mytab *||* mytab) renamed [Replace "widescreen"] ((mytab *||* mytab)
****//* combineTwo Square mytab mytab) -- ||| ****//* combineTwo Square mytab mytab) -- |||
--mosaic 0.25 0.5 --mosaic 0.25 0.5
, terminal = "xterm" -- The preferred terminal program. , terminal = "xterm" -- The preferred terminal program.

View File

@ -59,7 +59,6 @@ import XMonad.Layout.Groups.Helpers
import XMonad.Layout.ZoomRow import XMonad.Layout.ZoomRow
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Layout.Named
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.Decoration import XMonad.Layout.Decoration
import XMonad.Layout.Simplest import XMonad.Layout.Simplest
@ -209,13 +208,13 @@ tallTabs c = _tab c $ G.group _tabs $ _vert c ||| _horiz c ||| Full
mirrorTallTabs c = _tab c $ G.group _tabs $ _horiz c ||| Full ||| _vert c mirrorTallTabs c = _tab c $ G.group _tabs $ _horiz c ||| Full ||| _vert c
_tabs = named "Tabs" Simplest _tabs = renamed [Replace "Tabs"] Simplest
_tab c l = renamed [CutWordsLeft 1] $ addTabs (tabsShrinker c) (tabsTheme c) l _tab c l = renamed [CutWordsLeft 1] $ addTabs (tabsShrinker c) (tabsTheme c) l
_vert c = named "Vertical" $ Tall (vNMaster c) (vIncrement c) (vRatio c) _vert c = renamed [Replace "Vertical"] $ Tall (vNMaster c) (vIncrement c) (vRatio c)
_horiz c = named "Horizontal" $ Mirror $ Tall (hNMaster c) (hIncrement c) (hRatio c) _horiz c = renamed [Replace "Horizontal"] $ Mirror $ Tall (hNMaster c) (hIncrement c) (hRatio c)
-- | Increase the number of master groups by one -- | Increase the number of master groups by one
increaseNMasterGroups :: X () increaseNMasterGroups :: X ()

View File

@ -41,7 +41,6 @@ import XMonad.Layout.Groups.Examples
import XMonad.Layout.Groups.Helpers import XMonad.Layout.Groups.Helpers
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Layout.Named
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.MessageControl import XMonad.Layout.MessageControl
import XMonad.Layout.Simplest import XMonad.Layout.Simplest
@ -90,8 +89,8 @@ import XMonad.Layout.Simplest
-- | A layout inspired by wmii -- | A layout inspired by wmii
wmii s t = G.group innerLayout zoomRowG wmii s t = G.group innerLayout zoomRowG
where column = named "Column" $ Tall 0 (3/100) (1/2) where column = renamed [Replace "Column"] $ Tall 0 (3/100) (1/2)
tabs = named "Tabs" Simplest tabs = renamed [Replace "Tabs"] Simplest
innerLayout = renamed [CutWordsLeft 3] innerLayout = renamed [CutWordsLeft 3]
$ addTabs s t $ addTabs s t
$ ignore NextLayout $ ignore NextLayout

View File

@ -73,7 +73,7 @@ import XMonad.StackSet ( Stack, Workspace (..) )
-- --
-- * "XMonad.Layout.Reflect" -- * "XMonad.Layout.Reflect"
-- --
-- * "XMonad.Layout.Named" -- * "XMonad.Layout.Renamed"
-- --
-- * "XMonad.Layout.WindowNavigation" -- * "XMonad.Layout.WindowNavigation"
-- --

View File

@ -16,7 +16,7 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Layout.Named module XMonad.Layout.Named {-# DEPRECATED "Use XMonad.Layout.Renamed instead" #-}
( -- * Usage ( -- * Usage
-- $usage -- $usage
named, named,