diff --git a/lib/Projects.hs b/lib/Projects.hs index 999a9d8..2cde6d4 100644 --- a/lib/Projects.hs +++ b/lib/Projects.hs @@ -23,36 +23,30 @@ singleTermAppWithName name app = Project -- safeSpawn "nvidia-offload" ["alacritty","-e","tmux","new","-A","-s",name] -- } -singleAppWithName' :: String -> String -> [String] -> Project -singleAppWithName' name app args = Project +singleAppWithName :: String -> String -> Project +singleAppWithName name app = Project { projectName = name , projectDirectory = "/tmp" - , projectStartHook = Just $ do safeSpawn app args + , projectStartHook = Just $ do spawn app } -singleAppWithName :: String -> String -> Project -singleAppWithName name app = singleAppWithName' name app [] - singleApp :: String -> Project singleApp app = singleAppWithName app app -singleJackApp :: String -> Project -singleJackApp app = singleAppWithName' app "pw-jack" [app] - projects :: [Project] projects = - [ singleApp "m8c" + [ singleApp "carla" , singleApp "obs" + , singleApp "patchage" + , singleApp "reaper" + , singleApp "renoise" , singleApp "steam" - , singleJackApp "carla" - , singleJackApp "reaper" - , singleJackApp "renoise" , singleAppWithName "Books" "calibre" , singleAppWithName "discord" "Discord" , singleAppWithName "element" "element-desktop" , singleAppWithName "signal" "signal-desktop" - , singleAppWithName "youtube" "chromium" - , singleAppWithName' "vcv" "pw-jack" ["Rack"] + , singleAppWithName "vcv" "Rack" + , singleAppWithName "wire" "wire-desktop" , singleTermAppWithName "email" "neomutt" , Project { projectName = "admin" , projectDirectory = "~/admin/nixos-config" @@ -69,6 +63,12 @@ projects = , projectStartHook = Just $ do safeSpawn "emacsclient" ["-c"] safeSpawnProg term } + , Project { projectName = "cdc-documentation" + , projectDirectory = "~/admin/cdc-documentation" + , projectStartHook = Just $ do + safeSpawnProg term + safeSpawn "emacsclient" ["-c"] + } , Project { projectName = "rukokuoppa" , projectDirectory = "~/candy/rukokuoppa" , projectStartHook = Just $ do safeSpawn "emacsclient" ["-c"] @@ -84,11 +84,6 @@ projects = , projectStartHook = Just $ do safeSpawn "emacsclient" ["-c"] safeSpawnProg term } - , Project { projectName = "m8" - , projectDirectory = "~/candy/m8c" - , projectStartHook = Just $ do safeSpawn "emacsclient" ["-c"] - safeSpawnProg term - } , Project { projectName = "waymonad" , projectDirectory = "~/candy/waymonad" , projectStartHook = Just $ do safeSpawn "emacsclient" ["-c"] diff --git a/xmonad.hs b/xmonad.hs index c165204..5283d4f 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -38,7 +38,7 @@ layouts = toggleLayouts fullscreen tiled -- For className, use the second value that xprop gives you. -------------- Here be the law of windows myManageHook = composeAll - [ className =? "Patchage" --> doShift "sound" + [ className =? "Patchage" --> doShift "patchage" , className =? "Pavucontrol" --> doShift "music" , className =? "Pinentry" --> doCenterFloat , className =? "REAPER" --> hasBorder False