xmonad で、特定のアプリケーションにフォーカスを合わせるためにキーボード ショートカットをバインドするにはどうすればよいですか?

xmonad で、特定のアプリケーションにフォーカスを合わせるためにキーボード ショートカットをバインドするにはどうすればよいですか?

Modたとえば、クラス名が「Emacs」であるウィンドウに移動するように+ Shift+をバインドしてm、どのワークスペースにいて、どのウィンドウにフォーカスしているかに関係なく、そのアプリケーションに即座に切り替えられるようにします。

答え1

https://stackoverflow.com/a/50427647/1663462

module WindowFinder where

import XMonad
import qualified XMonad.StackSet as W
import Control.Monad
import Data.Bool  (bool)

findWindows :: String -> X [Window]
findWindows name = do
  withWindowSet $ (\ws -> do
    forM (W.allWindows ws)
      (\w -> do
            s <- withDisplay $ \d -> fmap resClass . liftIO $ getClassHint d w
            return $ bool [] [w] (s == name) :: X [Window]
      ) >>= return . join
    )

上記のモジュールをインポートすると、次のキーバインディングを設定できます。

          , ((modm, xK_c), do
            win' <- findWindows "Chromium"
            when (length win' > 0)
              (windows $ W.focusWindow $ head win')
          )

関連情報