Moved urxvtd back into xmonad; Fixed spawnKeychain in xmonad

1 files changed, 8 insertions, 3 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 35112a5..621d1e1 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -40,6 +40,9 @@ import Control.Monad (when)
 import Graphics.X11.ExtraTypes.XF86
 import XMonad.Util.Cursor
 import XMonad.Actions.Warp
+import XMonad.Util.SpawnOnce
+import System.Directory
+import System.FilePath
 
 import XMonad.Layout.IM
 
@@ -164,11 +167,13 @@ main = do
   xmonad $ myConfig
   
 autostart = [ spawnKeychain
+            , spawnOnce "urxvtd -o"
             ]
 
-spawnKeychain = safeSpawn "urxvt" $ ["-e", "keychain"] ++ keys
-  where
-    keys = map ("~/.ssh/id_" ++) ["ed25519", "ecdsa", "rsa"]
+spawnKeychain = do
+  home <- liftIO getHomeDirectory
+  let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"]
+  safeSpawn "urxvt" $ ["-e", "keychain"] ++ keys
 
 assimilateKeychain :: X ()
 assimilateKeychain = liftIO $ assimilateKeychain' >> return ()