Merge pull request #127 from bennofs/patch-1

DynamicProperty: execute other hooks
This commit is contained in:
geekosaur
2016-12-09 23:10:06 -05:00
committed by GitHub

View File

@@ -58,8 +58,8 @@ dynamicPropertyChange prop hook PropertyEvent { ev_window = w, ev_atom = a, ev_p
when (ps == propertyNewValue && a == pa) $ do
g <- appEndo <$> userCodeDef (Endo id) (runQuery hook w)
windows g
return (All False) -- so anything else also processes it
dynamicPropertyChange _ _ _ = return (All False)
return mempty -- so anything else also processes it
dynamicPropertyChange _ _ _ = return mempty
-- | A shorthand for the most common case, dynamic titles
dynamicTitle :: ManageHook -> Event -> X All