Cleanup: remove unused imports.

Ilya Portnov [2011-05-01 15:54:04]
Cleanup: remove unused imports.
Filename
lib/AppGroups.hs
lib/CommonFunctions.hs
lib/GroupsSetup.hs
lib/KeyBindings.hs
lib/Layouts.hs
lib/MyManageHooks.hs
xmonad.hs
diff --git a/lib/AppGroups.hs b/lib/AppGroups.hs
index 97582c8..6450532 100644
--- a/lib/AppGroups.hs
+++ b/lib/AppGroups.hs
@@ -15,7 +15,6 @@ import qualified XMonad.StackSet as W

 import XMonad.Actions.GridSelect
 import XMonad.Actions.DynamicWorkspaces
-import XMonad.Actions.GroupNavigation
 import XMonad.Layout.Minimize
 import XMonad.Util.WindowProperties
 import XMonad.Util.NamedWindows
diff --git a/lib/CommonFunctions.hs b/lib/CommonFunctions.hs
index fffb050..657ead7 100644
--- a/lib/CommonFunctions.hs
+++ b/lib/CommonFunctions.hs
@@ -4,7 +4,7 @@ module CommonFunctions where
 import System.FilePath.Glob
 import System.FilePath
 import System.Environment (getEnv)
-import Control.Monad (liftM,when,filterM)
+import Control.Monad (when)
 import qualified Data.Map as M
 import Data.Maybe
 import Data.Monoid
@@ -16,8 +16,6 @@ import qualified XMonad.StackSet as W
 import XMonad.Util.WindowProperties
 import XMonad.Layout.LayoutCombinators

-import XMonad.Prompt
-import XMonad.Prompt.Window
 import XMonad.Prompt.Input

 import XMonad.Actions.GroupNavigation
@@ -25,15 +23,9 @@ import XMonad.Actions.DynamicWorkspaces
 import XMonad.Actions.GridSelect

 import Themes
-import XKBLayout

 gridselect' :: GSConfig a -> [(String, a)] -> X (Maybe a)
 gridselect' = gridselect
---   currentLayout <- withDisplay (io . getKbdLayout)
---   withDisplay $ \dpy -> io $ setKbdLayout dpy 0
---   result <- gridselect gsconfig pairs
---   withDisplay $ \dpy -> io $ setKbdLayout dpy currentLayout
---   return result

 doWithAnyBut ::  Property -> (Window -> X ()) -> Window -> X ()
 doWithAnyBut prop action w = do
diff --git a/lib/GroupsSetup.hs b/lib/GroupsSetup.hs
index f181989..f6d213f 100644
--- a/lib/GroupsSetup.hs
+++ b/lib/GroupsSetup.hs
@@ -1,8 +1,6 @@
 {-# LANGUAGE NoMonomorphismRestriction #-}
 module GroupsSetup where

-import XMonad.Util.WindowProperties
-
 import AppGroups
 import CommonFunctions

diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs
index 7ce7ea8..9ece3af 100644
--- a/lib/KeyBindings.hs
+++ b/lib/KeyBindings.hs
@@ -19,24 +19,18 @@ import XMonad.Actions.DwmPromote
 import XMonad.Actions.GridSelect
 import XMonad.Actions.FindEmptyWorkspace
 import XMonad.Actions.GroupNavigation
-import XMonad.Actions.PerWorkspaceKeys

 import XMonad.Layout.MultiToggle
 import XMonad.Layout.MultiToggle.Instances
 import XMonad.Layout.Maximize
 import XMonad.Layout.Minimize
--- import XMonad.Layout.Groups.Examples
 import XMonad.Layout.SubLayouts
--- import qualified XMonad.Layout.TabbedModifier as Tab
 import qualified XMonad.Layout.WindowNavigation as Nav

-import XMonad.Prompt
 import XMonad.Prompt.Window
-import XMonad.Prompt.Input

 import CommonFunctions
 import Themes
-import Layouts
 import AppGroups
 import GroupsSetup

diff --git a/lib/Layouts.hs b/lib/Layouts.hs
index c302141..b3fa6b5 100644
--- a/lib/Layouts.hs
+++ b/lib/Layouts.hs
@@ -5,16 +5,13 @@ import Data.Ratio ((%))

 import XMonad hiding ((|||))
 import XMonad.Hooks.ManageDocks hiding (L,R)
-import qualified XMonad.StackSet as W

 -- Import contrib layouts
 import XMonad.Layout.AutoMaster
-import XMonad.Layout.Master
 import XMonad.Layout.Column
 import XMonad.Layout.Decoration
 import XMonad.Layout.PerWorkspace
 import XMonad.Layout.LayoutCombinators
-import XMonad.Layout.Groups
 import XMonad.Layout.Named
 import XMonad.Layout.GridVariants
 import XMonad.Layout.IM
@@ -22,7 +19,6 @@ import XMonad.Layout.Reflect
 import XMonad.Layout.MagicFocus
 import XMonad.Layout.CenteredMaster
 import XMonad.Layout.OneBig
-import XMonad.Layout.LayoutModifier
 import XMonad.Layout.MultiToggle
 import XMonad.Layout.MultiToggle.Instances
 import XMonad.Layout.NoBorders
@@ -41,7 +37,6 @@ import XMonad.Layout.Simplest

 import qualified XMonad.Layout.WindowNavigation as Nav

-import CommonFunctions
 import Themes

 ----------------------------------------------------
diff --git a/lib/MyManageHooks.hs b/lib/MyManageHooks.hs
index 1ffec1e..4a65406 100644
--- a/lib/MyManageHooks.hs
+++ b/lib/MyManageHooks.hs
@@ -4,7 +4,6 @@ module MyManageHooks
   where

 -- To be able to query X11 atoms and such on
-import Graphics.X11.ExtraTypes.XF86
 import Foreign.C.Types (CLong)

 import Control.Monad (liftM)
diff --git a/xmonad.hs b/xmonad.hs
index 15cc305..471a51d 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -5,15 +5,12 @@ import XMonad.Util.EZConfig (additionalKeysP)
 -- import XMonad.Config.Gnome
 import XMonad.Config.Kde (kde4Config)

-import XMonad.Actions.DynamicWorkspaces
 import XMonad.Actions.GroupNavigation (historyHook)

 -- Import hooks to support EWMH and other compatibility hooks
 import XMonad.Hooks.EwmhDesktops (ewmh)
 import XMonad.Hooks.SetWMName    (setWMName)
 import XMonad.Hooks.Minimize     (minimizeEventHook)
--- import XMonad.Hooks.PerWindowKbdLayout
-

 -- My local modules (from ~/.xmonad/lib/)
 import AppGroups     (apps2keys)
ViewGit