Facility for acking/unacking log entries
[gregoa/zavai.git] / hooks / xmonad.hs.fil
1 -- to use this, copy/sym-link it to ~/.xmonad/xmonad.hs
2
3 import XMonad
4 import XMonad.Hooks.ManageDocks
5 import XMonad.Util.EZConfig(additionalKeys)
6
7 myManageHook = composeAll
8     [ className =? "XVkbd"     --> doIgnore
9     , className =? "stalonetray" --> doIgnore
10     , className =? "trayer" --> doIgnore
11     ]
12
13 main = do
14     xmonad $ defaultConfig
15         { manageHook = manageDocks <+> myManageHook -- make sure to include myManageHook definition from above
16                         <+> manageHook defaultConfig
17         , layoutHook = avoidStruts $ Full
18         } `additionalKeys`
19         [ ((mod1Mask .|. shiftMask, xK_t), spawn "transset-df -n xvkbd .4") -- AltShift-t make keyboard transparent
20         ]