-- $xmonad
--
-- A very small sample of what you can log since you have access to X. For
-- example you can loggerize the number of windows on each workspace, or
-- titles on other workspaces, or the id of the previously focused workspace....

-- | Get the title (name) of the focused window.
logTitle :: Logger
logTitle = withWindowSet $ traverse (fmap show . getName) . W.peek
logTitle :: Logger
logTitle = withWindowSet $ traverse (fmap show . getName) . W.peek
logTitle = withWindowSet $ traverse (fmap show . getName) . W.peek