Managing keychain terminal like scratchpad

1 files changed, 2 insertions, 2 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 621d1e1..ab3bc4c 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -109,7 +109,7 @@ spawnBindings conf (k, cmds) = zipWith (\m cmd -> ((modm .|. mod1Mask .|. m, k),
   where
     modm = XMonad.modMask conf
 
-manageScratchTerm = resource =? "scratchpad" -?> doRectFloat $ RationalRect (1 % 16) (1 % 16) (7 % 8) (7 % 8)
+manageScratchTerm = (resource =? "scratchpad" <||> resource =? "keysetup") -?> doRectFloat $ RationalRect (1 % 16) (1 % 16) (7 % 8) (7 % 8)
 
 tabbedLayout t = renamed [Replace "Tabbed"] $ reflectHoriz $ t CustomShrink $ tabbedTheme
 tabbedTheme = defaultTheme { activeColor = "black"
@@ -173,7 +173,7 @@ autostart = [ spawnKeychain
 spawnKeychain = do
   home <- liftIO getHomeDirectory
   let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"]
-  safeSpawn "urxvt" $ ["-e", "keychain"] ++ keys
+  safeSpawn "urxvt" $ ["-title", "keysetup", "-e", "keychain"] ++ keys
 
 assimilateKeychain :: X ()
 assimilateKeychain = liftIO $ assimilateKeychain' >> return ()