{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE UnicodeSyntax #-}

import XMonad
import XMonad.Util.EZConfig
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Prompt
import XMonad.Prompt.AppendFile
import XMonad.Prompt.Shell
import XMonad.Prompt.RunOrRaise
import XMonad.Layout.Circle
import XMonad.Layout.Accordion
import XMonad.Layout.NoBorders
import XMonad.Layout.MouseResizableTile
import XMonad.Actions.CycleWS
import XMonad.Actions.MouseGestures
import Data.Map



main ∷ IO ()
main = xmonad $ ewmh defaultConfig
       { terminal           = "xterm"
       , modMask            = mod4Mask
       , manageHook         = manageDocks
       , handleEventHook    = docksEventHook
       , focusedBorderColor = "#00FF00"
       , layoutHook         = avoidStruts $
                              smartBorders $
                              mouseResizableTile { draggerType = BordersDragger } |||
                              mouseResizableTileMirrored { draggerType = BordersDragger } |||
                              Accordion |||
                              Full |||
                              Circle
       }
        `removeKeysP`
       [ "M-p"
       , "M-S-p"
       ]
        `additionalKeysP`
       makeez
        `additionalMouseBindings`
       [ ((mod4Mask              ,button2),mouseGesture modMouse)
       , ((mod4Mask .|. shiftMask,button2),mouseGesture modShiftMouse)
       ]


makeez ∷ [(String, X ())]
makeez =
  [ ("M-x",                    runOrRaisePrompt defaultXPConfig)
  , ("M-s",                    shellPrompt defaultXPConfig)
  , ("M-#",                    toggleWS)
  , ("M-<L>",                  prevWS)
  , ("M-<R>",                  nextWS)
  , ("M-S-<L>",                shiftToPrev)
  , ("M-S-<R>",                shiftToNext)
  , ("M-S-s",                  spawn "gmrun")
  , ("M-S-e",                  spawn "emacs")
  , ("M-S-b",                  spawn "iceweasel")
  , ("M-S-i",                  spawn $ "xclip -selection primary   -o > /home/mekeor/i;" ++
                                       "xclip -selection clipboard -o > /home/mekeor/ii")
  , ("M-S-a",                  spawn "echo -n \"`date \"+%d.%m.%Y %H:%m:%S:\"` \" >> /home/mekeor/n" >>
                               appendFilePrompt defaultXPConfig "/home/mekeor/n")
  , ("M-S-f",                  spawn "nautilus")
  , ("M-S-r",                  spawn "evince")
  , ("M-S-m",                  spawn "icedove")
  , ("M-S-x",                  spawn "xxxterm")
  , ("M-S-w",                  spawn "wicd-gtk -n")
  , ("M-S-t",                  spawn "killall volumeicon tint2 || { tint2 & sleep 1; volumeicon; }")
  , ("M-S-d",                  sendMessage ToggleStruts)
  , ("M-S--",                  sendMessage ShrinkSlave)
  , ("M-S-+",                  sendMessage ExpandSlave)
  , ("<XF86HomePage>",         spawn "iceweasel")
  , ("<XF86Mail>",             spawn "icedove")
  , ("<XF86Tools>",            spawn "vlc")
  , ("<XF86AudioMute>",        spawn "amixer -c 0 set Master toggle")
  , ("<XF86Launch1>",          spawn "amixer -c 0 set Master toggle")
  , ("<XF86AudioRaiseVolume>", spawn "amixer -c 0 set Master 5%+")
  , ("<XF86AudioLowerVolume>", spawn "amixer -c 0 set Master 5%-")
  ]
   ++
  [ ("M1-<F"++show x++">",     spawn $ "sudo chvt " ++ show x)
  | x <- [1..6] ∷ [Integer]
  ]


modMouse ∷ Map [Direction2D] (Window -> X ())
modMouse = fromList
  [ ([   ], focus)
  , ([D  ], const $ sendMessage NextLayout)
  , ([R  ], const $ nextWS)
  , ([L  ], const $ prevWS)
  , ([U  ], const $ toggleWS)
  ]


modShiftMouse ∷ Map [Direction2D] (Window -> X ())
modShiftMouse = fromList
  [ ([   ], focus)
  , ([R  ], const $ shiftToNext)
  , ([L  ], const $ shiftToPrev)
  ]