diff options
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 |