Difference between revisions of "Xmonad/Config archive/TeXitoi's xmonad.hs"
< Xmonad | Config archive
Jump to navigation
Jump to search
m |
(Add smartBorders) |
||
Line 4: | Line 4: | ||
import XMonad.Hooks.ManageDocks |
import XMonad.Hooks.ManageDocks |
||
import XMonad.Hooks.EwmhDesktops |
import XMonad.Hooks.EwmhDesktops |
||
+ | import XMonad.Layout.NoBorders |
||
import qualified Data.Map as M |
import qualified Data.Map as M |
||
Line 17: | Line 18: | ||
manageHook = manageDocks <+> manageHook defaultConfig, |
manageHook = manageDocks <+> manageHook defaultConfig, |
||
logHook = ewmhDesktopsLogHook, |
logHook = ewmhDesktopsLogHook, |
||
− | layoutHook = ewmhDesktopsLayout $ avoidStruts $ layoutHook defaultConfig, |
+ | layoutHook = smartBorders $ ewmhDesktopsLayout $ avoidStruts $ layoutHook defaultConfig, |
workspaces = ["1","2","3","4","5","6","7","8"], |
workspaces = ["1","2","3","4","5","6","7","8"], |
||
focusedBorderColor = "#729fcf", |
focusedBorderColor = "#729fcf", |
Revision as of 14:35, 26 November 2008
import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Layout.NoBorders
import qualified Data.Map as M
import qualified XMonad.StackSet as W
import Data.Bits ((.|.))
main = xmonad defaults
defaults = defaultConfig {
terminal = "urxvtc",
modMask = mod4Mask,
keys = \c -> mykeys c `M.union` keys defaultConfig c,
manageHook = manageDocks <+> manageHook defaultConfig,
logHook = ewmhDesktopsLogHook,
layoutHook = smartBorders $ ewmhDesktopsLayout $ avoidStruts $ layoutHook defaultConfig,
workspaces = ["1","2","3","4","5","6","7","8"],
focusedBorderColor = "#729fcf",
normalBorderColor = "#aaaaaa",
borderWidth = 2
} where
mykeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
[((modMask, xK_b), sendMessage ToggleStruts),
((modMask, xK_semicolon), sendMessage (IncMasterN (-1)))]
++
[((m .|. modMask, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [0x26,0xe9,0x22,0x27,0x28,0x2d,0xe8,0x5f,0xe7,0xe0],
(f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]