ENH add topbar to layouts
This commit is contained in:
parent
7173aba6cc
commit
68a7b5426d
30
xmonad.hs
30
xmonad.hs
|
@ -25,7 +25,9 @@ import XMonad.Hooks.ManageDocks
|
||||||
-- import XMonad.Layout.IndependentScreens
|
-- import XMonad.Layout.IndependentScreens
|
||||||
import XMonad.Hooks.ManageHelpers
|
import XMonad.Hooks.ManageHelpers
|
||||||
-- import XMonad.Layout.BinarySpacePartition (emptyBSP)
|
-- import XMonad.Layout.BinarySpacePartition (emptyBSP)
|
||||||
|
import XMonad.Layout.Named
|
||||||
import XMonad.Layout.NoBorders
|
import XMonad.Layout.NoBorders
|
||||||
|
import XMonad.Layout.NoFrillsDecoration
|
||||||
import XMonad.Layout.PerWorkspace
|
import XMonad.Layout.PerWorkspace
|
||||||
-- import XMonad.Layout.ResizableTile (ResizableTall(..))
|
-- import XMonad.Layout.ResizableTile (ResizableTall(..))
|
||||||
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
|
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
|
||||||
|
@ -57,10 +59,34 @@ main = do
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
myTopBarTheme = def
|
||||||
|
{ fontName = myFont
|
||||||
|
, inactiveBorderColor = "#999999"
|
||||||
|
, inactiveColor = "#999999"
|
||||||
|
, inactiveTextColor = "#999999"
|
||||||
|
, activeBorderColor = "#eeeeee"
|
||||||
|
, activeColor = "#eeeeee"
|
||||||
|
, activeTextColor = "#eeeeee"
|
||||||
|
-- , urgentBorderColor = red
|
||||||
|
-- , urgentTextColor = yellow
|
||||||
|
, decoHeight = 20
|
||||||
|
}
|
||||||
|
|
||||||
myWorkspaces = map show [1..10 :: Int] ++ ["VM"]
|
myWorkspaces = map show [1..10 :: Int] ++ ["VM"]
|
||||||
|
|
||||||
myLayouts = onWorkspace "VM" (noBorders Full) $
|
myLayouts = onWorkspace "VM" (noBorders Full)
|
||||||
(avoidStruts $ layoutHook def)
|
$ tall ||| full
|
||||||
|
where
|
||||||
|
addTopBar = noFrillsDeco shrinkText myTopBarTheme
|
||||||
|
tall = named "Tall"
|
||||||
|
$ avoidStruts
|
||||||
|
$ addTopBar
|
||||||
|
$ noBorders
|
||||||
|
$ Tall 1 0.03 0.5
|
||||||
|
full = named "Full"
|
||||||
|
$ avoidStruts
|
||||||
|
$ noBorders
|
||||||
|
$ Full
|
||||||
|
|
||||||
-- | 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
|
||||||
|
|
Loading…
Reference in New Issue