xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.SetWMName
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
import qualified XMonad.StackSet as W

main = do
    spawn "xsetroot -solid grey12"
    spawn "xsetroot -cursor_name left_ptr"
    xmproc <- spawnPipe "xmobar"
    xmonad $ ewmh defaultConfig
        { manageHook = manageDocks <+> myManageHook
        , layoutHook = avoidStruts  $  layoutHook defaultConfig
        , handleEventHook = handleEventHook defaultConfig <+> docksEventHook
        , logHook = dynamicLogWithPP $ xmobarPP
                        { ppOutput = hPutStrLn xmproc
                        , ppTitle = xmobarColor "#ff8800" "" . shorten 160
                        , ppHiddenNoWindows = xmobarColor "#333" ""
                        }
        , modMask = myModMask     -- Rebind Mod to the Windows key
        , terminal = "xterm"
        , normalBorderColor = "#444444"
        , focusedBorderColor = "#ff8800"
        , borderWidth = 2
        , workspaces = myWorkspaces
        , startupHook = setWMName "LG3D"
        } `additionalKeys` (myKeys)

myModMask = mod4Mask

myExtraWorkspaces = [(xK_0, "0"),(xK_minus, "-"),(xK_equal, "=")]

myWorkspaces = ["1","2","3","4","5","6","7","8","9", "0","-","="]

myKeys =
      [ -- ... some more keys ...
      ] ++ [
        ((myModMask, key), (windows $ W.greedyView ws))
        | (key,ws) <- myExtraWorkspaces
      ] ++ [
        ((myModMask .|. shiftMask, key), (windows $ W.shift ws))
        | (key,ws) <- myExtraWorkspaces
      ]

myManageHook = composeAll . concat $
    [ [ title =? i --> (doF W.focusDown <+> doFloat) | i <- myClassFloats ]
    , [ title =? "xfce4-notifyd" --> doIgnore ]
    ]
    where
    myClassFloats = ["termview"]