diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-11-08 00:44:51 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-11-08 00:44:51 +0000 |
| commit | 36598e52f49b355a6fec739d82d5faea42790d65 (patch) | |
| tree | 2b62a9dcecc47b88c84c622beab72de7fd473f21 | |
| parent | 289d0669d0528001c7f2ca6a28312f530d5ad13a (diff) | |
| download | dotfiles-36598e52f49b355a6fec739d82d5faea42790d65.tar dotfiles-36598e52f49b355a6fec739d82d5faea42790d65.tar.gz dotfiles-36598e52f49b355a6fec739d82d5faea42790d65.tar.bz2 dotfiles-36598e52f49b355a6fec739d82d5faea42790d65.tar.xz dotfiles-36598e52f49b355a6fec739d82d5faea42790d65.zip | |
More layout tweaks
| -rw-r--r-- | .xmonad/xmonad.hs | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index ce20335..664627f 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs | |||
| @@ -150,19 +150,21 @@ main = do | |||
| 150 | } | 150 | } |
| 151 | wsp = hWsp host | 151 | wsp = hWsp host |
| 152 | -- We can´t define per-host layout modifiers because we lack dependent types | 152 | -- We can´t define per-host layout modifiers because we lack dependent types |
| 153 | layout' = onHost "skadhi" ( onWorkspace (wsp 1) (noBorders Full ||| withIM (1%5) (Title "Buddy List") (tabbedLayout tabbedBottomAlways)) $ | 153 | layout' = onHost "skadhi" ( onWorkspace (wsp 1) (noBorders Full ||| withIM (1%5) (Title "Buddy List") tabbedLayout') $ |
| 154 | onWorkspace (wsp 10) (noBorders Full) $ | 154 | onWorkspace (wsp 10) (noBorders Full) $ |
| 155 | onWorkspace (wsp 2) (noBorders Full ||| tabbedLayout tabbedBottomAlways) $ | 155 | onWorkspace (wsp 2) (noBorders Full ||| tabbedLayout') $ |
| 156 | onWorkspace (wsp 5) (tabbedLayout tabbedBottomAlways) $ | 156 | onWorkspace (wsp 5) tabbedLayout' $ |
| 157 | onWorkspace (wsp 8) (withIM (1%5) (Title "Friends") (tabbedLayout tabbedBottomAlways)) $ | 157 | onWorkspace (wsp 8) (withIM (1%5) (Title "Friends") tabbedLayout') $ |
| 158 | defaultLayouts | 158 | defaultLayouts |
| 159 | ) $ | 159 | ) $ |
| 160 | onHost "vali" ( onWorkspace (wsp 2) (twoPane (noBorders Full ||| tabbedLayout tabbedBottomAlways)) $ | 160 | onHost "vali" ( onWorkspace (wsp 2) (noBorders Full ||| tabbedLayout' ||| combineTwo twoPane tabbedLayout' tabbedLayout') $ |
| 161 | twoPane defaultLayouts | 161 | onWorkspace (wsp 3) (spiralWithDir East CW (1 % 2) ||| combineTwo (TwoPane 0.1 0.65) (noBorders Full) tabbedLayout') $ |
| 162 | defaultLayouts | ||
| 162 | ) $ | 163 | ) $ |
| 163 | defaultLayouts | 164 | defaultLayouts |
| 164 | twoPane x = x ||| combineTwo (TwoPane 0.1 0.5) x x | 165 | twoPane = TwoPane 0.01 0.5 |
| 165 | defaultLayouts = spiralWithDir East CW (1 % 2) ||| tabbedLayout tabbedBottom ||| noBorders Full | 166 | tabbedLayout' = tabbedLayout tabbedBottomAlways |
| 167 | defaultLayouts = spiralWithDir East CW (1 % 2) ||| tabbedLayout' ||| noBorders Full | ||
| 166 | xmobarPP' = xmobarPP { ppOutput = hPutStrLn xmobarProc | 168 | xmobarPP' = xmobarPP { ppOutput = hPutStrLn xmobarProc |
| 167 | , ppTitle = shorten 50 | 169 | , ppTitle = shorten 50 |
| 168 | , ppSort = (liftM2 (.)) getSortByIndex $ return scratchpadFilterOutWorkspace | 170 | , ppSort = (liftM2 (.)) getSortByIndex $ return scratchpadFilterOutWorkspace |