diff options
author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-09-29 01:13:20 +0200 |
---|---|---|
committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-09-29 01:13:20 +0200 |
commit | e3e0170482af08a958f1f88476b99c825e5cd16c (patch) | |
tree | 43dbf88e182308f4e36de215cb897c5eb2def73e /XMonad/Layout | |
parent | 7c19f44a597d4b80bacb6e232049c5dda105853d (diff) | |
download | XMonadContrib-e3e0170482af08a958f1f88476b99c825e5cd16c.tar.gz XMonadContrib-e3e0170482af08a958f1f88476b99c825e5cd16c.tar.xz XMonadContrib-e3e0170482af08a958f1f88476b99c825e5cd16c.zip |
LayoutModifier to minimize windows (re-recorded from Bluetile repo)
Ignore-this: 45830f2bf3bb8473c569582593844253
darcs-hash:20090928231320-594c5-512055636747503e2bbcb84cd59b927867070dfa.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout/Minimize.hs | 95 |
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 |