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