xmonad.hs

import XMonad.Layout.Tabbed
import XMonad.Layout.ToggleLayouts
import XMonad.Hooks.ManageHelpers
-- import XMonad.Layout.WindowArranger
import XMonad.Util.EZConfig (additionalKeys)

myWorkspaces = ["1:im", "2:shell", "3:web", "4", "5",
                 "6", "7", "8", "9"]

workspaceLayouts =
  onWorkspace "1:im" imLayout $ myLayouts
  where
    myLayouts = tiled ||| Mirror tiled ||| simpleTabbed ||| Grid
    tiled   = Tall nmaster delta ratio 
    nmaster = 1      -- The default number of windows in the master pane
    ratio   = 1/2    -- Default proportion of screen occupied by master pane
    delta   = 3/100  -- Percent of screen to increment by when resizing panes

    -- A layout for instant messaging.  Devote 1/6th of the screen to
    -- the Buddy List, and arrange other windows in a grid.
    imLayout = withIM (1/5) (Title "Lista de amigos") Grid


myLayout = avoidStruts $ smartBorders $ toggleLayouts Full workspaceLayouts

myManageHook = composeAll
  [ resource =? "Do"       --> doIgnore        -- Leave Gnome Do alone.
  , title =? "xfdashboard" --> doFullFloat
  , resource =? "Pidgin"   --> doShift "1:im"  -- For