-- | True if the given window is the root window
isRoot :: Window -> X Bool
isRoot w = (w==) <$> asks theRoot
isRoot :: Window -> X Bool
isRoot w = (w==) <$> asks theRoot
isRoot w = (w==) <$> asks theRoot