Cleanup: remove unused imports.
Cleanup: remove unused imports.
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)