diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 22:12:05 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 22:12:05 +0200 |
| commit | 595021f9a0b70483a7e26337bab8b2da68cd4757 (patch) | |
| tree | 3800d5ee909f007a77205f5484a732d12a988675 /XMonad/Hooks/DynamicHooks.hs | |
| parent | 29c6f55759fc8a080c7dddf7094ec0e3a896df39 (diff) | |
| download | XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.tar.gz XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.tar.xz XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.zip | |
Remove trailing whitespace from many modules
Ignore-this: 1e28ff0974578d329bd3d593c1a5125e
darcs-hash:20090705201205-1499c-581bd0bb43ab6096eccded6edbd54a7a2007b0d9.gz
Diffstat (limited to 'XMonad/Hooks/DynamicHooks.hs')
| -rw-r--r-- | XMonad/Hooks/DynamicHooks.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/XMonad/Hooks/DynamicHooks.hs b/XMonad/Hooks/DynamicHooks.hs index 002853d..9255b65 100644 --- a/XMonad/Hooks/DynamicHooks.hs +++ b/XMonad/Hooks/DynamicHooks.hs @@ -53,11 +53,11 @@ import Data.IORef -- You must include this @dynHooksRef@ value when using the functions in this -- module: -- --- > xmonad { keys = myKeys `Data.Map.union` Data.Map.fromList --- > [((modMask conf, xK_i), oneShotHook dynHooksRef --- > "FFlaunchHook" (className =? "firefox") (doShift "3") +-- > xmonad { keys = myKeys `Data.Map.union` Data.Map.fromList +-- > [((modMask conf, xK_i), oneShotHook dynHooksRef +-- > "FFlaunchHook" (className =? "firefox") (doShift "3") -- > >> spawn "firefox") --- > ,((modMask conf, xK_u), addDynamicHook dynHooksRef +-- > ,((modMask conf, xK_u), addDynamicHook dynHooksRef -- > (className =? "example" --> doFloat)) -- > ,((modMask conf, xK_y), updatePermanentHook dynHooksRef -- > (const idHook))) ] -- resets the permanent hook. @@ -66,7 +66,7 @@ import Data.IORef data DynamicHooks = DynamicHooks { transients :: [(Query Bool, ManageHook)] , permanent :: ManageHook } - + -- | Creates the 'IORef' that stores the dynamically created 'ManageHook's. initDynamicHooks :: IO (IORef DynamicHooks) @@ -80,7 +80,7 @@ initDynamicHooks = newIORef (DynamicHooks { transients = [], -- doFloat and doIgnore are idempotent. -- | Master 'ManageHook' that must be in your @xmonad.hs@ 'ManageHook'. dynamicMasterHook :: IORef DynamicHooks -> ManageHook -dynamicMasterHook ref = return True --> +dynamicMasterHook ref = return True --> (ask >>= \w -> liftX (do dh <- io $ readIORef ref (Endo f) <- runQuery (permanent dh) w @@ -99,7 +99,7 @@ addDynamicHook ref m = updateDynamicHook ref (<+> m) -- | Modifies the permanent 'ManageHook' with an arbitrary function. updateDynamicHook :: IORef DynamicHooks -> (ManageHook -> ManageHook) -> X () -updateDynamicHook ref f = +updateDynamicHook ref f = io $ modifyIORef ref $ \dh -> dh { permanent = f (permanent dh) } @@ -108,10 +108,10 @@ updateDynamicHook ref f = -- -- > className =? "example" --> doFloat -- --- you must call 'oneShotHook' as +-- you must call 'oneShotHook' as -- -- > oneShotHook dynHooksRef (className =? "example) doFloat --- +-- oneShotHook :: IORef DynamicHooks -> Query Bool -> ManageHook -> X () oneShotHook ref q a = io $ modifyIORef ref |