diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-11-11 03:27:02 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-11-11 03:27:02 +0100 |
| commit | e2ddfd99ab233b95958d4e906740064e8abc0cfb (patch) | |
| tree | c7beab6eeb9a5327029aa8eaadb1ad83fb040949 /XMonad | |
| parent | 3758137f7534652d68a80f427090e53301631816 (diff) | |
| download | XMonadContrib-e2ddfd99ab233b95958d4e906740064e8abc0cfb.tar.gz XMonadContrib-e2ddfd99ab233b95958d4e906740064e8abc0cfb.tar.xz XMonadContrib-e2ddfd99ab233b95958d4e906740064e8abc0cfb.zip | |
Trim whitespace in H.FloatNext
Ignore-this: 1ad52678246fa1ac951169c2356ce10b
darcs-hash:20091111022702-1499c-311ad3606fe5da6f4bf30ff1952f35204577327f.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Hooks/FloatNext.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/XMonad/Hooks/FloatNext.hs b/XMonad/Hooks/FloatNext.hs index 451939f..1d7fa86 100644 --- a/XMonad/Hooks/FloatNext.hs +++ b/XMonad/Hooks/FloatNext.hs @@ -92,7 +92,6 @@ modifyState' f = modifyState (FloatMode . f . getFloatMode) -- -- > , ((modm, xK_r), toggleFloatAllNew) - -- | This 'ManageHook' will selectively float windows as set -- by 'floatNext' and 'floatAllNew'. floatNextHook :: ManageHook @@ -100,7 +99,6 @@ floatNextHook = do (next, all) <- liftX $ getFloatMode <$> getState liftX $ putState $ FloatMode (False, all) if next || all then doFloat else idHook - -- | @floatNext True@ arranges for the next spawned window to be -- sent to the floating layer, @floatNext False@ cancels it. floatNext :: Bool -> X () @@ -117,7 +115,6 @@ floatAllNew = _set second toggleFloatAllNew :: X () toggleFloatAllNew = _toggle second - -- | Whether the next window will be set floating willFloatNext :: X Bool willFloatNext = _get fst @@ -126,7 +123,6 @@ willFloatNext = _get fst willFloatAllNew :: X Bool willFloatAllNew = _get snd - -- $pp -- The following functions are used to display the current -- state of 'floatNext' and 'floatAllNew' in your @@ -153,4 +149,4 @@ willFloatAllNewPP :: (String -> String) -> X (Maybe String) willFloatAllNewPP = _pp snd "All" runLogHook :: X () -runLogHook = join $ asks $ logHook . config
\ No newline at end of file +runLogHook = join $ asks $ logHook . config |