xmonad.hs

import XMonad
import System.Exit
 
import qualified XMonad.StackSet as W
import qualified Data.Map        as M

myFont = "-xos4-terminus-medium-r-normal-*-14-*-*-*-*-*-iso10646-1"
 
myTerminal      = "urxvt"
 
myBorderWidth   = 1
 
myModMask       = mod4Mask
 
myNumlockMask   = mod2Mask
 
myWorkspaces    = ["1","2","3","4","5"]
 
myNormalBorderColor  = "#2E3436"
myFocusedBorderColor = "#3465A4"
 
myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
 
    [ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
 
     , ((modMask              , xK_q     ), restart "xmonad" True)
    ]
    ++
 
    [((m .|. modMask, k), windows $ f i)
        | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_5]
        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
    ++
 
    [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
        | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
 
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
 
    [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
 
    , ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
 
    , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
 
    ]
 
myLayout = tiled ||| Mirror tiled ||| Full
  where
     tiled   = Tall nmaster delta ratio
 
     nmaster = 1
 
     ratio   = 1/2
 
     delta   = 3/100
 
myManageHook = composeAll
    [ className =? "Gimp"           --> doFloat
    , resource  =? "desktop_window" --> doIgnore]
 
myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True
 
myLogHook = return ()
 
myStartupHook = return ()
 
main = xmonad defaults
 
defaults = defaultConfig {

        terminal           = myTerminal,
        focusFollowsMouse  = myFocusFollowsMouse,
        borderWidth        = myBorderWidth,
        modMask            = myModMask,
        numlockMask        = myNumlockMask,
        workspaces         = myWorkspaces,
        normalBorderColor  = myNormalBorderColor,
        focusedBorderColor = myFocusedBorderColor,
 
        keys               = myKeys,
        mouseBindings      = myMouseBindings,
 
        layoutHook         = myLayout,
        manageHook         = myManageHook,
        logHook            = myLogHook,
        startupHook        = myStartupHook
    }