mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-27 10:11:52 -07:00
workspacesSorted: fix indentation + add comment
This commit is contained in:
@@ -67,9 +67,9 @@ appropriate one, or cover your bases by using instead something like:
|
|||||||
For detailed instructions on editing your key bindings, see
|
For detailed instructions on editing your key bindings, see
|
||||||
"XMonad.Doc.Extending#Editing_key_bindings". -}
|
"XMonad.Doc.Extending#Editing_key_bindings". -}
|
||||||
|
|
||||||
|
-- | Get the list of workspaces sorted by their tag
|
||||||
workspacesSorted :: Ord i => W.StackSet i l a s sd -> [W.Workspace i l a]
|
workspacesSorted :: Ord i => W.StackSet i l a s sd -> [W.Workspace i l a]
|
||||||
workspacesSorted s = L.sortBy (\u t -> W.tag u `compare` W.tag t) $
|
workspacesSorted s = L.sortBy (\u t -> W.tag u `compare` W.tag t) $ W.workspaces s
|
||||||
W.workspaces s
|
|
||||||
|
|
||||||
-- | Get a list of all windows in the 'StackSet' with an absolute ordering of workspaces
|
-- | Get a list of all windows in the 'StackSet' with an absolute ordering of workspaces
|
||||||
allWindowsSorted :: Ord i => Eq a => W.StackSet i l a s sd -> [a]
|
allWindowsSorted :: Ord i => Eq a => W.StackSet i l a s sd -> [a]
|
||||||
|
Reference in New Issue
Block a user