summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2015-11-08 00:29:56 +0000
committerGregor Kleen <gkleen@yggdrasil.li>2015-11-08 00:29:56 +0000
commit59cc043112ebaddb0254344cbca0b9259269c50e (patch)
tree95e49a43f457912499cda61d1433a031caa01eea
parentfae8e88318a68f15317a91f346e490848ea04e46 (diff)
downloaddotfiles-59cc043112ebaddb0254344cbca0b9259269c50e.tar
dotfiles-59cc043112ebaddb0254344cbca0b9259269c50e.tar.gz
dotfiles-59cc043112ebaddb0254344cbca0b9259269c50e.tar.bz2
dotfiles-59cc043112ebaddb0254344cbca0b9259269c50e.tar.xz
dotfiles-59cc043112ebaddb0254344cbca0b9259269c50e.zip
Layout tweaks
-rw-r--r--.xmonad/xmonad.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 46e3660..ce20335 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -157,11 +157,12 @@ main = do
157 onWorkspace (wsp 8) (withIM (1%5) (Title "Friends") (tabbedLayout tabbedBottomAlways)) $ 157 onWorkspace (wsp 8) (withIM (1%5) (Title "Friends") (tabbedLayout tabbedBottomAlways)) $
158 defaultLayouts 158 defaultLayouts
159 ) $ 159 ) $
160 onHost "vali" ( onWorkspace (wsp 2) (noBorders Full ||| tabbedLayout tabbedBottomAlways ||| combineTwo (TwoPane 0.1 0.5) Full (tabbedLayout tabbedBottomAlways)) $ 160 onHost "vali" ( onWorkspace (wsp 2) (twoPane (noBorders Full ||| tabbedLayout tabbedBottomAlways)) $
161 defaultLayouts 161 twoPane defaultLayouts
162 ) $ 162 ) $
163 defaultLayouts 163 defaultLayouts
164 defaultLayouts = spiralWithDir East CW (1 % 2) ||| tabbedLayout tabbedBottom ||| noBorders Full ||| simplestFloat 164 twoPane x = x ||| combineTwo (TwoPane 0.1 0.5) x x
165 defaultLayouts = spiralWithDir East CW (1 % 2) ||| tabbedLayout tabbedBottom ||| noBorders Full
165 xmobarPP' = xmobarPP { ppOutput = hPutStrLn xmobarProc 166 xmobarPP' = xmobarPP { ppOutput = hPutStrLn xmobarProc
166 , ppTitle = shorten 50 167 , ppTitle = shorten 50
167 , ppSort = (liftM2 (.)) getSortByIndex $ return scratchpadFilterOutWorkspace 168 , ppSort = (liftM2 (.)) getSortByIndex $ return scratchpadFilterOutWorkspace