summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-11-01 19:08:46 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-11-01 19:08:46 +0100
commit8b8380e18b70352c5e233635d34139b17539b001 (patch)
tree523cb2192ba4bca35f69817afb5cb2fcaa7987fd
parente5dce65d3d2d41685d1ce077af9aea70a4ee0c1d (diff)
downloadmetatile-8b8380e18b70352c5e233635d34139b17539b001.tar
metatile-8b8380e18b70352c5e233635d34139b17539b001.zip
Hierarchify
darcs-hash:20071101180846-a5988-25ba1c9ce37a35c1533e4075cc9494c6f7dd5ade
-rw-r--r--Main.hs4
-rw-r--r--XMonad.hs2
-rw-r--r--XMonad/DefaultConfig.hs (renamed from DefaultConfig.hs)15
-rw-r--r--XMonad/EventLoop.hs (renamed from EventLoop.hs)8
-rw-r--r--XMonad/Layouts.hs (renamed from Layouts.hs)4
-rw-r--r--XMonad/Operations.hs (renamed from Operations.hs)6
-rw-r--r--XMonad/StackSet.hs (renamed from StackSet.hs)2
-rw-r--r--tests/Properties.hs4
-rw-r--r--xmonad.cabal4
9 files changed, 24 insertions, 25 deletions
diff --git a/Main.hs b/Main.hs
index d8610db..d41823e 100644
--- a/Main.hs
+++ b/Main.hs
@@ -14,8 +14,8 @@
module Main (main) where
-import EventLoop (makeMain)
-import DefaultConfig (defaultConfig)
+import XMonad.EventLoop (makeMain)
+import XMonad.DefaultConfig (defaultConfig)
import Control.Exception (handle)
import System.IO
diff --git a/XMonad.hs b/XMonad.hs
index 7428c2f..9039de2 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -21,7 +21,7 @@ module XMonad (
atom_WM_STATE, atom_WM_PROTOCOLS, atom_WM_DELETE_WINDOW
) where
-import StackSet
+import XMonad.StackSet
import Prelude hiding ( catch )
import Control.Exception (catch, throw, Exception(ExitException))
diff --git a/DefaultConfig.hs b/XMonad/DefaultConfig.hs
index 58abac8..6fc710f 100644
--- a/DefaultConfig.hs
+++ b/XMonad/DefaultConfig.hs
@@ -1,6 +1,6 @@
-----------------------------------------------------------------------------
-- |
--- Module : Config.hs
+-- Module : DefaultConfig.hs
-- Copyright : (c) Spencer Janssen 2007
-- License : BSD3-style (see LICENSE)
--
@@ -14,7 +14,7 @@
--
------------------------------------------------------------------------
-module DefaultConfig (defaultConfig) where
+module XMonad.DefaultConfig (defaultConfig) where
--
-- Useful imports
@@ -22,15 +22,14 @@ module DefaultConfig (defaultConfig) where
import Control.Monad.Reader ( asks )
import XMonad hiding (workspaces, manageHook, numlockMask)
import qualified XMonad (workspaces, manageHook, numlockMask)
-import Layouts
-import Operations
-import qualified StackSet as W
+import XMonad.Layouts
+import XMonad.Operations
+import qualified XMonad.StackSet as W
import Data.Ratio
import Data.Bits ((.|.))
import qualified Data.Map as M
import System.Exit
import Graphics.X11.Xlib
-import EventLoop
-- % Extension-provided imports
@@ -245,8 +244,8 @@ defaultConfig = XConfig { borderWidth = 1 -- Width of the window border in pixel
, normalBorderColor = "#dddddd" -- Border color for unfocused windows.
, focusedBorderColor = "#ff0000" -- Border color for focused windows.
, XMonad.numlockMask = numlockMask
- , XMonad.keys = DefaultConfig.keys
- , XMonad.mouseBindings = DefaultConfig.mouseBindings
+ , XMonad.keys = XMonad.DefaultConfig.keys
+ , XMonad.mouseBindings = XMonad.DefaultConfig.mouseBindings
-- | Perform an arbitrary action on each internal state change or X event.
-- Examples include:
-- * do nothing
diff --git a/EventLoop.hs b/XMonad/EventLoop.hs
index ce29264..9bfb588 100644
--- a/EventLoop.hs
+++ b/XMonad/EventLoop.hs
@@ -13,7 +13,7 @@
--
-----------------------------------------------------------------------------
-module EventLoop (makeMain) where
+module XMonad.EventLoop (makeMain) where
import Data.Bits
import qualified Data.Map as M
@@ -29,9 +29,9 @@ import Graphics.X11.Xlib.Extras
import Graphics.X11.Xinerama (getScreenInfo)
import XMonad
-import StackSet (new, floating, member)
-import qualified StackSet as W
-import Operations
+import XMonad.StackSet (new, floating, member)
+import qualified XMonad.StackSet as W
+import XMonad.Operations
import System.IO
diff --git a/Layouts.hs b/XMonad/Layouts.hs
index 30c70ea..862b70c 100644
--- a/Layouts.hs
+++ b/XMonad/Layouts.hs
@@ -15,14 +15,14 @@
--
-----------------------------------------------------------------------------
-module Layouts (ChangeLayout(..), Choose, (|||), Resize(..), IncMasterN(..),
+module XMonad.Layouts (ChangeLayout(..), Choose, (|||), Resize(..), IncMasterN(..),
Full(..), Tall(..), Mirror(..), mirrorRect, splitVertically,
splitHorizontally, splitHorizontallyBy, splitVerticallyBy) where
import XMonad
import Graphics.X11 (Rectangle(..))
-import qualified StackSet as W
+import qualified XMonad.StackSet as W
import Control.Arrow ((***), second)
import Control.Monad
import Data.Maybe (fromMaybe)
diff --git a/Operations.hs b/XMonad/Operations.hs
index b911cf5..dc2d090 100644
--- a/Operations.hs
+++ b/XMonad/Operations.hs
@@ -16,11 +16,11 @@
--
-----------------------------------------------------------------------------
-module Operations where
+module XMonad.Operations where
import XMonad
-import Layouts (Full(..))
-import qualified StackSet as W
+import XMonad.Layouts (Full(..))
+import qualified XMonad.StackSet as W
import Data.Maybe
import Data.List (nub, (\\), find)
diff --git a/StackSet.hs b/XMonad/StackSet.hs
index 807cb1b..cb19746 100644
--- a/StackSet.hs
+++ b/XMonad/StackSet.hs
@@ -11,7 +11,7 @@
-- Portability : portable, Haskell 98
--
-module StackSet (
+module XMonad.StackSet (
-- * Introduction
-- $intro
StackSet(..), Workspace(..), Screen(..), Stack(..), RationalRect(..),
diff --git a/tests/Properties.hs b/tests/Properties.hs
index 0b3e728..4f69f76 100644
--- a/tests/Properties.hs
+++ b/tests/Properties.hs
@@ -1,8 +1,8 @@
{-# OPTIONS -fglasgow-exts #-}
module Properties where
-import StackSet hiding (filter)
-import qualified StackSet as S (filter)
+import XMonad.StackSet hiding (filter)
+import qualified XMonad.StackSet as S (filter)
import Debug.Trace
import Data.Word
diff --git a/xmonad.cabal b/xmonad.cabal
index 0663f24..baa5a8c 100644
--- a/xmonad.cabal
+++ b/xmonad.cabal
@@ -19,11 +19,11 @@ author: Spencer Janssen
maintainer: sjanssen@cse.unl.edu
build-depends: base>=2.0, mtl, unix, X11==1.3.0
extra-source-files: README TODO tests/loc.hs tests/Properties.hs man/xmonad.1.in
- Config.hs-boot util/GenerateManpage.hs man/xmonad.1 man/xmonad.html
+ util/GenerateManpage.hs man/xmonad.1 man/xmonad.html
executable: xmonad
main-is: Main.hs
-other-modules: EventLoop Layouts Operations StackSet XMonad
+other-modules: XMonad.EventLoop XMonad.Layouts XMonad.Operations XMonad.StackSet XMonad
ghc-options: -funbox-strict-fields -O2 -fasm -Wall -optl-Wl,-s
ghc-prof-options: -prof -auto-all
extensions: GeneralizedNewtypeDeriving