FIX make gimp windows arrange properly
This commit is contained in:
parent
0e635263e9
commit
4df2b8b31e
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue