twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.DynamicProjects: Don't autodelete projects

Browse Source 
Fixes #902 by no longer deleting projects on switch, as it is more confusing than useful.
This commit is contained in:
Giacomo Rosin 2024-08-31 16:10:06 +02:00 committed by brandon s allbery kf8nh
parent b3c249434d
commit c98715623d
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
XMonad/Actions/DynamicProjects.hs
View File

@ -255,20 +255,7 @@ modifyProject f = do
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- | Switch to the given project. -- | Switch to the given project.
switchProject :: Project -> X () switchProject :: Project -> X ()
switchProject p = do switchProject p = appendWorkspace (projectName p)
oldws <- gets (W.workspace . W.current . windowset)
oldp <- currentProject
let name = W.tag oldws
ws = W.integrate' (W.stack oldws)
-- If the project we are switching away from has no windows, and
-- it's a dynamic project, remove it from the configuration.
when (null ws && isNothing (projectStartHook oldp)) $ do
removeWorkspaceByTag name -- also remove the old workspace
XS.modify (\s -> s {projects = Map.delete name $ projects s})
appendWorkspace (projectName p)
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- | Prompt for a project name and then switch to it. Automatically -- | Prompt for a project name and then switch to it. Automatically