XMonad - Refactor - Factorize behaviour