simple ewmh xmonad.hs

import XMonad
import XMonad.Layout
import XMonad.Layout.NoBorders
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig
import XMonad.Hooks.ManageHelpers

myDefault = ewmh defaultConfig

myManageHooks = composeAll
    [ appName =? "panel" --> doIgnore
    , appName =? "galculator" --> doFloat
    , manageDocks
    , isFullscreen --> doFullFloat
    ]

main = xmonad $ myDefault
    { borderWidth = 1
    , manageHook = myManageHooks <+> manageHook myDefault
    , terminal = "sakura"
    , layoutHook = avoidStruts $ smartBorders (layoutHook myDefault)
    , handleEventHook = docksEventHook <+> fullscreenEventHook <+> ewmhDesktopsEventHook <+> handleEventHook myDefault  }
    `additionalKeysP`
    [ ("M-b", sendMessage ToggleStruts)
    , ("M-C-l", spawn "slock")
    ]