diff options
Diffstat (limited to 'MetaTile/StackSet.hs')
-rw-r--r-- | MetaTile/StackSet.hs | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/MetaTile/StackSet.hs b/MetaTile/StackSet.hs index 907840c..d37f7c8 100644 --- a/MetaTile/StackSet.hs +++ b/MetaTile/StackSet.hs @@ -24,7 +24,7 @@ module MetaTile.StackSet ( -- ** Master and Focus -- $focus - StackSet(..), Workspace(..), Screen(..), Stack(..), RationalRect(..), + StackSet(..), Workspace(..), Screen(..), Stack(..), -- * Construction -- $construction new, view, greedyView, @@ -148,10 +148,6 @@ data Screen i l a sid sd = Screen { screenWorkspace :: !(Workspace i l a) data Workspace i l a = Workspace { tag :: !i, layout :: l, stack :: Maybe (Stack a) } deriving (Show, Read, Eq) --- | A structure for window geometries -data RationalRect = RationalRect Rational Rational Rational Rational - deriving (Show, Read, Eq) - -- | -- A stack is a cursor onto a window list. -- The data structure tracks focus by construction, and @@ -481,17 +477,6 @@ delete w s = mapWorkspace removeFromWorkspace s where removeFromWorkspace ws = ws { stack = stack ws >>= filter (/=w) } ------------------------------------------------------------------------ - --- | Given a window, and its preferred rectangle, set it as floating --- A floating window should already be managed by the 'StackSet'. ---float :: Ord a => a -> RationalRect -> StackSet i l a s sd -> StackSet i l a s sd ---float w r s = s { floating = M.insert w r (floating s) } - --- | Clear the floating status of a window ---sink :: Ord a => a -> StackSet i l a s sd -> StackSet i l a s sd ---sink w s = s { floating = M.delete w (floating s) } - ------------------------------------------------------------------------- -- $settingMW -- | /O(s)/. Set the master window to the focused window. |