import XMonad Utils EZConfig import XMonad Layout Decoration import qu

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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),
... ]