support for java awt in xmonad

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
                            }
   xmonad $ myConfig
   
-autostart = [ spawnKeychain
-            , spawnOnce "urxvtd -o"
+autostart = [ spawnOnce "urxvtd -o"
+            , spawnKeychain
+            , liftIO $ setEnv "_JAVA_AWT_WM_NONREPARENTING" "1"
             ]
 
 spawnKeychain = do
   home <- liftIO getHomeDirectory
   let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"]
   keys' <- filterM (liftIO . doesFileExist) keys
-  safeSpawn "urxvt" $ ["-title", "keysetup", "-e", "keychain"] ++ keys'
+  safeSpawn "urxvtc" $ ["-title", "keysetup", "-e", "keychain"] ++ keys'
 
 assimilateKeychain :: X ()
 assimilateKeychain = liftIO $ assimilateKeychain' >> return ()