mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
38 lines
1.1 KiB
Haskell
38 lines
1.1 KiB
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Util.Minimize
|
|
-- Description : Common utilities for window minimizing\/maximizing.
|
|
-- Copyright : (c) Bogdan Sinitsyn (2016)
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : bogdan.sinitsyn@gmail.com
|
|
-- Stability : unstable
|
|
-- Portability : not portable
|
|
--
|
|
-- Stores some common utilities for modules used for window minimizing/maximizing
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
module XMonad.Util.Minimize
|
|
( RectMap
|
|
, Minimized(..)
|
|
) where
|
|
|
|
import XMonad
|
|
import qualified XMonad.StackSet as W
|
|
|
|
import qualified Data.Map as M
|
|
|
|
type RectMap = M.Map Window (Maybe W.RationalRect)
|
|
|
|
data Minimized = Minimized
|
|
{ rectMap :: RectMap
|
|
, minimizedStack :: [Window]
|
|
}
|
|
deriving (Eq, Read, Show)
|
|
|
|
instance ExtensionClass Minimized where
|
|
initialValue = Minimized { rectMap = M.empty
|
|
, minimizedStack = []
|
|
}
|
|
extensionType = PersistentExtension
|