xmonad

xmonad.hs

import XMonad
import Data.List
import XMonad.Hooks.ManageHelpers
import XMonad.Util.EZConfig
import XMonad.Config.Gnome
import XMonad.Config.Desktop (desktopLayoutModifiers)
import XMonad.Layout.NoBorders (smartBorders)
import XMonad.Layout.PerWorkspace (onWorkspace)
import XMonad.Layout.CenteredMaster (centerMaster)
import XMonad.Layout.SimpleFloat (simpleFloat)
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import XMonad.Hooks.SetWMName
import XMonad.Prompt
import XMonad.Prompt.Window
import XMonad.Actions.GridSelect
import XMonad.Actions.TagWindows
import XMonad.Prompt    -- to use tagPrompt
import XMonad.Actions.CycleWS

toFloatByClass = ["MPlayer", "Do", "Gweather-applet-2", "Qq", "Linux-fetion"]
toFloatByTitle = []
floatHook = composeAll .concat $
          [
          [className =? i --> doFloat | i <- toFloatByClass]
          ,[title =? i --> doFloat | i <- toFloatByTitle]
          ,[isFullscreen --> doFullFloat]
          ,[className =? "Evince" --> doShift "3:docs"]
          ]



main = xmonad $ gnomeConfig {
     workspaces = ["1:web", "2:term", "3:docs", "4", "5", "6"]
     ,startupHook = setWMName "LG3D"
     ,manageHook = manageHook gnomeConfig <+>
                  floatHook
     }
    `removeKeysP` [("M-b")]
    `additionalKeysP`
    [
    ("M-x g", windowPromptGoto  defaultXPConfig{
        font="-misc-fixed-*-*-*-*-20-*-*-*-*-*-*-*"
        ,position=Top
        ,autoComplete = Just 500000})
    ,("M-x b", windowPromptBring defaultXPConfig{
        font="-misc-fixed-*-*-*-*-20-*-*-*-*-*-*-*"
        ,position=Top
        ,autoComplete = Just 500000})
    ,("M-x y", goToSelected defaultGSConfig)
    ,("M-x t", tagPrompt defaultXPConfig (\s -> withFocused (addTag s)))
    ,("M-x s", tagPrompt defaultXPConfig (\s -> focusUpTaggedGlobal s))
    ,("M-x c", toggleWS)
    ]