sketch of config/main inversion.

darcs-hash:20071018164230-72aca-f83f6ea18efda57fc5364e98dadada6c902ee2a5.gz

1 files changed, 8 insertions, 1 deletions

diff --git a/Config.hs b/config.hs
index 5c092fc..37b0661 100644
--- a/Config.hs
+++ b/config.hs
@@ -14,7 +14,7 @@
 --
 ------------------------------------------------------------------------
 
-module Config where
+module Main ( main ) where
 
 --
 -- Useful imports
@@ -27,6 +27,7 @@ import Data.Bits ((.|.))
 import qualified Data.Map as M
 import System.Exit
 import Graphics.X11.Xlib
+import EventLoop
 
 -- % Extension-provided imports
 
@@ -272,3 +273,9 @@ mouseBindings = M.fromList $
     ]
 
 -- % Extension-provided definitions
+
+
+-- % The main function
+
+main = makeMain normalBorderColor focusedBorderColor layoutHook workspaces
+                defaultGaps keys mouseBindings borderWidth logHook