From 36598e52f49b355a6fec739d82d5faea42790d65 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 8 Nov 2015 00:44:51 +0000 Subject: More layout tweaks --- .xmonad/xmonad.hs | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to '.xmonad/xmonad.hs') 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 } wsp = hWsp host -- We can´t define per-host layout modifiers because we lack dependent types - layout' = onHost "skadhi" ( onWorkspace (wsp 1) (noBorders Full ||| withIM (1%5) (Title "Buddy List") (tabbedLayout tabbedBottomAlways)) $ + layout' = onHost "skadhi" ( onWorkspace (wsp 1) (noBorders Full ||| withIM (1%5) (Title "Buddy List") tabbedLayout') $ onWorkspace (wsp 10) (noBorders Full) $ - onWorkspace (wsp 2) (noBorders Full ||| tabbedLayout tabbedBottomAlways) $ - onWorkspace (wsp 5) (tabbedLayout tabbedBottomAlways) $ - onWorkspace (wsp 8) (withIM (1%5) (Title "Friends") (tabbedLayout tabbedBottomAlways)) $ + onWorkspace (wsp 2) (noBorders Full ||| tabbedLayout') $ + onWorkspace (wsp 5) tabbedLayout' $ + onWorkspace (wsp 8) (withIM (1%5) (Title "Friends") tabbedLayout') $ defaultLayouts ) $ - onHost "vali" ( onWorkspace (wsp 2) (twoPane (noBorders Full ||| tabbedLayout tabbedBottomAlways)) $ - twoPane defaultLayouts + onHost "vali" ( onWorkspace (wsp 2) (noBorders Full ||| tabbedLayout' ||| combineTwo twoPane tabbedLayout' tabbedLayout') $ + onWorkspace (wsp 3) (spiralWithDir East CW (1 % 2) ||| combineTwo (TwoPane 0.1 0.65) (noBorders Full) tabbedLayout') $ + defaultLayouts ) $ defaultLayouts - twoPane x = x ||| combineTwo (TwoPane 0.1 0.5) x x - defaultLayouts = spiralWithDir East CW (1 % 2) ||| tabbedLayout tabbedBottom ||| noBorders Full + twoPane = TwoPane 0.01 0.5 + tabbedLayout' = tabbedLayout tabbedBottomAlways + defaultLayouts = spiralWithDir East CW (1 % 2) ||| tabbedLayout' ||| noBorders Full xmobarPP' = xmobarPP { ppOutput = hPutStrLn xmobarProc , ppTitle = shorten 50 , ppSort = (liftM2 (.)) getSortByIndex $ return scratchpadFilterOutWorkspace -- cgit v1.2.3