some fixes

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"]

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