ADD tabbed layout

This commit is contained in:
Nathan Dwarshuis 2020-02-27 16:04:10 -05:00
parent d4a15b3af6
commit dbc45b07a9
1 changed files with 26 additions and 4 deletions

View File

@ -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