Add singleApp helper

lib/Projects.hs

@@ -6,9 +6,19 @@ import XMonad
 import XMonad.Actions.DynamicProjects
 import XMonad.Util.Run
 
+singleApp :: String -> Project
+singleApp app = Project
+  { projectName = app
+  , projectDirectory = "/tmp"
+  , projectStartHook = Just $ do spawn app
+  }
+
 projects :: [Project]
 projects =
-  [ Project { projectName = "admin"
+  [ singleApp "reaper"
+  , singleApp "renoise"
+  , singleApp "steam"
+  , Project { projectName = "admin"
             , projectDirectory = "~/admin"
             , projectStartHook = Just $ do safeSpawn "vim" ["-g"]
                                            safeSpawnProg "mlterm"
@@ -30,10 +40,6 @@ projects =
             , projectDirectory = "/tmp"
             , projectStartHook = Just $ do safeSpawnProg "pavucontrol"
             }
-  , Project { projectName = "steam"
-            , projectDirectory = "~/"
-            , projectStartHook = Just $ do spawn "steam"
-            }
   , Project { projectName = "web"
             , projectDirectory = "/tmp"
             , projectStartHook = Just $ do spawn "firefox"