如何以编程方式获取列表工作区及其关联的 windows 与 Xmonad？

Question

我想创建自己的工作区查看器。如何获取工作区列表及其相应的 window 标题？

我似乎无法在文档中找到获取这些值的任何相关函数。

Answer 1

可以通过以下方式完成（主要功能是workspacesGrouped :: X [(WorkspaceId, [String])]）：

import           XMonad.Util.XUtils
import           XMonad
import           XMonad.Core
import           XMonad.Config.Prime
import           XMonad.Util.Font
import           XMonad.StackSet               as W
import           FileLogger
import           Control.Monad
import           Data.List
import Foreign.C.String

workspacesGrouped :: X [(WorkspaceId, [String])]
workspacesGrouped = do
  ws <- gets windowset
  let x = map (W.workspace) (W.current ws : W.visible ws)
  let y = (W.hidden ws)
  sequence $ fmap (\v -> fmap ((,) $ W.tag v) (getWorkspaceWindowTitles v)) $ x ++ y


getWorkspaceWindowTitles :: Workspace i l Window -> X [String]
getWorkspaceWindowTitles w = do
  withDisplay $ \d ->
    (liftIO $ forM
      (integrate' $ stack w)
      (\z -> getWindowTitle z d)
    )

getWindowTitle :: Window -> Display -> IO String
getWindowTitle w d = getTextProperty d w wM_NAME >>= (peekCString . tp_value)

如何以编程方式获取列表工作区及其关联的 windows 与 Xmonad？

How to programmatically get a list workspaces with their associated windows with Xmonad?

xmonad