import XMonad
import XMonad.Actions.SpawnOn
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops(fullscreenEventHook,ewmh)
import XMonad.Layout.Grid
import XMonad.Layout.ResizableTile
import XMonad.Layout.LayoutHints
import XMonad.Layout.Cross
import XMonad.Layout.ToggleLayouts
import XMonad.Layout.WindowNavigation
import XMonad.Layout.NoBorders
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.Scratchpad
import qualified XMonad.StackSet as W
-- import qualified XMonad.StackSet as S
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
 


myManageHook = 
	manageDocks 
	<+> manageSpawn 
	<+> 
	(composeAll [ isFullscreen --> doFullFloat
    , className =? "Gimp" --> doFloat
    , className =? "Vncviewer" --> doFloat
    , className =? "PrisonArchitect.x86_64" --> doFullFloat
    , className =? "hl_linux" --> doFloat
    , className =? "hl2_linux" --> doFloat
    , className =? "chromium" --> doFloat
    , className =? "Gajim" --> doShift "ι"
    , className =? "Thunderbird" --> doShift "θ"
    ]) 
	<+> manageScratchPad
 

manageScratchPad :: ManageHook
manageScratchPad = scratchpadManageHook (W.RationalRect l t w h)

  where

    h = 0.2    -- terminal height, 10%
    w = 0.7       -- terminal width, 100%
    t = 1 - h   -- distance from top edge, 90%
    l = (1 - w)/2   -- distance from left edge, 0%



myWorkspaces    = ["α","β","γ","δ","ε","ζ","η","θ","ι"]

myLogHook xmproc = do
	fadeInactiveLogHook 0.8 
	<+> dynamicLogWithPP xmobarPP
	{ ppOutput = hPutStrLn xmproc
	, ppTitle = xmobarColor "#01b8e0" "" . shorten 50
	}

myTerminal	= "urxvt"


myLayout = tiled ||| Mirror tiled ||| Full ||| Grid   where
     -- default tiling algorithm partitions the screen into two panes
     tiled   = Tall nmaster delta ratio

 
     -- The default number of windows in the master pane
     nmaster = 1
 
     -- Default proportion of screen occupied by master pane
     ratio   = 1/2
 
     -- Percent of screen to increment by when resizing panes
     delta   = 2/100
 

main = do
    xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar.hs"
    xmonad $ defaultConfig
        { manageHook = myManageHook -- make sure to include myManageHook definition from above
--                        <+> manageHook defaultConfig
        , layoutHook = avoidStruts  $  smartBorders $ myLayout
        , handleEventHook = mconcat
                          [ docksEventHook
                          , fullscreenEventHook
                          , handleEventHook defaultConfig ]
        , logHook = myLogHook xmproc
        , modMask = mod4Mask     -- Rebind Mod to the Windows key
	, terminal = myTerminal
	, workspaces = myWorkspaces
        } `additionalKeys`
        [ ((mod4Mask .|. shiftMask, 	xK_l), spawn "xscreensaver-command -lock")
	, ((mod4Mask .|. shiftMask, 	xK_r), spawn "terminology -e ranger")
	, ((mod4Mask .|. shiftMask, 	xK_f), spawn "firefox")
	, ((mod4Mask .|. shiftMask,	xK_Return), spawn "terminology")
	, ((mod4Mask .|. shiftMask, xK_t), scratchpadSpawnActionTerminal myTerminal)
	, ((mod4Mask , 		xK_q), spawn "killall xmobar; xmonad --recompile; xmonad --restart")
	, ((0                     , 0x1008FF11), spawn "amixer -q sset Master 2%-")
	, ((0                     , 0x1008FF13), spawn "amixer -q sset Master 2%+")
      	, ((0                     , 0x1008FF12), spawn "amixer set Master toggle")
       	, ((0                     , 0x1008FF03), spawn "xbacklight -dec 5")
     	, ((0                     , 0x1008FF02), spawn "xbacklight -inc 5")

        , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
        , ((0, xK_Print), spawn "scrot")
        ]