myManageHook = FS.fullscreenManageHook <+> composeAll
    [ className =? "MPlayer"        --> doFloat
    , resource  =? "desktop_window" --> doIgnore
    , resource  =? "kdesktop"       --> doIgnore
    , className =? "Pinentry" --> doFloat
    , className =? "Pavucontrol" --> doFloat
    , className =? "Vncviewer" --> doFloat
    , className =? "sun-awt-X11-XFramePeer" --> doFloat
    , className =? "java-lang-Thread" --> doFloat
    , className =? "xfreerdp" --> unfloat
    , title =? "QEMU" --> doFloat
    , title =? "Authy" --> doFloat
    ]
  where unfloat = ask >>= doF . W.sink

------------------------------------------------------------------------
-- Event handling

-- * EwmhDesktops users should change this to ewmhDesktopsEventHook
--
-- Defines a custom handler function for X Events. The function should
-- return (All True) if the default handler is to be run afterwards. To
-- combine event hooks use mappend or mconcat from Data.Monoid.
--
myManageHook = FS.fullscreenManageHook <+> composeAll
    [ className =? "MPlayer"        --> doFloat
    , resource  =? "desktop_window" --> doIgnore
    , resource  =? "kdesktop"       --> doIgnore
    , className =? "Pinentry" --> doFloat
    , className =? "Pavucontrol" --> doFloat
    , className =? "Vncviewer" --> doFloat
    , className =? "sun-awt-X11-XFramePeer" --> doFloat
    , className =? "java-lang-Thread" --> doFloat
    , className =? "xfreerdp" --> unfloat
    , title =? "QEMU" --> doFloat
    , title =? "Authy" --> doFloat
    ]
  where unfloat = ask >>= doF . W.sink

------------------------------------------------------------------------
-- Event handling

-- * EwmhDesktops users should change this to ewmhDesktopsEventHook
--
-- Defines a custom handler function for X Events. The function should
-- return (All True) if the default handler is to be run afterwards. To
-- combine event hooks use mappend or mconcat from Data.Monoid.
--
myManageHook = FS.fullscreenManageHook <+> composeAll
    [ className =? "MPlayer"        --> doFloat
    , resource  =? "desktop_window" --> doIgnore
    , resource  =? "kdesktop"       --> doIgnore
    , className =? "Pinentry" --> doFloat
    , className =? "Pavucontrol" --> doFloat
    , className =? "Vncviewer" --> doFloat
    , className =? "sun-awt-X11-XFramePeer" --> doFloat
    , className =? "java-lang-Thread" --> doFloat
    , className =? "xfreerdp" --> unfloat
    , title =? "QEMU" --> doFloat
    , title =? "Authy" --> doFloat
    ]
  where unfloat = ask >>= doF . W.sink

------------------------------------------------------------------------
-- Event handling

-- * EwmhDesktops users should change this to ewmhDesktopsEventHook
--
-- Defines a custom handler function for X Events. The function should
-- return (All True) if the default handler is to be run afterwards. To
-- combine event hooks use mappend or mconcat from Data.Monoid.
--