79 lines
3.7 KiB
Haskell
79 lines
3.7 KiB
Haskell
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 = [] }
|
|
|