xmonad.hs

import XMonad
import XMonad.Layout.NoBorders
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers(isFullscreen,doFullFloat)
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops -- fix fullscreen
import XMonad.Util.EZConfig(additionalKeysP)
import XMonad.Util.Run(spawnPipe)
import XMonad.Hooks.ICCCMFocus
import System.IO

-- add compton

myStartupHook :: X ()
myStartupHook = do
  spawn "compton -f --backend glx --vsync opengl"

--myLogHook :: X ()
--myLogHook = 

myManageHooks = composeAll [
                 manageDocks,
                 isFullscreen --> doFullFloat,
                 manageHook defaultConfig
               ]

myConfig = defaultConfig
           { borderWidth = 2
           , terminal = "urxvt"
           , normalBorderColor = "#cccccc"
           , focusedBorderColor = "#dd0000"
           , modMask = mod4Mask -- use super (win) instead of ALT
           , manageHook = myManageHooks
           , logHook = takeTopFocus -- fixes IDEA / android studio
           , handleEventHook = fullscreenEventHook
           , layoutHook = avoidStruts $ smartBorders $ layoutHook defaultConfig
           , startupHook = myStartupHook <+> startupHook defaultConfig
           } `additionalKeysP` [
            ("M-S-z", spawn "xscreensaver-command -lock")
           ]

--main = xmonad myConfig
--main = xmonad =<< xmobar myConfig
main = xmonad =<< xmobar myConfig