xmonad.hs: Fix for Java programs to recognize XMonad.

[config/dotfiles.git] / xmonad.hs

diff --git a/xmonad.hs b/xmonad.hs
index 469789c619ddbeb90cc3a40293ae4bc96b6c9e27..48d30bb4babcbb40d3ef467e6f259b22c6d89b15 100644 (file)
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -8,10 +8,16 @@ import XMonad
 import XMonad.Layout.Reflect
 -- Necessary for avoidMaster.
 import qualified XMonad.StackSet as W
+-- Necessary for toggleLayouts.
+import XMonad.Layout.ToggleLayouts
 -- Necessary for smartBorders.
 import XMonad.Layout.NoBorders
 -- Necessary for composeOne and -?>.
 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
@@ -34,7 +40,11 @@ avoidMaster = W.modify' $ \c -> case c of
 --
 -- Thanks to jrick in #xmonad on Freenode (2009-06-29 22:19) for telling me
 -- how to remove the vertical tiled layout.
-myLayoutHook = smartBorders $ Mirror tiled ||| Full
+--
+-- toggleLayouts is used to allow switching to vertical tiled layout but not
+-- using it with meta-space (see below in key bindings). Thanks to ml| in
+-- #xmonad on Freenode (2010-06-14 09:49) how to use toggleLayouts.
+myLayoutHook = toggleLayouts tiled $ smartBorders $ Mirror tiled ||| Full
     where
     -- Default tiling algorithm partitions the screen into two panes.
     tiled   = Tall nmaster delta ratio
@@ -52,8 +62,15 @@ myLayoutHook = 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
-    [ className =? "Iceweasel" -?> doF (W.shift "2")
-    , className =? "Wireshark" -?> doF (W.shift "3")
+    -- 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.
     , return True -?> doF avoidMaster
@@ -63,6 +80,26 @@ myManageHook = composeOne
     , return True -?> doF W.focusDown
     ]
 
+myKeys = [
+        -- Switch to additional layout (vertical tiled) defined by
+        -- toggleLayouts above.
+        ((mod4Mask, xK_v), sendMessage ToggleLayout)
+    ]
+    ++
+    -- When using multiple screens, switching to another workspace causes
+    -- Xmonad to pull the workspace to the current screen if it was also
+    -- displayed on another one. This is confusing for me so the following
+    -- code changes it to just switch to the screen where the workspace is
+    -- already displayed.
+    --
+    -- Thanks to the Xmonad FAQ, read on 2010-06-16 13:42
+    -- (http://www.haskell.org/haskellwiki/Xmonad/Frequently_asked_questions).
+    -- Thanks to MrElendig in #xmonad on Freenode (2010-06-17 17:16) to use
+    -- the default XMonad workspaces.
+    [((m .|. mod4Mask, k), windows $ f i)
+        | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9]
+        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
+
 main = xmonad $ defaultConfig
     -- Use Windows key as main key so it doesn't conflict with any other key
     -- bindings.
@@ -76,4 +113,9 @@ 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
+
+-- vim: nospell