mpo/xmonad-config
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

More changes

Browse source
This commit is contained in:
Martin Potier 2022-02-10 15:23:46 +02:00
parent 8d1c03a862
commit 767c37d492
No known key found for this signature in database
GPG key ID: D4DD957DBA4AD89E
1 changed files with 11 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lib/Projects.hs
View file

@ -32,10 +32,13 @@ spinInTerm :: String -> Project
spinInTerm name = spinInTermWithName name name
justStart :: String -> Project
justStart name =
justStart name = justStartWithName name name
justStartWithName :: String -> String -> Project
justStartWithName name pgm =
Project { projectName = name
, projectDirectory = "/tmp"
, projectStartHook = Just $ do safeSpawnProg name
, projectStartHook = Just $ do safeSpawnProg pgm
}
adminProject = spinTextEditorAndTerm "~/admin/"
@ -46,11 +49,13 @@ projects :: [Project]
projects = [ adminProject "wrk-config"
, adminProject "cdc-config"
, adminProject "overlays-personal"
, candyProject "adventofcode"
, candyProject "dhall-packages"
, candyProject "hfdb"
, candyProject "adventofcode"
, justStart "obs"
, justStart "m8c"
, justStartWithName "fre" "ff-perso"
, justStartWithName "frs" "ff-relex"
, justStartWithName "meeeting" "chromium"
, justStartWithName "notes" "obsidian"
, spinChat "element"
, spinChat "signal"
, spinChat "wire"
@ -59,6 +64,7 @@ projects = [ adminProject "wrk-config"
, spinTextEditorAndTerm "~/." "xmonad" -- Dark magic!
, workProject "azure-core-infra"
, workProject "azure-kube-platform"
, workProject "azure-kube-platform-environments"
, workProject "bob-the-builder"
, workProject "calculation-node-playbook"
, workProject "common-cicd-config-private-cloud"
@ -110,29 +116,12 @@ projects = [ adminProject "wrk-config"
, projectStartHook = Just $ do
safeSpawn "nvidia-offload" ["kitty","gotop"]
}
, Project { projectName = "frs"
, projectDirectory = "/tmp"
, projectStartHook = Just $ do safeSpawnProg "ff-relex"
}
, Project { projectName = "fre"
, projectDirectory = "/tmp"
, projectStartHook = Just $ do safeSpawnProg "ff-perso"
}
, Project { projectName = "network-graph"
, projectDirectory = "~/relex/catch-a-network-bug/csvplotter"
, projectStartHook = Just $ do safeSpawn "zathura" ["weekXGraph.pdf"]
safeSpawnProg "st"
}
, Project { projectName = "sound"
, projectDirectory = "/tmp"
, projectStartHook = Just $ do
safeSpawn "pw-jack" ["patchage"]
safeSpawnProg "easyeffects"
}
, Project { projectName = "meeting"
, projectDirectory = "/tmp"
, projectStartHook = Just $ do safeSpawnProg "chromium"
}
]
modify :: XConfig l -> XConfig l