From 9f35e9a690ce9a7a7990567b0bbb0724f9618ac4 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Mon, 4 Jan 2010 15:44:48 +0100 Subject: Style changes in L.Minimize Ignore-this: 5f64c0717e24ed6cbe2c9fad50bf78a3 darcs-hash:20100104144448-1499c-05d4781d06189dbeb59751b2f9b12887839ae653.gz --- XMonad/Layout/Minimize.hs | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'XMonad/Layout') diff --git a/XMonad/Layout/Minimize.hs b/XMonad/Layout/Minimize.hs index 7057f67..50e3ba2 100644 --- a/XMonad/Layout/Minimize.hs +++ b/XMonad/Layout/Minimize.hs @@ -64,7 +64,7 @@ import qualified Data.Map as M data Minimize a = Minimize [Window] (M.Map Window W.RationalRect) deriving ( Read, Show ) minimize :: LayoutClass l Window => l Window -> ModifiedLayout Minimize l Window -minimize = ModifiedLayout $ Minimize [] (M.empty) +minimize = ModifiedLayout $ Minimize [] M.empty data MinimizeMsg = MinimizeWin Window | RestoreMinimizedWin Window @@ -73,7 +73,7 @@ data MinimizeMsg = MinimizeWin Window instance Message MinimizeMsg instance LayoutModifier Minimize Window where - modifierDescription (Minimize _ _) = "Minimize" + modifierDescription _ = "Minimize" modifyLayout (Minimize minimized _) wksp rect = do let stack = W.stack wksp @@ -81,9 +81,7 @@ instance LayoutModifier Minimize Window where runLayout (wksp {W.stack = filtStack}) rect handleMess (Minimize minimized unfloated) m - | Just (MinimizeWin w) <- fromMessage m = - if not (w `elem` minimized) - then do + | Just (MinimizeWin w) <- fromMessage m, not (w `elem` minimized) = do BW.focusDown ws <- gets windowset case M.lookup w (W.floating ws) of @@ -91,8 +89,6 @@ instance LayoutModifier Minimize Window where Just r -> do (windows . W.sink) w return $ Just $ Minimize (w:minimized) (M.insert w r unfloated) - - else return Nothing | Just (RestoreMinimizedWin w) <- fromMessage m = case M.lookup w unfloated of Nothing -> return $ Just $ Minimize (minimized \\ [w]) unfloated -- cgit v1.2.3