mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
f732082fdc
Typeable has been automatically derived for every type since GHC 7.10, so remove these obsolete derivations. This also allows us to get rid of the `DeriveDataTypeable` pragma quite naturally. Related: https://github.com/xmonad/xmonad/pull/299 (xmonad/xmonad@9e5b16ed8a) Related: bd5b969d9ba24236c0d5ef521c0397390dbc4b37 Fixes: https://github.com/xmonad/xmonad-contrib/issues/548
37 lines
1012 B
Haskell
37 lines
1012 B
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Util.Minimize
|
|
-- 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
|