ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF make this cleaner

This commit is contained in:
Nathan Dwarshuis 2020-03-27 15:35:37 -04:00
parent 2a98917b3e
commit b5a31508ad
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bin/xmonad.hs
View File

@ -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)