diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad.hs | 2 | ||||
| -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 |
6 files changed, 18 insertions, 19 deletions
@@ -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(..), |