summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 90cd842..aad2804 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -34,6 +34,7 @@ import Graphics.X11.Xlib
import System.Console.GetOpt
import System.Exit
import System.Environment
+import System.Environment.XDG.BaseDir
import System.Posix.Files
import Control.Monad (unless)
@@ -91,10 +92,14 @@ readConfig f = do
-- | Read default configuration file or load the default config
readDefaultConfig :: IO (Config,[String])
readDefaultConfig = do
+ xdgconf <- getUserDataFile "xmobar" "xmobarrc"
+ x <- io $ fileExist xdgconf
home <- io $ getEnv "HOME"
let path = home ++ "/.xmobarrc"
f <- io $ fileExist path
- if f then readConfig path else return (defaultConfig,[])
+ if x then readConfig path
+ else if f then readConfig path
+ else return (defaultConfig,[])
data Opts = Help
| Version