xmonad.hs

import XMonad

import qualified Data.Map as M
import Data.Bits ((.|.))

import XMonad.Layout.Grid
import XMonad.Config.Gnome
import XMonad.Layout.TwoPane
import XMonad.Layout.LayoutScreens
import XMonad.Config.Desktop (desktopLayoutModifiers)
import XMonad.Hooks.ManageHelpers (isFullscreen,doFullFloat)
import XMonad.Actions.WindowGo

main = xmonad gnomeConfig
        { 
        --modMask = mod4Mask
        --,
          -- modMask = mod4Mask .|. mod1Mask,
          modMask = mod4Mask .|. controlMask,
        focusedBorderColor = "blue"
        , normalBorderColor  = "black"
        , borderWidth = 1
        , layoutHook = desktopLayoutModifiers ( TwoPane (3/100) (1/2)  ||| Full ||| Grid )
        , focusFollowsMouse = True
        , manageHook = composeAll
             [ manageHook gnomeConfig
             , className =? "Unity-2d-panel"    --> doIgnore
             , className =? "Unity-2d-launcher" --> doIgnore
             , className =? "Cssh" --> doFloat
             , isFullscreen --> doFullFloat ]
        , terminal = "xfce4-terminal"
        , keys     = \c -> philKeys `M.union` keys gnomeConfig c
        }
  where
    philKeys = M.fromList $
              [
                ((mod4Mask , xK_g) , spawn "browser") 
              , ((mod4Mask , xK_p) , spawn "gmrun")
              , ((0, xK_F12), runOrRaise "xfce4-terminal" (className =? "Xfce4-terminal"))
              , ((mod4Mask, xK_F12), runOrRaise "emacs-24.3" (className =? "Emacs"))
                , ((mod4Mask, xK_F11), runOrRaise "firefox" (className =? "Firefox"))
              -- , ((0, xK_F6) , spawn "spotify.bash playpause")
              -- , ((0, xK_F5) , spawn "spotify.bash previous")
              -- , ((0, xK_F7) , spawn "spotify.bash stop")
              -- , ((0, xK_F8) , spawn "spotify.bash next")
              ]

-- to find window class:
-- xprop WM_CLASS
-- the click on the window, 2nd string is the class