XMonad_Theme

import XMonad
import XMonad.Util.EZConfig
import System.IO(hPutStrLn)
import System.Exit
import XMonad.Layout.Named
import XMonad hiding ( (|||) )
import XMonad.Layout.LayoutCombinators hiding ( (|||) )
import XMonad.Layout.Master
import XMonad.Layout.Grid
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import XMonad.Layout.PerWorkspace
import XMonad.Actions.CycleWS
import XMonad.Hooks.DynamicLog
import XMonad.Layout.NoBorders

-------------------------------------------------------
-- Custom options --
myModMask       = mod4Mask
myNumlockMask   = mod2Mask
myTerminal      = "xterm"
myWorkspaces    = [ "conf"
                  , "www"
                  , "hex"
                  , "sim"
                  , "media"
                  ]

myBorderWidth = 1
myFocusFollowsMouse = True
myNormalBorderColor = "#dddddd"
myFocusedBorderColor = "#eeeeee"

-- layout
myLayout = onWorkspace "conf" (complex ||| noBorders Full)
         $ onWorkspace "www" (float ||| Full)
         $ onWorkspace "hex" (duplex ||| Full)
         $ Full
  where
     -- complex layout
     complex = mastered (1/100) (9/17) $ Grid

     -- float layout
     float = ((Tall 1 (1/100) (8/9)) ****//*** (Tall 0 (1/100) (1/2)))

     -- duplex layout
     duplex = mastered (1/100) (1/2) $ Grid
-- hooks
myManageHook = composeAll
        [ className =? "MPlayer"        --> doFloat
        , className =? "Gimp"           --> doFloat
        , resource  =? "desktop_window" --> doIgnore
        , resource  =? "kdesktop"       --> doIgnore
        , className =? "Firefox"        --> doF (W.shift "www")
        , className =? "Downloads"      --> doFloat
        , className =? "XTerm"          --> doF (W.shift "conf")
        , className =? "wwwterm"        --> doF (W.shift "www")
        , className =? "hexeditor"      --> doF (W.shift "hex")
        , className =? "Skype"          --> doF (W.shift "sim")
        ]
myLogHook = return ()

myStartupHook = return ()


-------------------------------------------------------
-- Default options --
main = xmonad $ myConfig
myConfig = defaultConfig
                {
        terminal           = myTerminal,
        focusFollowsMouse  = myFocusFollowsMouse,
        borderWidth        = myBorderWidth,
        modMask            = myModMask,
        numlockMask        = myNumlockMask,
        workspaces         = myWorkspaces,
        normalBorderColor  = myNormalBorderColor,
        focusedBorderColor = myFocusedBorderColor,
        layoutHook         = myLayout,
        manageHook         = myManageHook,
        logHook            = myLogHook,
        startupHook        = myStartupHook
        }
        `additionalKeysP`
         [ ("M1-<F1>", spawn "xterm -fa 'DroidSansMono' -fs 9 -foreground white -background gray7")
         , ("M-S-<F1>", spawn "xterm -fa 'DroidSansMono' -fs 9 -foreground white -background grey60 -class wwwterm")
         , ("M1-<F3>", spawn "xterm -fa 'DroidSansMono' -fs 9 -foreground white -background gray7 -class hexeditor")
         , ("M1-<F4>", kill)
         , ("M1-<F8>", spawn "schroot -p skype")
         , ("M1-<F10>", spawn "firefox")
         , ("<F12>", spawn "scrot")
         , ("M-S-<Esc>", spawn "xmonad --recompile; xmonad --restart")
         , ("M-<Esc>", io (exitWith ExitSuccess))
         , ("M-<F11>", sendMessage $ JumpToLayout "Full")
         , ("M-S <F11>", sendMessage $ JumpToLayout "complex")
-- multimedia keys
         , ("<XF86AudioRaiseVolume>", spawn "amixer -- sset Master playback unmute ; amixer -- sset Master playback 2dB+")
         , ("<XF86AudioLowerVolume>", spawn "amixer -- sset Master playback 1dB-")
         , ("<XF86AudioMute>", spawn "amixer -- sset Master playback mute")