如何重启沙盒和自定义编译的 Xmonad

Question

我想通过 stack 将我的 xmonad.hs 移动到它自己的沙盒项目环境中来扩展它。事实证明，通过将 xmonad main 函数嵌入到使用 xmonad-entryhelper 的父 main 中，可以实现这种沙盒。按照项目自述文件中的说明，将 xmonad.hs 转换为：

main :: IO ()
main = do
  statBar <- spawnPipe myXMobar
  xmonad def
    { terminal            = myTerminal
    , focusFollowsMouse   = myFocusFollowsMouse
    , borderWidth         = myBorderWidth
    , modMask             = myModMask
    , workspaces          = myWorkspaces
    , normalBorderColor   = myNormalBorderColor
    , focusedBorderColor  = myFocusedBorderColor

    -- key bindings
    , keys                = myKeys
    --, mouseBindings       = myMouseBindings

    -- hooks, layouts
    , layoutHook          = myLayoutHook
    , manageHook          = manageHook def <+> myManageHook
    --, handleEventHook     = myEventHook
    , logHook             = myLogHook statBar >> setWMName "LG3D"
    --, startupHook         = myStartupHook
    }

到...

kaleidoscope :: IO ()
kaleidoscope = do
  statBar <- spawnPipe myXMobar
  xmonad def
    { terminal            = myTerminal
    , focusFollowsMouse   = myFocusFollowsMouse
    , borderWidth         = myBorderWidth
    , modMask             = myModMask
    , workspaces          = myWorkspaces
    , normalBorderColor   = myNormalBorderColor
    , focusedBorderColor  = myFocusedBorderColor

    -- key bindings
    , keys                = myKeys
    --, mouseBindings       = myMouseBindings

    -- hooks, layouts
    , layoutHook          = myLayoutHook
    , manageHook          = manageHook def <+> myManageHook
    --, handleEventHook     = myEventHook
    , logHook             = myLogHook statBar >> setWMName "LG3D"
    --, startupHook         = myStartupHook
    }

main :: IO ()
main = EH.withCustomHelper kaleidoscopeConfig
  where
  kaleidoscopeConfig = EH.defaultConfig
    { EH.run = kaleidoscope
    , EH.compile = \force -> EH.withLock ExitSuccess $ do
        let cmd =
              if force
                then "cd /home/oldmanmike/src/github.com/oldmanmike/kaleidoscope && stack clean && stack build"
                else "cd /home/oldmanmike/src/github.com/oldmanmike/kaleidoscope && stack build"
        EH.compileUsingShell cmd
    , EH.postCompile = EH.defaultPostCompile
    }

所以，我现在可以使用 xmonad --recompile 编译我的项目，并且在 .xmonad 中找到的二进制文件软链接到我的沙盒项目生成的二进制文件。

但由于某些原因，xmonad --restart 不再有效。是什么让它绊倒了？

命令本身似乎没有从 X 产生任何错误 - 它只是 returns 成功，甚至没有任何迹象表明发生了什么。我尝试在 shell 中使用 xmonad --restart 命令并将 xmonad 中的 mod-q 绑定到 spawnPipe "xmonad --restart" 或 io sendRestart - 两者似乎都不起作用。当我关闭我的 Xserver 并手动重新启动它时，所有更新都会显示出来，但现在热插拔更改似乎不起作用。它是否需要同时查看两个单独的二进制文件——当前的和新的？

编辑： 我一直在通过阅读 xmonad、xmonad-entryhelper 和 X11 的源代码来解决这个问题.我目前正在挑选这个：

sendRestart :: IO ()
sendRestart = do
    dpy <- openDisplay ""
    rw <- rootWindow dpy $ defaultScreen dpy
    xmonad_restart <- internAtom dpy "XMONAD_RESTART" False
    allocaXEvent $ \e -> do
        setEventType e clientMessage
        setClientMessageEvent e rw xmonad_restart 32 0 currentTime
        sendEvent dpy rw False structureNotifyMask e
    sync dpy False

我还不熟悉 X11 API，但让我感到奇怪的是 internAtom 函数以及 XMONAD_RESTART 在客户端消息中的用途。还有这个处理程序：

handle e@ClientMessageEvent { ev_message_type = mt } = do
    a <- getAtom "XMONAD_RESTART"
    if (mt == a)
        then restart "xmonad" True
        else broadcastMessage e

handle e = broadcastMessage e -- trace (eventName e) -- ignoring

所以我猜原子只是用于标识消息事件的临时字符串？当我运行重新启动时，我没有收到任何错误消息，所以它似乎一直到操作句柄：

restart :: String -> Bool -> X ()
restart prog resume = do
    broadcastMessage ReleaseResources
    io . flush =<< asks display
    let wsData = show . W.mapLayout show . windowset
        maybeShow (t, Right (PersistentExtension ext)) = Just (t, show ext)
        maybeShow (t, Left str) = Just (t, str)
        maybeShow _ = Nothing
        extState = return . show . catMaybes . map maybeShow . M.toList . extensibleState
    args <- if resume then gets (\s -> "--resume":wsData s:extState s) else return []
    catchIO (executeFile prog True args Nothing)

我怀疑这里有一个权限问题 xmonad-x86_64-linux 在 xmonad 的系统安装而不是我的沙盒中编译和启动它时已经回来了（它目前与 stack 生成的二进制文件有符号链接).

Answer 1

事实证明，问题是我无法使用堆栈生成的 xmonad 二进制文件，即使它在我的路径中并且 ~/.xmonad/xmonad-x86_64-linux 被符号链接到它。相反，我通过将 mod-q 绑定到以下内容来重新开始工作：

restart "/home/oldmanmike/.xmonad/xmonad-x86_64-linux" True

只要我给它绝对路径，它就会工作。

鉴于之前的观察，将以下内容放入我的 .xinitrc 会导致 X 崩溃，这在某种程度上是有道理的：

exec xmonad

相反，我不得不在初始启动时使用以下内容：

exec ~/.xmonad/xmonad-x86_64-linux

所以现在，调用 xmonad 似乎不太可靠，我应该将路径别名为 xmonad-x86_64-linux 并从现在开始调用它。

如何重启沙盒和自定义编译的 Xmonad

How to restart a sandboxed and custom-compiled Xmonad

haskell

xmonad