module Projects (
  Projects.modify
) where

import XMonad
import XMonad.Actions.DynamicProjects
import XMonad.Util.Run

projects :: [Project]
projects =
  [ Project { projectName = "admin"
            , projectDirectory = "~/admin"
            , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                           safeSpawnProg "mlterm"
            }
  , Project { projectName = "notes"
            , projectDirectory = "~/zk"
            , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                           safeSpawnProg "mlterm"
            }
  , Project { projectName = "accounting"
            , projectDirectory = "~/accounting"
            , projectStartHook = Just $ do safeSpawnProg "mlterm"
            }
  , Project { projectName = "flim"
            , projectDirectory = "/flims/rtorrent/download"
            , projectStartHook = Just $ do safeSpawnProg "mlterm"
            }
  , Project { projectName = "sound"
            , projectDirectory = "/tmp"
            , projectStartHook = Just $ do safeSpawnProg "pavucontrol"
            }
  , Project { projectName = "steam"
            , projectDirectory = "~/"
            , projectStartHook = Just $ do spawn "steam"
            }
  , Project { projectName = "web"
            , projectDirectory = "/tmp"
            , projectStartHook = Just $ do spawn "firefox"
            }
  ]

modify :: XConfig l -> XConfig l
modify conf = dynamicProjects projects conf
  { workspaces = [] }