Resposta extremamente tardia, mas talvez ainda útil para alguém:
As funções de que você precisa são: windows $ W.swapMaster . W.focusDown
, em que: swapMaster
e focusDown
são importados de XMonad.StackSet
:
import qualified XMonad.StackSet as W
Um mínimo xmonad.hs
:
import XMonad
import XMonad.Util.EZConfig
import qualified Data.Map as M
import qualified XMonad.StackSet as W
main = xmonad $ def 'additionalKeysP' myKeys
myKeys = [ ("M-a", windows $ W.swapMaster . W.focusDown )]
Aqui, o atalho de teclado é Mod-a
.