-- to use this, copy/sym-link it to ~/.xmonad/xmonad.hs

import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig(additionalKeys)

myManageHook = composeAll
    [ className =? "XVkbd"     --> doIgnore
    , className =? "stalonetray" --> doIgnore
    , className =? "trayer" --> doIgnore
    ]

main = do
    xmonad $ defaultConfig
        { manageHook = manageDocks <+> myManageHook -- make sure to include myManageHook definition from above
                        <+> manageHook defaultConfig
        , layoutHook = avoidStruts $ Full
        } `additionalKeys`
        [ ((mod1Mask .|. shiftMask, xK_t), spawn "transset-df -n xvkbd .4") -- AltShift-t make keyboard transparent
        ]