This commit is contained in:
Mats Rauhala 2019-05-23 12:00:02 +03:00
parent 1639feed4c
commit 0b22fb7416

View File

@ -30,7 +30,7 @@ inactiveTags = map W.tag . inactive' <$> gets windowset
where where
inactive' s = inactive' s =
let current = W.currentTag s let current = W.currentTag s
in W.hidden s ++ map W.workspace (filter (\w -> current /= (W.tag . W.workspace) w) (W.visible s)) in W.hidden s ++ map W.workspace (W.visible s)
gridselectMove :: GSConfig WorkspaceId -> X () gridselectMove :: GSConfig WorkspaceId -> X ()
gridselectMove conf = do gridselectMove conf = do