aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2010-01-04 15:44:48 +0100
committerAdam Vogt <vogt.adam@gmail.com>2010-01-04 15:44:48 +0100
commit9f35e9a690ce9a7a7990567b0bbb0724f9618ac4 (patch)
tree366f692581197733e2473b4cfd605045201781bd /XMonad
parent54d9134e805701d4ca66a7abcc5cf26fab84db34 (diff)
downloadXMonadContrib-9f35e9a690ce9a7a7990567b0bbb0724f9618ac4.tar.gz
XMonadContrib-9f35e9a690ce9a7a7990567b0bbb0724f9618ac4.tar.xz
XMonadContrib-9f35e9a690ce9a7a7990567b0bbb0724f9618ac4.zip
Style changes in L.Minimize
Ignore-this: 5f64c0717e24ed6cbe2c9fad50bf78a3 darcs-hash:20100104144448-1499c-05d4781d06189dbeb59751b2f9b12887839ae653.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/Minimize.hs10
1 files changed, 3 insertions, 7 deletions
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