From 368de76deb944da389e96c346fe8c7f03c614e4d Mon Sep 17 00:00:00 2001
From: "EEva (JPotier)" <jpo.contributes.to.nixos@marvid.fr>
Date: Sat, 7 Nov 2020 09:04:05 +0200
Subject: [PATCH] Add singleApp helper

---
 lib/Projects.hs | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/lib/Projects.hs b/lib/Projects.hs
index 6dae395..ffff394 100644
--- a/lib/Projects.hs
+++ b/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"