From 3121af115ee5516b33da84b7e62ccefe565e7e23 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Fri, 1 Feb 2008 20:06:53 +0100 Subject: Core.hs, StackSet.hs: some documentation updates darcs-hash:20080201190653-bd4d7-767473ef51a27bfdbadead306a1c3250dcaafaab.gz --- XMonad/StackSet.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad/StackSet.hs') 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) -- cgit v1.2.3