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/FloatNext.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/FloatNext.hs')
-rw-r--r-- | XMonad/Hooks/FloatNext.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/XMonad/Hooks/FloatNext.hs b/XMonad/Hooks/FloatNext.hs index 1d7fa86..7a555ea 100644 --- a/XMonad/Hooks/FloatNext.hs +++ b/XMonad/Hooks/FloatNext.hs @@ -39,7 +39,7 @@ module XMonad.Hooks.FloatNext ( -- * Usage import Prelude hiding (all) import XMonad -import XMonad.Util.ExtensibleState +import qualified XMonad.Util.ExtensibleState as XS import Control.Monad (join,guard) import Control.Applicative ((<$>)) @@ -48,13 +48,13 @@ import Control.Arrow (first, second) {- Helper functions -} _set :: ((a -> a) -> (Bool, Bool) -> (Bool, Bool)) -> a -> X () -_set f b = modifyState' (f $ const b) +_set f b = modify' (f $ const b) _toggle :: ((Bool -> Bool) -> (Bool, Bool) -> (Bool, Bool)) -> X () -_toggle f = modifyState' (f not) +_toggle f = modify' (f not) _get :: ((Bool, Bool) -> a) -> X a -_get f = f . getFloatMode <$> getState +_get f = XS.gets (f . getFloatMode) _pp :: ((Bool, Bool) -> Bool) -> String -> (String -> String) -> X (Maybe String) _pp f s st = (\b -> guard b >> Just (st s)) <$> _get f @@ -66,8 +66,8 @@ data FloatMode = FloatMode { getFloatMode :: (Bool,Bool) } deriving (Typeable) instance ExtensionClass FloatMode where initialValue = FloatMode (False,False) -modifyState' :: ((Bool,Bool) -> (Bool,Bool)) -> X () -modifyState' f = modifyState (FloatMode . f . getFloatMode) +modify' :: ((Bool,Bool) -> (Bool,Bool)) -> X () +modify' f = XS.modify (FloatMode . f . getFloatMode) -- $usage -- This module provides actions (that can be set as keybindings) @@ -95,8 +95,8 @@ modifyState' f = modifyState (FloatMode . f . getFloatMode) -- | This 'ManageHook' will selectively float windows as set -- by 'floatNext' and 'floatAllNew'. floatNextHook :: ManageHook -floatNextHook = do (next, all) <- liftX $ getFloatMode <$> getState - liftX $ putState $ FloatMode (False, all) +floatNextHook = do (next, all) <- liftX $ XS.gets getFloatMode + liftX $ XS.put $ FloatMode (False, all) if next || all then doFloat else idHook -- | @floatNext True@ arranges for the next spawned window to be |