xmonad-config/lib/Projects.hs

53 lines
1.5 KiB
Haskell
Raw Normal View History

module Projects (
Projects.modify
) where
import XMonad
import XMonad.Actions.DynamicProjects
2019-04-17 16:14:19 +02:00
import XMonad.Util.Run
2020-11-07 08:04:05 +01:00
singleApp :: String -> Project
singleApp app = Project
{ projectName = app
, projectDirectory = "/tmp"
, projectStartHook = Just $ do spawn app
}
projects :: [Project]
2019-09-28 14:55:07 +02:00
projects =
2020-11-07 08:04:05 +01:00
[ singleApp "reaper"
, singleApp "renoise"
, singleApp "steam"
, Project { projectName = "admin"
2019-09-28 14:55:07 +02:00
, projectDirectory = "~/admin"
2020-03-28 16:41:16 +01:00
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
2020-10-17 10:59:18 +02:00
safeSpawnProg "mlterm"
2020-03-28 16:41:16 +01:00
}
, Project { projectName = "notes"
, projectDirectory = "~/zk"
2019-09-28 14:55:07 +02:00
, projectStartHook = Just $ do safeSpawn "vim" ["-g"]
2020-10-17 10:59:18 +02:00
safeSpawnProg "mlterm"
2019-09-28 14:55:07 +02:00
}
2020-03-07 16:53:04 +01:00
, Project { projectName = "accounting"
, projectDirectory = "~/accounting"
2020-10-17 10:59:18 +02:00
, projectStartHook = Just $ do safeSpawnProg "mlterm"
2020-03-07 16:53:04 +01:00
}
2019-09-28 14:55:07 +02:00
, Project { projectName = "flim"
, projectDirectory = "/flims/rtorrent/download"
2020-10-17 10:59:18 +02:00
, projectStartHook = Just $ do safeSpawnProg "mlterm"
2019-09-28 14:55:07 +02:00
}
, Project { projectName = "sound"
, projectDirectory = "/tmp"
, projectStartHook = Just $ do safeSpawnProg "pavucontrol"
}
, Project { projectName = "web"
, projectDirectory = "/tmp"
, projectStartHook = Just $ do spawn "firefox"
}
]
modify :: XConfig l -> XConfig l
modify conf = dynamicProjects projects conf
2018-05-28 19:53:36 +02:00
{ workspaces = [] }