diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-17 01:36:14 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-17 01:36:14 +0200 |
commit | c04271bf6b9126f635b9b9baf173b2af5380fd84 (patch) | |
tree | 7638dd803464631c8014a6a6a425d9b5fcb91e98 /MetaTile/StackSet.hs | |
parent | 43759844f5fb4d8e5280e6b697b6f7efcadf0c6b (diff) | |
download | metatile-c04271bf6b9126f635b9b9baf173b2af5380fd84.tar metatile-c04271bf6b9126f635b9b9baf173b2af5380fd84.zip |
Add layout modifier for floating layer support
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. |