XMonad MouseResizingTile 自動ウィンドウの再調整

mod-,デフォルトとキーをサポートし続けながら、マスターウィンドウのウィンドウ数をスレーブウィンドウのウィンドウ数と同じか近くに自動的に更新するにはどうすればよいですかmod-.。私は私が望む方法でウィンドウを自動的に整列するようにXMonadを設定しようとしていますが、これはまだ手動で頻繁に調整する領域の1つです。

IncMasterNどの列に多くのウィンドウがあるか（または少なくとも起動するのに十分です）に応じて、開く/閉じるメッセージを送信したいのですが、実行時にそれを見つけるnmaster方法と以前の方法は不明です。これらのメッセージを送信しようとすると、無限ループが発生するようです（以下の抜粋を参照してください。CPU使用率が100％に達し、XMonadがまだログフックにかかっているかのように応答を停止します）。どのようなヒントがありますか？

main = do
    xmonad $ gnomeConfig {
        logHook    =  balancePanes
    } where
        balancePanes :: X()
        balancePanes = do
            ws <- gets windowset
            let howMany = windowCount ws in do
                when (howMany == 3) (sendMessage (IncMasterN 1))