xmonad.hs

import XMonad
import XMonad.Hooks.FadeInactive
import XMonad.Config.Gnome
import XMonad.Hooks.ManageDocks
import qualified Data.Map as M
import XMonad.Util.EZConfig(additionalKeys)
import qualified XMonad.StackSet as W
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders

myManageHook = composeAll [
    (role =? "gimp-toolbox" <||> role =? "gimp-image-window") --> (ask >>= doF . W.sink)
    , isFullscreen --> doFullFloat
    , (className =? "Gnome-panel" <&&> title =? "Run Application") --> doFloat
    , (className =? "Gnome-panel") --> doFloat
    ]
    where role = stringProperty "WM_WINDOW_ROLE"

--Fading
myLogHook :: X()
myLogHook = fadeInactiveLogHook fadeAmount
    where fadeAmount = 0.8

main = xmonad $ gnomeConfig {
    modMask = mod4Mask
    , manageHook = myManageHook <+> manageDocks <+>  manageHook gnomeConfig
    , layoutHook = smartBorders (avoidStruts $ layoutHook gnomeConfig)
    , logHook = myLogHook
    } `additionalKeys`
    [ ((mod4Mask, xK_b), sendMessage ToggleStruts) ]