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         ]