xmonad-config/lib/Projects.hs

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 "st"
                      }
            , Project { projectName = "mordor"
                      , projectDirectory = "~/mordor"
                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                                     safeSpawnProg "st"
                      }
            , Project { projectName = "mordor-docs"
                      , projectDirectory = "~/mordor-2"
                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                                     safeSpawnProg "st"
                      }
            , Project { projectName = "mordor-other"
                      , projectDirectory = "~/mordor-3"
                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                                     safeSpawnProg "st"
                      }
            , Project { projectName = "email"
                      , projectDirectory = "~/mail"
                      , projectStartHook = Just $ do safeSpawnProg "st"
                      }
            , Project { projectName = "frs"
                      , projectDirectory = "/tmp"
                      , projectStartHook = Just $ do safeSpawnProg "frs"
                      }
            , Project { projectName = "fre"
                      , projectDirectory = "/tmp"
                      , projectStartHook = Just $ do safeSpawnProg "fre"
                      }
            , Project { projectName = "network-graph"
                      , projectDirectory = "~/relex/catch-a-network-bug/csvplotter"
                      , projectStartHook = Just $ do safeSpawn "zathura" ["weekXGraph.pdf"]
                                                     safeSpawnProg "st"
                      }
            , Project { projectName = "orc"
                      , projectDirectory = "/tmp"
                      , projectStartHook = Just $ do safeSpawnProg "st"
                      }
            , Project { projectName = "mordor-ops"
                      , projectDirectory = "~/relex/mordor-ops"
                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                                     safeSpawnProg "st"
                      }
            , Project { projectName = "mordor-deploy"
                      , projectDirectory = "~/relex/mordor-deploy"
                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                                     safeSpawnProg "st"
                      }
            , Project { projectName = "scaleout-ops"
                      , projectDirectory = "~/relex/scaleout-ops"
                      , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                                     safeSpawnProg "st"
                      }
            , Project { projectName = "sound"
                      , projectDirectory = "/tmp"
                      , projectStartHook = Just $ do safeSpawnProg "pavucontrol"
                      }
            , Project { projectName = "daily"
                      , projectDirectory = "/tmp"
                      , projectStartHook = Just $ do safeSpawn "nix" ["run", "nixpkgs.chromium", "-c", "chromium"]
                      }
           ]

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