REF dry off gimp
This commit is contained in:
parent
e2c98c49a3
commit
a91a5cf690
|
@ -236,7 +236,7 @@ f5Tag = "F5VPN"
|
||||||
gimpDynamicWorkspace :: Sometimes DynWorkspace
|
gimpDynamicWorkspace :: Sometimes DynWorkspace
|
||||||
gimpDynamicWorkspace = sometimesIO_ "gimp workspace" "gimp" tree dw
|
gimpDynamicWorkspace = sometimesIO_ "gimp workspace" "gimp" tree dw
|
||||||
where
|
where
|
||||||
tree = Only_ $ sysExe [Package True "gimp"] "gimp-2.10"
|
tree = Only_ $ sysExe [Package True "gimp"] exe
|
||||||
dw = DynWorkspace
|
dw = DynWorkspace
|
||||||
{ dwName = "Gimp"
|
{ dwName = "Gimp"
|
||||||
, dwTag = gimpTag
|
, dwTag = gimpTag
|
||||||
|
@ -248,8 +248,9 @@ gimpDynamicWorkspace = sometimesIO_ "gimp workspace" "gimp" tree dw
|
||||||
, className =? c -?> appendViewShift gimpTag
|
, className =? c -?> appendViewShift gimpTag
|
||||||
]
|
]
|
||||||
, dwKey = 'g'
|
, dwKey = 'g'
|
||||||
, dwCmd = Just $ spawnCmd "gimp-2.10" []
|
, dwCmd = Just $ spawnCmd exe []
|
||||||
}
|
}
|
||||||
|
exe = "gimp-2.10"
|
||||||
matchGimpRole role = isPrefixOf role <$> stringProperty "WM_WINDOW_ROLE"
|
matchGimpRole role = isPrefixOf role <$> stringProperty "WM_WINDOW_ROLE"
|
||||||
<&&> className =? c
|
<&&> className =? c
|
||||||
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