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

Use absolute paths in DynamicProjects

Browse Source
This commit is contained in:
Zubin Duggal 2019-02-13 16:06:10 +05:30
parent deaaf6b177
commit cf789504e8
No known key found for this signature in database
GPG Key ID: 7CCFC277A14C97A7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Actions/DynamicProjects.hs
View File

@ -50,7 +50,7 @@ import Data.Map.Strict (Map)
import qualified Data.Map.Strict as Map import qualified Data.Map.Strict as Map
import Data.Maybe (fromMaybe, isNothing) import Data.Maybe (fromMaybe, isNothing)
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import System.Directory (setCurrentDirectory, getHomeDirectory) import System.Directory (setCurrentDirectory, getHomeDirectory, makeAbsolute)
import XMonad import XMonad
import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.DynamicWorkspaces
import XMonad.Prompt import XMonad.Prompt
@ -182,7 +182,8 @@ instance XPrompt ProjectPrompt where
modifyProject (\p -> p { projectName = name }) modifyProject (\p -> p { projectName = name })
modeAction (ProjectPrompt DirMode _) buf auto = do modeAction (ProjectPrompt DirMode _) buf auto = do
let dir = if null auto then buf else auto let dir' = if null auto then buf else auto
dir <- io $ makeAbsolute dir'
modifyProject (\p -> p { projectDirectory = dir }) modifyProject (\p -> p { projectDirectory = dir })
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------