XMonad: fix completion function (really ugly).