summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.xmonad/xmonad.hs18
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