docksEventHook :: Event -> X All
docksEventHook (MapNotifyEvent {ev_window = w}) = do
    whenX ((not `fmap` (isClient w)) <&&> runQuery checkDock w) $ do
        broadcastMessage ClearGapCache
        refresh
    return (All True)
docksEventHook :: Event -> X All
docksEventHook (MapNotifyEvent {ev_window = w}) = do
    whenX ((not `fmap` (isClient w)) <&&> runQuery checkDock w) $ do
        broadcastMessage ClearGapCache
        refresh
    return (All True)
docksEventHook (MapNotifyEvent {ev_window = w}) = do
    whenX ((not `fmap` (isClient w)) <&&> runQuery checkDock w) $ do
        broadcastMessage ClearGapCache
        refresh
    return (All True)