mynix/system
1
1
Fork 0
Code Issues 2 Pull requests Activity

users/xmonad: add new classname for pinentry

Browse source
This commit is contained in:
Dmitriy Pleshevskiy 2022-10-21 12:09:18 +03:00
parent 284d44eebc
commit 5ce2bda966
Signed by: pleshevskiy
GPG key ID: 1B59187B161C0215
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
users/modules/window_manager/xmonad_config.hs
View file

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