From 5ce2bda966a860a4cb0faf05251113434fb7d7dd Mon Sep 17 00:00:00 2001
From: Dmitriy Pleshevskiy <dmitriy@ideascup.me>
Date: Fri, 21 Oct 2022 12:09:18 +0300
Subject: [PATCH] users/xmonad: add new classname for pinentry

---
 users/modules/window_manager/xmonad_config.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/users/modules/window_manager/xmonad_config.hs b/users/modules/window_manager/xmonad_config.hs
index f66d63c..a6eb0bc 100644
--- a/users/modules/window_manager/xmonad_config.hs
+++ b/users/modules/window_manager/xmonad_config.hs
@@ -241,6 +241,7 @@ myManageHook = manageApps
   where
     role = stringProperty "WM_WINDOW_ROLE"
     isPopup = role =? "pop-up"
+    isPinentry = anyOf [className =? "Gcr-promter", className =? "Pinentry"]
     anyOf :: [Query Bool] -> Query Bool
     anyOf = foldl (<||>) (pure False)
     tileBelow = insertPosition Below Newer
@@ -262,7 +263,7 @@ myManageHook = manageApps
           anyOf
             [ isPopup,
               isDialog,
-              className =? "Gcr-prompter"
+              isPinentry
             ]
             -?> doCenterFloat,
           pure True -?> tileBelow