diff options
| -rw-r--r-- | lib/xmonad.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/xmonad.hs b/lib/xmonad.hs index 30c6afd..9972bf0 100644 --- a/lib/xmonad.hs +++ b/lib/xmonad.hs @@ -118,15 +118,15 @@ goldenSpiral :: SpiralWithDir a goldenSpiral = spiral (6 / 7) myWorkspaces :: [String] -myWorkspaces = ["1[chat]", "2[emacs]", "3[work]", "4[dandel]", "5[sabten]", "6[study]"] ++ map show [7 .. 9] +myWorkspaces = ["1[work]", "2[chat]", "3[lithium]", "4", "5[mon]", "6"] ++ map show [7 .. 9] addSpace :: l a -> ModifiedLayout Spacing l a addSpace = spacingRaw + False + (Border 10 10 10 10) True - (Border 5 5 5 5) - True - (Border 5 5 5 5) + (Border 10 10 10 10) True myTabCfg theme = @@ -141,16 +141,16 @@ myTabCfg theme = myLayout theme = avoidStruts $ noBorders (tabbed shrinkText $ myTabCfg theme) - ||| noBorders Full + ||| (addSpace $ noBorders Full) ||| twopane ||| Mirror twopane - ||| ThreeCol 1 (3 / 100) (1 / 2) - ||| ThreeColMid 1 (3 / 100) (1 / 2) +-- ||| ThreeCol 1 (3 / 100) (1 / 2) +-- ||| ThreeColMid 1 (3 / 100) (1 / 2) ||| tiled ||| Mirror tiled ||| emptyBSP - ||| goldenSpiral - ||| Spiral R Dwindle.CW (3 / 2) (11 / 10) -- L/R is where to put non-main windows +-- ||| goldenSpiral +-- ||| Spiral R Dwindle.CW (3 / 2) (11 / 10) -- L/R is where to put non-main windows where -- The last parameter is fraction to multiply the slave window heights -- with. Useless here. |