diff options
Diffstat (limited to '.xmonad')
-rw-r--r-- | .xmonad/xmonad.hs | 7 |
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 | ||
186 | autostart = [ spawnKeychain | 186 | autostart = [ spawnOnce "urxvtd -o" |
187 | , spawnOnce "urxvtd -o" | 187 | , spawnKeychain |
188 | , liftIO $ setEnv "_JAVA_AWT_WM_NONREPARENTING" "1" | ||
188 | ] | 189 | ] |
189 | 190 | ||
190 | spawnKeychain = do | 191 | spawnKeychain = 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 | ||
196 | assimilateKeychain :: X () | 197 | assimilateKeychain :: X () |
197 | assimilateKeychain = liftIO $ assimilateKeychain' >> return () | 198 | assimilateKeychain = liftIO $ assimilateKeychain' >> return () |