diff options
Diffstat (limited to '.xmonad')
| -rw-r--r-- | .xmonad/xmonad.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 4cc7f63..e6a581d 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs | |||
| @@ -123,11 +123,12 @@ main = do | |||
| 123 | , logHook = dynamicLogWithPP xmobarPP' | 123 | , logHook = dynamicLogWithPP xmobarPP' |
| 124 | , modMask = mod4Mask | 124 | , modMask = mod4Mask |
| 125 | , keys = \conf -> hKeysMod host conf $ myKeys' conf | 125 | , keys = \conf -> hKeysMod host conf $ myKeys' conf |
| 126 | , workspaces = take (length numKeys) $ map (hWsp host) [1..] | 126 | , workspaces = take (length numKeys) $ map wsp [1..] |
| 127 | , startupHook = assimilateKeychain >> (sequence autostart) >> (setDefaultCursor xC_left_ptr) >> banishScreen LowerRight >> return () | 127 | , startupHook = assimilateKeychain >> (sequence autostart) >> (setDefaultCursor xC_left_ptr) >> banishScreen LowerRight >> return () |
| 128 | , normalBorderColor = "#202020" | 128 | , normalBorderColor = "#202020" |
| 129 | , focusedBorderColor = "white" | 129 | , focusedBorderColor = "white" |
| 130 | } | 130 | } |
| 131 | wsp = hWsp host | ||
| 131 | -- We can´t define per-host layout modifiers because we lack dependent types | 132 | -- We can´t define per-host layout modifiers because we lack dependent types |
| 132 | layout' = onWorkspace (wsp 1) (noBorders Full ||| withIM (1%5) (Title "Buddy List") (tabbedLayout tabbedBottomAlways)) $ | 133 | layout' = onWorkspace (wsp 1) (noBorders Full ||| withIM (1%5) (Title "Buddy List") (tabbedLayout tabbedBottomAlways)) $ |
| 133 | onWorkspace (wsp 10) (noBorders Full) $ | 134 | onWorkspace (wsp 10) (noBorders Full) $ |