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. самый.