ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF use Renamed module instead of Named (depr)

This commit is contained in:
Nathan Dwarshuis 2020-03-27 20:41:11 -04:00
parent 2531dbf1cd
commit fa278ebee3
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
bin/xmonad.hs
View File

@ -64,10 +64,10 @@ import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
-- import XMonad.Layout.LayoutCombinators hiding ((|||)) -- import XMonad.Layout.LayoutCombinators hiding ((|||))
-- import XMonad.Layout.Master -- import XMonad.Layout.Master
import XMonad.Layout.Named
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.NoFrillsDecoration import XMonad.Layout.NoFrillsDecoration
import XMonad.Layout.PerWorkspace import XMonad.Layout.PerWorkspace
import XMonad.Layout.Renamed
-- import XMonad.Layout.Simplest -- import XMonad.Layout.Simplest
import XMonad.Layout.Tabbed import XMonad.Layout.Tabbed
import XMonad.Prompt import XMonad.Prompt
@ -127,26 +127,24 @@ myLayouts = onWorkspace myVMWorkspace vmLayout
$ tall ||| single ||| full $ tall ||| single ||| full
where where
addTopBar = noFrillsDeco shrinkText T.tabbedTheme addTopBar = noFrillsDeco shrinkText T.tabbedTheme
tall = named "Tall" tall = renamed [Replace "Tall"]
$ avoidStruts $ avoidStruts
$ addTopBar $ addTopBar
$ noBorders $ noBorders
$ Tall 1 0.03 0.5 $ Tall 1 0.03 0.5
single = named "Tabbed" single = renamed [Replace "Tabbed"]
$ avoidStruts $ avoidStruts
$ noBorders $ noBorders
$ tabbedAlways shrinkText T.tabbedTheme $ tabbedAlways shrinkText T.tabbedTheme
full = named "Full" full = renamed [Replace "Full"]
$ noBorders Full $ noBorders Full
vmLayout = noBorders Full vmLayout = noBorders Full
-- TODO use a tabbed layout for multiple master windows -- TODO use a tabbed layout for multiple master windows
gimpLayout = named "Gimp Layout" gimpLayout = renamed [Replace "Gimp Layout"]
$ avoidStruts $ avoidStruts
$ noBorders $ noBorders
$ addTopBar $ addTopBar
$ Tall 1 0.025 0.8 $ Tall 1 0.025 0.8
-- $ withIM (11/64) (Or (Title "Toolbox") (Title "Tool Options"))
-- $ (tabbedAlways shrinkText defaultTheme)
-- | Format workspace and layout in loghook -- | Format workspace and layout in loghook
-- The format will be like "[<1> 2 3] 4 5 | LAYOUT" where each digit -- The format will be like "[<1> 2 3] 4 5 | LAYOUT" where each digit