import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
import XMonad.Util.Run(spawnPipe)
import System.IO
import Data.List(isPrefixOf)

main :: IO ()
main = do
  xmproc <-spawnPipe "/usr/bin/xmobar /home/alan/.xmobarrc"
  xmonad $ defaultConfig {
    manageHook = composeOne [
       isFullscreen -?> doFullFloat,
       fmap ("mpv" `isPrefixOf`) title -?> doFullFloat
       ] <+> manageDocks <+> manageHook defaultConfig,
    layoutHook = smartBorders . avoidStruts  $  layoutHook defaultConfig,
    logHook = dynamicLogWithPP xmobarPP {
      ppOutput = hPutStrLn xmproc,
      ppTitle  = xmobarColor "#859900" "" . shorten 200,
      ppCurrent = xmobarColor "#b58900" "". wrap "[" "]",
      ppHiddenNoWindows = xmobarColor "#93a1a1" "",
      ppUrgent  = xmobarColor "#dc322f" "#b58900"
    },
    terminal = "urxvt",
    modMask = mod4Mask,
    handleEventHook = fullscreenEventHook
  }