diff options
| author | Ben Sima <ben@bsima.me> | 2022-07-11 18:14:08 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2022-07-11 18:14:08 -0400 |
| commit | b26477ec71d5a0630db407faeb7c38ca67dde169 (patch) | |
| tree | b6a2a55e5754cc2b458e0f320fe63d8098d83cd4 | |
| parent | c923dab89237f31be65d99e6d3f3c3d29d89f16b (diff) | |
Update xmonad workspaces and layouts
| -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. |