twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fixed location of xmonad.conf

Browse Source
This commit is contained in:
Roman Cheplyaka
2008-05-18 20:46:02 +00:00
parent 7a3ff21b89
commit 3cbccce5e8
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Config/PlainConfig.hs
View File

@@ -471,7 +471,8 @@ baseConfig = defaultConfig{ layoutHook = Layout (layoutHook defaultConfig) }
-- | Core function that attempts to parse @~\/.xmonad\/xmonad.conf@ -- | Core function that attempts to parse @~\/.xmonad\/xmonad.conf@
readConfig :: IO (Maybe (XConfig Layout)) readConfig :: IO (Maybe (XConfig Layout))
readConfig = do readConfig = do
cs <- bracket (openFile "/home/braden/.xmonad/xmonad.conf" ReadMode) dir <- getXMonadDir
cs <- bracket (openFile (dir++"/xmonad.conf") ReadMode)
(\h -> hClose h) -- vv force the lazy IO (\h -> hClose h) -- vv force the lazy IO
(\h -> (lines `fmap` hGetContents h) >>= \ss -> (\h -> (lines `fmap` hGetContents h) >>= \ss ->
length ss `seq` return ss) length ss `seq` return ss)