Youtube fullscreen with xmonad

Source

import XMonad.Hooks.EwmhDesktops

main = do
    xmonad $ ewmh defaultConfig
        ...
        , handleEventHook = fullscreenEventHook <+> handleEventHook defaultConfig