users/xmonad: add new classname for pinentry
This commit is contained in:
parent
284d44eebc
commit
5ce2bda966
1 changed files with 2 additions and 1 deletions
|
@ -241,6 +241,7 @@ myManageHook = manageApps
|
||||||
where
|
where
|
||||||
role = stringProperty "WM_WINDOW_ROLE"
|
role = stringProperty "WM_WINDOW_ROLE"
|
||||||
isPopup = role =? "pop-up"
|
isPopup = role =? "pop-up"
|
||||||
|
isPinentry = anyOf [className =? "Gcr-promter", className =? "Pinentry"]
|
||||||
anyOf :: [Query Bool] -> Query Bool
|
anyOf :: [Query Bool] -> Query Bool
|
||||||
anyOf = foldl (<||>) (pure False)
|
anyOf = foldl (<||>) (pure False)
|
||||||
tileBelow = insertPosition Below Newer
|
tileBelow = insertPosition Below Newer
|
||||||
|
@ -262,7 +263,7 @@ myManageHook = manageApps
|
||||||
anyOf
|
anyOf
|
||||||
[ isPopup,
|
[ isPopup,
|
||||||
isDialog,
|
isDialog,
|
||||||
className =? "Gcr-prompter"
|
isPinentry
|
||||||
]
|
]
|
||||||
-?> doCenterFloat,
|
-?> doCenterFloat,
|
||||||
pure True -?> tileBelow
|
pure True -?> tileBelow
|
||||||
|
|
Loading…
Reference in a new issue