在 Linux 上使用 Haskell 获取前景 window 标题

Question

在 Windows 下，可以使用以下方法获取前景 window 标题：getForegroundWindow

在 Linux 上使用 Haskell 是否有等效的方法来获取前景 window 标题？ （最好不使用 FFI）

Answer 1

使用 X11 库：

import Graphics.X11
import Graphics.X11.Xlib.Extras

main = do
  d <- openDisplay ""
  (w, _) <- getInputFocus d
  s <- fetchName d w
  print s