From d55ab1c5218fff41c29fd639fae86958cc8ef325 Mon Sep 17 00:00:00 2001
From: Roman Cheplyaka <roma@ro-che.info>
Date: Sun, 18 May 2008 22:46:02 +0200
Subject: Fixed location of xmonad.conf

darcs-hash:20080518204602-3ebed-0b83168c51b03e8d54c72c417161982ad8058d60.gz
---
 XMonad/Config/PlainConfig.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'XMonad/Config')

diff --git a/XMonad/Config/PlainConfig.hs b/XMonad/Config/PlainConfig.hs
index dc0f178..f1ebf1d 100644
--- a/XMonad/Config/PlainConfig.hs
+++ b/XMonad/Config/PlainConfig.hs
@@ -471,7 +471,8 @@ baseConfig = defaultConfig{ layoutHook = Layout (layoutHook defaultConfig) }
 -- | Core function that attempts to parse @~\/.xmonad\/xmonad.conf@
 readConfig :: IO (Maybe (XConfig Layout))
 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 -> (lines `fmap` hGetContents h) >>= \ss -> 
                     length ss `seq` return ss)
-- 
cgit v1.2.3