+{-# LANGUAGE FlexibleContexts #-}
import System.IO
import XMonad
+import XMonad.Actions.PhysicalScreens
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ICCCMFocus
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
- [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
+ [((m .|. modm, key), f sc)
| (key, sc) <- zip [xK_o, xK_e, xK_u] [0..]
- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
+ , (f, m) <- [(viewScreen, 0), (sendToScreen, shiftMask)]
]
++
myTitleTheme = defaultTheme {
fontName = "xft:sans-serif:size=10",
- decoHeight = 22
+ decoHeight = 24
}
createLayout name layout =