diff options
author | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-11-16 18:10:13 +0100 |
---|---|---|
committer | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-11-16 18:10:13 +0100 |
commit | e8c2239f6fe58b4a9bacd3bfed984841bb860a27 (patch) | |
tree | 8647006ee46087129f1ef4249f8f0265a9bca602 /XMonad/Hooks/UrgencyHook.hs | |
parent | a64225bbe26df7d9873ac1d4c8143e3146045b7a (diff) | |
download | XMonadContrib-e8c2239f6fe58b4a9bacd3bfed984841bb860a27.tar.gz XMonadContrib-e8c2239f6fe58b4a9bacd3bfed984841bb860a27.tar.xz XMonadContrib-e8c2239f6fe58b4a9bacd3bfed984841bb860a27.zip |
Changed interface of X.U.ExtensibleState
Ignore-this: 9a830f9341e461628974890bab0bd65b
Changed the interface of X.U.ExtensibleState to resemble that of
Control.Monad.State and modified the modules that use it accordingly.
darcs-hash:20091116171013-7f603-0631dc163d78785b123bc10164ee3295add28b60.gz
Diffstat (limited to 'XMonad/Hooks/UrgencyHook.hs')
-rw-r--r-- | XMonad/Hooks/UrgencyHook.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index 6a150c8..7dcdf18 100644 --- a/XMonad/Hooks/UrgencyHook.hs +++ b/XMonad/Hooks/UrgencyHook.hs @@ -72,7 +72,7 @@ import XMonad import qualified XMonad.StackSet as W import XMonad.Util.Dzen (dzenWithArgs, seconds) -import XMonad.Util.ExtensibleState +import qualified XMonad.Util.ExtensibleState as XS import XMonad.Util.NamedWindows (getName) import XMonad.Util.Timer (TimerId, startTimer, handleTimer) @@ -275,14 +275,14 @@ clearUrgents = adjustUrgents (const []) >> adjustReminders (const []) -- it, or 'withUrgents', in your custom logHook, to display the workspaces that -- contain urgent windows. readUrgents :: X [Window] -readUrgents = fromUrgents <$> getState +readUrgents = XS.gets fromUrgents -- | An HOF version of 'readUrgents', for those who prefer that sort of thing. withUrgents :: ([Window] -> X a) -> X a withUrgents f = readUrgents >>= f adjustUrgents :: ([Window] -> [Window]) -> X () -adjustUrgents f = modifyState $ onUrgents f +adjustUrgents = XS.modify . onUrgents type Interval = Rational @@ -301,10 +301,10 @@ instance ExtensionClass [Reminder] where -- | Stores the list of urgency reminders. readReminders :: X [Reminder] -readReminders = getState +readReminders = XS.get adjustReminders :: ([Reminder] -> [Reminder]) -> X () -adjustReminders f = modifyState f +adjustReminders = XS.modify clearUrgency :: Window -> X () clearUrgency w = adjustUrgents (delete w) >> adjustReminders (filter $ (w /=) . window) |