FIX make gimp windows arrange properly

This commit is contained in:
Nathan Dwarshuis 2020-07-03 10:54:57 -04:00
parent 0e635263e9
commit 4df2b8b31e
1 changed files with 2 additions and 3 deletions

View File

@ -121,8 +121,8 @@ gimpDynamicWorkspace = DynWorkspace
, dwClass = c , dwClass = c
, dwHook = , dwHook =
[ matchGimpRole "gimp-image-window" -?> appendViewShift t [ matchGimpRole "gimp-image-window" -?> appendViewShift t
, matchGimpRole "gimp-dock" -?> doF (toBottom . W.focusMaster) , matchGimpRole "gimp-dock" -?> doF W.swapDown
, matchGimpRole "gimp-toolbox" -?> doF (toBottom . W.focusMaster) , matchGimpRole "gimp-toolbox" -?> doF W.swapDown
, className =? c -?> appendViewShift t , className =? c -?> appendViewShift t
] ]
, dwKey = 'g' , dwKey = 'g'
@ -131,7 +131,6 @@ gimpDynamicWorkspace = DynWorkspace
where where
matchGimpRole role = isPrefixOf role <$> stringProperty "WM_WINDOW_ROLE" matchGimpRole role = isPrefixOf role <$> stringProperty "WM_WINDOW_ROLE"
<&&> className =? c <&&> className =? c
toBottom = W.modify' $ \(W.Stack f tp bt) -> W.Stack f (reverse bt ++ tp) []
t = "GIMP" t = "GIMP"
c = "Gimp-2.10" -- TODO I don't feel like changing the version long term c = "Gimp-2.10" -- TODO I don't feel like changing the version long term