users/xmonad: add new classname for pinentry

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