From 64c8cdae0c0d44ed4b4cc54797c9e79a1e76548c Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 11 Apr 2007 08:09:47 +0200
Subject: merge with toList/fromList patch

darcs-hash:20070411060947-9c5c1-88a2c630ec0bb669c5d34410fb546cc1ff538ded.gz
---
 StackSet.hs | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'StackSet.hs')

diff --git a/StackSet.hs b/StackSet.hs
index 58cbac6..83f64e4 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -88,24 +88,26 @@ size = M.size . stacks
 
 ------------------------------------------------------------------------
 
--- | fromList. Build a new StackSet from a list of list of elements
--- If there are duplicates in the list, the last occurence wins.
--- FIXME: This always makes a StackSet with 1 screen.
-fromList :: Ord a => (Int,[[a]]) -> StackSet a
-fromList (_,[]) = error "Cannot build a StackSet from an empty list"
-
-fromList (n,xs) | n < 0 || n >= length xs
+-- | fromList. Build a new StackSet from a list of list of elements,
+-- keeping track of the currently focused workspace, and the total
+-- number of workspaces. If there are duplicates in the list, the last
+-- occurence wins.
+fromList :: Ord a => (WorkspaceId, Int,[[a]]) -> StackSet a
+fromList (_,_,[]) = error "Cannot build a StackSet from an empty list"
+
+fromList (n,m,xs) | n < 0 || n >= L.genericLength xs
                 = error $ "Cursor index is out of range: " ++ show (n, length xs)
-                  | m < 1 || m >  length xs
+                  | m < 1 || m >  L.genericLength xs
                 = error $ "Can't have more screens than workspaces: " ++ show (m, length xs)
 
 fromList (o,m,xs) = view o $ foldr (\(i,ys) s ->
                                   foldr (\a t -> insert a i t) s ys)
                                       (empty (length xs) m) (zip [0..] xs)
 
+
 -- | toList. Flatten a stackset to a list of lists
-toList  :: StackSet a -> (Int,[[a]])
-toList x = (current x, map snd $ M.toList (stacks x))
+toList  :: StackSet a -> (WorkspaceId,Int,[[a]])
+toList x = (current x, M.size $ screen2ws x, map snd $ M.toList (stacks x))
 
 -- | Push. Insert an element onto the top of the current stack.
 -- If the element is already in the current stack, it is moved to the top.
-- 
cgit v1.2.3