summaryrefslogtreecommitdiff
path: root/.xmonad/xmonad.hs
diff options
context:
space:
mode:
Diffstat (limited to '.xmonad/xmonad.hs')
-rw-r--r--.xmonad/xmonad.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index c5ef0cc..7594cd0 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -183,15 +183,16 @@ main = do
183 } 183 }
184 xmonad $ myConfig 184 xmonad $ myConfig
185 185
186autostart = [ spawnKeychain 186autostart = [ spawnOnce "urxvtd -o"
187 , spawnOnce "urxvtd -o" 187 , spawnKeychain
188 , liftIO $ setEnv "_JAVA_AWT_WM_NONREPARENTING" "1"
188 ] 189 ]
189 190
190spawnKeychain = do 191spawnKeychain = do
191 home <- liftIO getHomeDirectory 192 home <- liftIO getHomeDirectory
192 let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"] 193 let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"]
193 keys' <- filterM (liftIO . doesFileExist) keys 194 keys' <- filterM (liftIO . doesFileExist) keys
194 safeSpawn "urxvt" $ ["-title", "keysetup", "-e", "keychain"] ++ keys' 195 safeSpawn "urxvtc" $ ["-title", "keysetup", "-e", "keychain"] ++ keys'
195 196
196assimilateKeychain :: X () 197assimilateKeychain :: X ()
197assimilateKeychain = liftIO $ assimilateKeychain' >> return () 198assimilateKeychain = liftIO $ assimilateKeychain' >> return ()