From e2ddfd99ab233b95958d4e906740064e8abc0cfb Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Wed, 11 Nov 2009 03:27:02 +0100
Subject: Trim whitespace in H.FloatNext
Ignore-this: 1ad52678246fa1ac951169c2356ce10b
darcs-hash:20091111022702-1499c-311ad3606fe5da6f4bf30ff1952f35204577327f.gz
---
XMonad/Hooks/FloatNext.hs | 6 +-----
1 file changed, 1 insertion(+), 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
--
cgit v1.2.3