twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-03 21:51:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add StackSet.screens

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-24 09:04:25 +00:00
parent 3060c36d00
commit f67ebbf495
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
StackSet.hs
View File

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