代码之家 › 专栏 › 技术社区 › Chris Stryczynski

如何用Xmonad以编程方式获取一个列表工作区及其相关窗口?

xmonad

0

Chris Stryczynski · 技术社区 · 6 年前

我想创建我自己的工作区查看器。如何获得工作区列表及其相应的窗口标题?

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

1 回复 | 直到 6 年前

1

0

Chris Stryczynski 6 年前

可以通过以下方式完成(主要功能是 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)