X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=xmonad.hs;h=48d30bb4babcbb40d3ef467e6f259b22c6d89b15;hb=6cbf000ab407abde66f4775f23f804acca69feb2;hp=ba1fc0e14505330335a9aee8ddc9d89772c1ce8f;hpb=8acd7a44174f1d600ceb3396e23a18bc76766f67;p=config%2Fdotfiles.git

diff --git a/xmonad.hs b/xmonad.hs
index ba1fc0e..48d30bb 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -16,6 +16,8 @@ import XMonad.Layout.NoBorders
 import XMonad.Hooks.ManageHelpers
 -- Necessary for `additionalKeys`.
 import XMonad.Util.EZConfig
+-- Necessary for setWMName.
+import XMonad.Hooks.SetWMName
 
 
 -- Prevent new windows from spawning in the master pane. Taken from
@@ -60,11 +62,14 @@ myLayoutHook = toggleLayouts tiled $ smartBorders $ Mirror tiled ||| Full
 -- Also some applications are spawned on specific workspaces. Thanks to
 -- dschoepe and ivanm in #xmonad on Freenode (2009-07-12 14:50).
 myManageHook = composeOne
+    -- Browser on "2".
     [ className =? "Iceweasel"          -?> doF (W.shift "2")
+    -- Miscellaneous on "3".
     , className =? "Wireshark"          -?> doF (W.shift "3")
     , title     =? "OpenOffice.org"     -?> doF (W.shift "3") -- splash screen
     , className =? "OpenOffice.org 2.4" -?> doF (W.shift "3")
     , className =? "Vncviewer"          -?> doF (W.shift "3")
+    -- Wine on "4".
     , className =? "Wine"               -?> doF (W.shift "4")
 
     -- Don't span new windows in the master pane.
@@ -108,6 +113,8 @@ main = xmonad $ defaultConfig
     , manageHook = myManageHook
     -- Use unicode rxvt as my terminal.
     , terminal = "urxvt"
+    -- Necessary for java so it recognizes XMonad as tiling window manager.
+    , startupHook = setWMName "LG3D"
     }
     `additionalKeys` myKeys