REF dry off gimp

This commit is contained in:
Nathan Dwarshuis 2022-07-09 01:11:02 -04:00
parent e2c98c49a3
commit a91a5cf690
1 changed files with 3 additions and 2 deletions

View File

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