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