REF make this cleaner
This commit is contained in:
parent
2a98917b3e
commit
b5a31508ad
|
@ -529,10 +529,7 @@ myGimpClass :: String
|
|||
myGimpClass = "Gimp-2.10"
|
||||
|
||||
wsOccupied :: Eq a1 => a1 -> W.StackSet a1 l a2 sid sd -> Bool
|
||||
wsOccupied tag ws = elem tag
|
||||
$ map W.tag
|
||||
-- TODO there is likely a much better way to do this...
|
||||
$ filter (\w -> case W.stack w of { Nothing -> False; _ -> True } )
|
||||
wsOccupied tag ws = elem tag $ map W.tag $ filter (isJust . W.stack)
|
||||
-- list of all workspaces with windows on them
|
||||
-- TODO is there not a better way to do this?
|
||||
$ W.workspace (W.current ws) : W.hidden ws ++ map W.workspace (W.visible ws)
|
||||
|
|
Loading…
Reference in New Issue