diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-02-01 20:06:53 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-02-01 20:06:53 +0100 |
| commit | 3121af115ee5516b33da84b7e62ccefe565e7e23 (patch) | |
| tree | 0f2151eccfde34478ed243f108fe0bb35fa1fafd /XMonad/StackSet.hs | |
| parent | 24be430889bace15e5880e3fbffba343f6749e24 (diff) | |
| download | xmonad-3121af115ee5516b33da84b7e62ccefe565e7e23.tar.gz xmonad-3121af115ee5516b33da84b7e62ccefe565e7e23.tar.xz xmonad-3121af115ee5516b33da84b7e62ccefe565e7e23.zip | |
Core.hs, StackSet.hs: some documentation updates
darcs-hash:20080201190653-bd4d7-767473ef51a27bfdbadead306a1c3250dcaafaab.gz
Diffstat (limited to 'XMonad/StackSet.hs')
| -rw-r--r-- | XMonad/StackSet.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/StackSet.hs b/XMonad/StackSet.hs index aa3e53a..d9e7e6b 100644 --- a/XMonad/StackSet.hs +++ b/XMonad/StackSet.hs @@ -112,7 +112,7 @@ import qualified Data.Map as M (Map,insert,delete,empty) -- viewable. We thus need to track which virtual workspaces are -- associated (viewed) on which physical screens. To keep track of -- this, StackSet keeps separate lists of visible but non-focused --- workspaces, and non-visible workspaces. +-- workspaces, and non-visible workspaces. -- $focus -- @@ -145,7 +145,7 @@ data Screen i l a sid sd = Screen { workspace :: !(Workspace i l a) deriving (Show, Read, Eq) -- | --- A workspace is just a tag - its index - and a stack +-- A workspace is just a tag, a layout, and a stack. -- data Workspace i l a = Workspace { tag :: !i, layout :: l, stack :: Maybe (Stack a) } deriving (Show, Read, Eq) @@ -301,7 +301,7 @@ integrate (Stack x l r) = reverse l ++ x : r integrate' :: Maybe (Stack a) -> [a] integrate' = maybe [] integrate --- | +-- | -- /O(n)/. Turn a list into a possibly empty stack (i.e., a zipper): -- the first element of the list is current, and the rest of the list -- is down. @@ -414,7 +414,7 @@ mapLayout f (StackSet v vs hs m) = StackSet (fScreen v) (map fScreen vs) (map fW fScreen (Screen ws s sd) = Screen (fWorkspace ws) s sd fWorkspace (Workspace t l s) = Workspace t (f l) s --- | /O(n)/. Is a window in the StackSet. +-- | /O(n)/. Is a window in the StackSet? member :: Eq a => a -> StackSet i l a s sd -> Bool member a s = isJust (findTag a s) |