X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;ds=sidebyside;f=xmonad.hs;h=ba1fc0e14505330335a9aee8ddc9d89772c1ce8f;hb=8acd7a44174f1d600ceb3396e23a18bc76766f67;hp=e73e1c56debe1f6ff528bbc47212e4f8efd0499b;hpb=9b2c4754a6c0a671faf806c0292f36f33cfa780f;p=config%2Fdotfiles.git

diff --git a/xmonad.hs b/xmonad.hs
index e73e1c5..ba1fc0e 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -60,8 +60,12 @@ 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
-    [ className =? "Iceweasel" -?> doF (W.shift "2")
-    , className =? "Wireshark" -?> doF (W.shift "3")
+    [ className =? "Iceweasel"          -?> doF (W.shift "2")
+    , 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")
+    , className =? "Wine"               -?> doF (W.shift "4")
 
     -- Don't span new windows in the master pane.
     , return True -?> doF avoidMaster
@@ -71,9 +75,6 @@ myManageHook = composeOne
     , return True -?> doF W.focusDown
     ]
 
--- My workspaces, same as default ones. Used below in myKeys.
-myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
-
 myKeys = [
         -- Switch to additional layout (vertical tiled) defined by
         -- toggleLayouts above.
@@ -88,8 +89,10 @@ myKeys = [
     --
     -- 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 myWorkspaces [xK_1 .. xK_9]
+        | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9]
         , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
 
 main = xmonad $ defaultConfig