import XMonad.Utils.EZConfig
import XMonad.Layout.Decoration
import qualified XMonad.Layout.TabbedModifier as Tab
import qualified XMonad.Layout.WindowNavigation as Nav
...
deco = defaultTheme {activeColor = myFocusedBorderColor,
activeTextColor = "#000000",
fontName = "xft:Arial-10"}
layoutHook = Tab.modify shrinkText deco $ tall ||| mirror ||| ...
...
main = xmonad defaultConfig {...} `additionalKeysP` [ ...
-- Tab/Untab
("M-M1-j", sendMessage $ Tab.pull Nav.L),
("M-M1-l", sendMessage $ Tab.pull Nav.R),
("M-M1-k", sendMessage $ Tab.pull Nav.U),
("M-M1-h", sendMessage $ Tab.pull Nav.D),
... ]