diff options
| -rw-r--r-- | StackSet.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/StackSet.hs b/StackSet.hs index 9a62bb5..7a4c392 100644 --- a/StackSet.hs +++ b/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 |