From f5be8c5be9e2180583f0f1d5ad508b5d171dd302 Mon Sep 17 00:00:00 2001
From: Ilya Portnov <portnov84@rambler.ru>
Date: Sun, 1 May 2011 21:54:04 +0600
Subject: [PATCH] Cleanup: remove unused imports.

---
 lib/AppGroups.hs       |    1 -
 lib/CommonFunctions.hs |   10 +---------
 lib/GroupsSetup.hs     |    2 --
 lib/KeyBindings.hs     |    6 ------
 lib/Layouts.hs         |    5 -----
 lib/MyManageHooks.hs   |    1 -
 xmonad.hs              |    3 ---
 7 files changed, 1 insertions(+), 27 deletions(-)

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)
-- 
1.7.2.3