2018-05-26 17:08:13 +02:00
|
|
|
module Projects (
|
|
|
|
Projects.modify
|
|
|
|
) where
|
|
|
|
|
|
|
|
import XMonad
|
|
|
|
import XMonad.Actions.DynamicProjects
|
|
|
|
|
|
|
|
projects :: [Project]
|
2018-06-03 18:11:02 +02:00
|
|
|
projects = [ Project { projectName = "admin"
|
|
|
|
, projectDirectory = "~/admin"
|
2018-05-26 17:08:13 +02:00
|
|
|
, projectStartHook = Nothing
|
|
|
|
}
|
2018-05-28 19:53:36 +02:00
|
|
|
, Project { projectName = "tootgun"
|
|
|
|
, projectDirectory = "~/candy/tootgun"
|
2018-05-26 17:08:13 +02:00
|
|
|
, projectStartHook = Nothing
|
|
|
|
}
|
2018-06-08 07:42:44 +02:00
|
|
|
, Project { projectName = "steam"
|
|
|
|
, projectDirectory = "~/"
|
|
|
|
, projectStartHook = Just $ do spawn "steam"
|
|
|
|
}
|
2018-06-09 09:44:40 +02:00
|
|
|
, Project { projectName = "web"
|
|
|
|
, projectDirectory = "/tmp"
|
|
|
|
, projectStartHook = Just $ do spawn "firefox"
|
|
|
|
}
|
2018-05-26 17:08:13 +02:00
|
|
|
]
|
|
|
|
|
|
|
|
modify :: XConfig l -> XConfig l
|
|
|
|
modify conf = dynamicProjects projects conf
|
2018-05-28 19:53:36 +02:00
|
|
|
{ workspaces = [] }
|
2018-05-26 17:08:13 +02:00
|
|
|
|