LayoutModifier to minimize windows (re-recorded from Bluetile repo)

Ignore-this: 45830f2bf3bb8473c569582593844253

darcs-hash:20090928231320-594c5-512055636747503e2bbcb84cd59b927867070dfa.gz

1 files changed, 95 insertions, 0 deletions

diff --git a/XMonad/Layout/Minimize.hs b/XMonad/Layout/Minimize.hs
new file mode 100644
index 0000000..d145d5c
--- /dev/null
+++ b/XMonad/Layout/Minimize.hs
@@ -0,0 +1,95 @@
+{-# OPTIONS_GHC -fglasgow-exts #-} -- For deriving Data/Typeable
+----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonad.Layout.Minimize
+-- Copyright   :  (c) Jan Vornberger 2009
+-- License     :  BSD3-style (see LICENSE)
+--
+-- Maintainer  :  jan.vornberger@informatik.uni-oldenburg.de
+-- Stability   :  unstable
+-- Portability :  not portable
+--
+-- Makes it possible to minimize windows, temporarily removing them
+-- from the layout until they are restored.
+--
+-----------------------------------------------------------------------------
+
+module XMonad.Layout.Minimize (
+        -- * Usage
+        -- $usage
+        minimize,
+        MinimizeMsg(..)
+    ) where
+
+import XMonad
+import qualified XMonad.StackSet as W
+import XMonad.Layout.LayoutModifier
+import XMonad.Layout.BoringWindows as BW
+import Data.List
+
+-- $usage
+-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
+--
+-- > import XMonad.Layout.Minimize
+--
+-- Then edit your @layoutHook@ by adding the Minimize layout modifier:
+--
+-- > myLayouts = minimize (Tall 1 (3/100) (1/2)) ||| Full ||| etc..
+-- > main = xmonad defaultConfig { layoutHook = myLayouts }
+--
+-- For more detailed instructions on editing the layoutHook see:
+--
+-- "XMonad.Doc.Extending#Editing_the_layout_hook"
+--
+-- In the key-bindings, do something like:
+--
+-- >        , ((modMask',               xK_m     ), withFocused (\f -> sendMessage (MinimizeWin f)))
+-- >        , ((modMask' .|. shiftMask, xK_m     ), sendMessage RestoreNextMinimizedWin)
+--
+-- The first action will minimize the focused window, while the second one will restore
+-- the next minimized window.
+--
+-- For detailed instruction on editing the key binding see:
+--
+-- "XMonad.Doc.Extending#Editing_key_bindings".
+--
+-- The module is designed to work together with XMonad.Layout.BoringWindows so
+-- that minimized windows are marked as boring and will be skipped when switching
+-- the focused window. See the documentation for BoringWindows and use the boringAuto
+-- function, to automatically mark minimized windows as boring.
+--
+-- Also see XMonad.Hooks.RestoreMinimized if you want to be able to restore
+-- minimized windows from your taskbar.
+
+data Minimize a = Minimize [Window] deriving ( Read, Show )
+minimize :: LayoutClass l Window => l Window -> ModifiedLayout Minimize l Window
+minimize = ModifiedLayout $ Minimize []
+
+data MinimizeMsg = MinimizeWin Window
+                    | RestoreMinimizedWin Window
+                    | RestoreNextMinimizedWin
+                    deriving (Typeable, Eq)
+instance Message MinimizeMsg
+
+instance LayoutModifier Minimize Window where
+    modifierDescription (Minimize _) = "Minimize"
+
+    modifyLayout (Minimize minimized) wksp rect = do
+        let stack = W.stack wksp
+            filtStack = stack >>=W.filter (\w -> not (w `elem` minimized))
+        runLayout (wksp {W.stack = filtStack}) rect
+
+    handleMess (Minimize minimized) m = case fromMessage m of
+        Just (MinimizeWin w)
+          | not (w `elem` minimized) -> do
+                BW.focusDown
+                return $ Just $ Minimize (w:minimized)
+          | otherwise               -> return Nothing
+        Just (RestoreMinimizedWin w) ->
+            return $ Just $ Minimize (minimized \\ [w])
+        Just (RestoreNextMinimizedWin)
+          | not (null minimized)    -> do
+                focus (head minimized)
+                return $ Just $ Minimize (tail minimized)
+          | otherwise               -> return Nothing
+        _ -> return Nothing