import XMonad.Layout.Renamed
import XMonad.Layout.Reflect
import XMonad.Layout.Tabbed
-import XMonad.Layout.ThreeColumns
import XMonad.Util.Run(spawnPipe)
import qualified Data.Map as M
import qualified XMonad.StackSet as W
avoidStruts $
tabbed shrinkText myTitleTheme
-myThreeColLayout = createLayout "ThreeCol" $
- avoidStruts $
- Mag.magnifierOff $
- ThreeCol numMaster resizeDelta masterRatio
- where
- resizeDelta = 3/100
- masterRatio = 4/10
- numMaster = 1
-
myMasterTabbedLayout = createLayout "MTab" $
avoidStruts $
Mag.magnifierOff $
reflectHoriz $
tabbed shrinkText myTitleTheme
-
--- This was the easiest way I found to avoid a compile error when I have
--- an unused layout
-referenceAllLayoutsToAvoidErrors =
- myFullLayout |||
- myTiledLayout |||
- myTabbedLayout |||
- myThreeColLayout |||
- myMasterTabbedLayout |||
- myGimpLayout
-
-
myLayout =
(
onWorkspace "1" (myTabbedLayout ||| myMasterTabbedLayout) $