ADD tabbed layout
This commit is contained in:
parent
d4a15b3af6
commit
dbc45b07a9
30
xmonad.hs
30
xmonad.hs
|
@ -27,11 +27,15 @@ 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.DragPane
|
||||||
|
-- import XMonad.Layout.IM
|
||||||
|
-- import XMonad.Layout.LayoutCombinators hiding ((|||))
|
||||||
import XMonad.Layout.Named
|
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.ResizableTile (ResizableTall(..))
|
-- import XMonad.Layout.ResizableTile
|
||||||
|
import XMonad.Layout.Tabbed
|
||||||
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
|
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
|
||||||
import XMonad.Prompt
|
import XMonad.Prompt
|
||||||
import XMonad.Prompt.ConfirmPrompt
|
import XMonad.Prompt.ConfirmPrompt
|
||||||
|
@ -40,6 +44,7 @@ import XMonad.Prompt.ConfirmPrompt
|
||||||
import XMonad.Util.EZConfig
|
import XMonad.Util.EZConfig
|
||||||
import XMonad.Util.NamedActions
|
import XMonad.Util.NamedActions
|
||||||
import XMonad.Util.Run
|
import XMonad.Util.Run
|
||||||
|
import XMonad.Util.WindowProperties
|
||||||
|
|
||||||
import qualified XMonad.StackSet as W
|
import qualified XMonad.StackSet as W
|
||||||
|
|
||||||
|
@ -76,11 +81,23 @@ myTopBarTheme = def
|
||||||
, decoHeight = 20
|
, decoHeight = 20
|
||||||
}
|
}
|
||||||
|
|
||||||
|
myTabbedTheme = def
|
||||||
|
{ fontName = myFont
|
||||||
|
, activeColor = "#d6d6d6"
|
||||||
|
, activeTextColor = "black"
|
||||||
|
, activeBorderColor = "#d6d6d6"
|
||||||
|
, inactiveColor = "#999999"
|
||||||
|
, inactiveTextColor = "#333333"
|
||||||
|
, inactiveBorderColor = "#999999"
|
||||||
|
}
|
||||||
|
|
||||||
myWorkspaces = map show [1..10 :: Int]
|
myWorkspaces = map show [1..10 :: Int]
|
||||||
|
|
||||||
myVMWorkspace = "VM"
|
myVMWorkspace = "VM"
|
||||||
|
myGimpWorkspace = "GIMP"
|
||||||
|
|
||||||
myLayouts = onWorkspace myVMWorkspace (noBorders Full)
|
myLayouts = onWorkspace myVMWorkspace (noBorders Full)
|
||||||
|
-- $ onWorkspace myGimpWorkspace gimpLayout
|
||||||
$ tall ||| single ||| full
|
$ tall ||| single ||| full
|
||||||
where
|
where
|
||||||
addTopBar = noFrillsDeco shrinkText myTopBarTheme
|
addTopBar = noFrillsDeco shrinkText myTopBarTheme
|
||||||
|
@ -89,14 +106,19 @@ myLayouts = onWorkspace myVMWorkspace (noBorders Full)
|
||||||
$ addTopBar
|
$ addTopBar
|
||||||
$ noBorders
|
$ noBorders
|
||||||
$ Tall 1 0.03 0.5
|
$ Tall 1 0.03 0.5
|
||||||
single = named "Single"
|
single = named "Tabbed"
|
||||||
$ addTopBar
|
-- $ addTopBar
|
||||||
$ avoidStruts
|
$ avoidStruts
|
||||||
$ noBorders
|
$ noBorders
|
||||||
$ Full
|
$ tabbed shrinkText myTabbedTheme
|
||||||
full = named "Full"
|
full = named "Full"
|
||||||
$ noBorders
|
$ noBorders
|
||||||
$ Full
|
$ Full
|
||||||
|
-- gimpLayout = named "Gimp Layout"
|
||||||
|
-- $ avoidStruts
|
||||||
|
-- $ (tabbedAlways shrinkText defaultTheme) ****||* Full
|
||||||
|
-- -- $ 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
|
||||||
|
|
Loading…
Reference in New Issue