From e62a346d035773783ae0ce72963f9bdfb5a03601 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 16 Jul 2015 19:33:04 +0200
Subject: Managing keychain terminal like scratchpad

---
 .xmonad/xmonad.hs | 4 ++--
 1 file 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 ()
-- 
cgit v1.2.3