splitted files

darcs-hash:20070626113948-d6583-73d318293d1cd91894589450e5cd270dd39bdc02.gz

1 files changed, 51 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
new file mode 100644
index 0000000..ca2b92f
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,51 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMobar.Main
+-- Copyright   :  (c) Andrea Rossato
+-- License     :  BSD-style (see LICENSE)
+-- 
+-- Maintainer  :  Andrea Rossato <andrea.rossato@unibz.it>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- The main module of XMobar, a status bar for the Xmonad Window Manager 
+--
+-----------------------------------------------------------------------------
+
+module Main ( -- * Main Stuff
+              -- $main
+              main
+            , readConfig 
+            ) where
+
+import XMobar
+import Parsers
+import Config
+import System.Environment
+
+-- $main
+ 
+-- | The main entry point
+main :: IO ()
+main = 
+    do args <- getArgs
+       config <-
+           if length args /= 1
+              then do putStrLn ("No configuration file specified. Using default settings.")
+                      return defaultConfig
+              else readConfig (args!!0)
+       cl <- parseTemplate config (template config)
+       var <- execCommands config cl
+       (d,w) <- createWin config
+       runXMobar config var d w eventLoop
+
+-- | Reads the configuration files or quits with an error
+readConfig :: FilePath -> IO Config
+readConfig f = 
+    do s <- readFile f
+       case reads s of
+         [(config,_)] -> return config
+         [] -> error ("Corrupt config file: " ++ f)
+         _ -> error ("Some problem occured. Aborting...")
+
+