XMonad + Synergy - 当指针离开计算机时改变窗口边框状态

Question

我当前的 XMonad 设置很高兴地用漂亮的绿色边框突出显示了当前聚焦的窗口。

import XMonad.Layout.NoBorders
...
defaults = defaultConfig {
    focusFollowsMouse  = True,
    borderWidth        = 4,
    normalBorderColor  = "grey",
    focusedBorderColor = "green", ...
...
myLayout = avoidStruts $ smartBorders ( ...

但是，由于使用了 Synergy，当鼠标/焦点从多个屏幕之一移到相邻的计算机上时，XMonad 不会做出反应 - 我希望它将窗口标记为未聚焦，因为现在所有输入都转到另一台机器。

有人可以建议我可以使用一种机制吗？

我不知道如何从 Synergy 中获取“当前选定的计算机”的名称，但我们假设这是可能的（我总是可以修改 Synergy 的源代码）——我最想要的是一种在 XMonad 中改变焦点的方法。