Rename XMonad to MetaTile

1 files changed, 16 insertions, 16 deletions

diff --git a/Main.hs b/Main.hs
index 1e634d1..6aba89f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -8,13 +8,13 @@
 -- Stability   :  unstable
 -- Portability :  not portable, uses mtl, X11, posix
 --
--- xmonad, a minimalist, tiling window manager for X11
+-- metatile, a minimalist, tiling window manager for X11
 --
 -----------------------------------------------------------------------------
 
 module Main (main) where
 
-import XMonad
+import MetaTile
 
 import Control.Monad (unless)
 import System.Info
@@ -22,7 +22,7 @@ import System.Environment
 import System.Posix.Process (executeFile)
 import System.Exit (exitFailure)
 
-import Paths_xmonad (version)
+import Paths_metatile (version)
 import Data.Version (showVersion)
 
 import Graphics.X11.Xinerama (compiledWithXinerama)
@@ -31,13 +31,13 @@ import Graphics.X11.Xinerama (compiledWithXinerama)
 import qualified Properties
 #endif
 
--- | The entry point into xmonad. Attempts to compile any custom main
--- for xmonad, and if it doesn't find one, just launches the default.
+-- | The entry point into metatile. Attempts to compile any custom main
+-- for metatile, and if it doesn't find one, just launches the default.
 main :: IO ()
 main = do
     installSignalHandlers -- important to ignore SIGCHLD to avoid zombies
     args <- getArgs
-    let launch = xmonad def
+    let launch = metatile def
     case args of
         []                    -> launch
         ("--resume":_)        -> launch
@@ -52,7 +52,7 @@ main = do
 #endif
         _                     -> fail "unrecognized flags"
  where
-    shortVersion = ["xmonad", showVersion version]
+    shortVersion = ["metatile", showVersion version]
     longVersion  = [ "compiled by", compilerName, showVersion compilerVersion
                    , "for",  arch ++ "-" ++ os
                    , "\nXinerama:", show compiledWithXinerama ]
@@ -65,36 +65,36 @@ usage = do
         "Options:" :
         "  --help                       Print this message" :
         "  --version                    Print the version number" :
-        "  --recompile                  Recompile your ~/.xmonad/xmonad.hs" :
-        "  --replace                    Replace the running window manager with xmonad" :
-        "  --restart                    Request a running xmonad process to restart" :
+        "  --recompile                  Recompile your ~/.metatile/metatile.hs" :
+        "  --replace                    Replace the running window manager with metatile" :
+        "  --restart                    Request a running metatile process to restart" :
 #ifdef TESTING
         "  --run-tests                  Run the test suite" :
 #endif
         []
 
--- | Build "~\/.xmonad\/xmonad.hs" with ghc, then execute it.  If there are no
+-- | Build "~\/.metatile\/metatile.hs" with ghc, then execute it.  If there are no
 -- errors, this function does not return.  An exception is raised in any of
 -- these cases:
 --
 --   * ghc missing
 --
---   * both "~\/.xmonad\/xmonad.hs" and "~\/.xmonad\/xmonad-$arch-$os" missing
+--   * both "~\/.metatile\/metatile.hs" and "~\/.metatile\/metatile-$arch-$os" missing
 --
---   * xmonad.hs fails to compile
+--   * metatile.hs fails to compile
 --
 --      ** wrong ghc in path (fails to compile)
 --
 --      ** type error, syntax error, ..
 --
---   * Missing XMonad\/XMonadContrib modules due to ghc upgrade
+--   * Missing MetaTile\/MetaTileContrib modules due to ghc upgrade
 --
 buildLaunch ::  IO ()
 buildLaunch = do
     recompile False
-    dir  <- getXMonadDir
+    dir  <- getMetaTileDir
     args <- getArgs
-    executeFile (dir ++ "/xmonad-"++arch++"-"++os) False args Nothing
+    executeFile (dir ++ "/metatile-"++arch++"-"++os) False args Nothing
     return ()
 
 sendRestart :: IO ()