現在のレイアウト名での挙動を設定する (ManageHook)

特定のレイアウトでの挙動を指定できます。
例は、"Float" という名前のレイアウトでは、ウィンドウを中央に Float させるという意味不明なもの。

layoutName.hs

import qualified XMonad.StackSet as SS

layoutName :: Query String
layoutName = liftX $ gets (description . SS.layout . SS.workspace . SS.current . windowset)

myManageHook :: ManageHook
myManageHook =
  composeAll
    [ layoutName =? "Float"             --> doCenterFloat
    .... ]