import qualified XMonad.StackSet as W
import quallified Data.Map as M

raiseHook :: X ()
raiseHook = do
  ws <- gets windowset
  withFocused $ \w -> do
    when (isFloat w ws) (focus w >> promote)
  where isFloat w ss = M.member $ W.floating ss