在Linux上使用Haskell获取前台窗口标题

Question

在Windows下，可以使用：getForegroundWindow

获取前景窗口标题

在Linux上使用Haskell是否有相同的方法来获取前台窗口标题？ （最好不使用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