主页 / unix / 问题 / 571208
Accepted
ninjagecko
Asked: 2020-03-05 17:45:54 +0800 CST

如何调试 XMonad.Layout.NoBorders.smartBorders 不起作用？

  • 772

由于重置我的 xorg.conf 以使用第二个监视器，XMonad.Layout.NoBorders.smartBorders不再起作用：即使在任一监视器上只打开一个窗口并且没有停靠，主窗口仍然有边框。

可能有人知道如何进行调试吗？例如通过将 XMonad 堆栈集转储到标准输出？谢谢你。

编辑：或者，假设 smartBorders 的实现不正确或与其他 layoutHooks 有奇怪的交互，或者我犯了错误，是否有一种快速简便的方法来编写一个检查 XMonad 堆栈集的 layoutHook，检查是否length the_current_stack(当前屏幕中的窗口）为 1，然后将布局动态切换为全屏（如果打开新窗口，反之亦然）？

编辑：noBorders似乎工作。其他模块如smartBorder标志XMonad.Layout.Spacing.smartBorder在多屏模式下工作没有问题。上面的代码底部似乎有一个部分涉及“歧义”组合器。

xmonad haskell

1 个回答

  1. Best Answer

    您可以定义一个X ()可以通过键绑定触发的。

    例如：

    import System.IO

debugStuff :: X ()
debugStuff = withWindowSet (\ws -> do
    liftIO $ print ws
    liftIO $ logToTmpFile $ show ws 
  )

myAppendFile :: FilePath -> String -> IO ()
myAppendFile f s = do
  withFile f AppendMode $ \h -> do
    hPutStrLn h s

logToTmpFile :: String -> IO ()
logToTmpFile = myAppendFile "/tmp/xmonad.log" . (++ "\n")

    绑定debugStuff到键绑定。

    • 1

相关问题