Add StackSet.screens

StackSet.hs

@@ -19,6 +19,7 @@ module StackSet (
         -- * Xinerama operations
         -- $xinerama
         lookupWorkspace,
+        screens, workspaces,
         -- *  Operations on the current stack
         -- $stackOperations
         peek, index, integrate, integrate', differentiate,
@@ -386,6 +387,10 @@ focusWindow w s | Just w == peek s = s
 
 
 
+-- | Get a list of all screens in the StackSet.
+screens :: StackSet i a s sd -> [Screen i a s sd]
+screens s = current s : visible s
+
 -- | Get a list of all workspaces in the StackSet.
 workspaces :: StackSet i a s sd -> [Workspace i a]
 workspaces s = workspace (current s) : map workspace (visible s) ++ hidden s