import XMonad
import System.Exit

import XMonad.Layout.NoBorders
import XMonad.Layout.Spacing
import XMonad.Layout.Gaps

import XMonad.Hooks.SetWMName

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

import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks

import XMonad.Actions.FloatKeys

import XMonad.Prompt
import XMonad.Prompt.Shell

myModMask = mod4Mask

ownXPConfig = defaultXPConfig { font = "xft:DejaVu Sans Mono:size=12" }

myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
	[
		((modMask, xK_r), shellPrompt ownXPConfig),
		((modMask, xK_f), spawn "chromium"),
		((0, 0x1008FF13), spawn "aumix -v +2"),
		((0, 0x1008FF11), spawn "aumix -v -2"),
		((0, 0x1008ff14), spawn "audacious -t"),
		((0, 0x1008ff17), spawn "audacious -f"),
		((0, 0x1008ff16), spawn "audacious -r"),
		((0, 0x1008ff15), spawn "audacious -s"),
		((modMask, xK_j), windows W.focusUp),
		((modMask, xK_k), windows W.focusDown),
		((modMask .|. shiftMask, xK_j), windows W.swapUp),
		((modMask .|. shiftMask, xK_k), windows W.swapDown),
		((modMask, xK_b), withFocused (keysMoveWindow (-3,-3)))
	]

main = xmonad defaults

mySpacing = 5

defaults = defaultConfig {
	terminal = "xterm",
	modMask = myModMask,
	keys = \c -> myKeys c `M.union` keys defaultConfig c,
	borderWidth = 0,
	normalBorderColor = "#555753",
--	normalBorderColor = "#2e3436",
	focusedBorderColor = "#729fcf",
--	focusedBorderColor = "#ad7fa8",
        layoutHook = gaps [(U,mySpacing), (D,mySpacing), (L,mySpacing), (R,mySpacing)] (spacing mySpacing $ layoutHook defaultConfig) ||| noBorders Full,
        startupHook = setWMName "LG3D",
	logHook = ewmhDesktopsLogHook,
	manageHook = manageDocks <+> manageHook defaultConfig
}