[xmonad] focusedHasProperty function

I am using this like so to prevent accidentally closing my term: , ((modMask .|. shiftMask, xK_c), focusedHasProperty (ClassName "Roxterm") >>= flip unless kill1) Hopefully this will be useful to someone else.