XMonad.Hooks.CurrentWorkspaceOnTop