Removed '<+> manageHook desktopConfig' from manageHook

xmonad.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE DeriveDataTypeable #-}                                                                   
 {-# LANGUAGE DeriveDataTypeable #-}                                                                   
---{-# OPTIONS_GHC -Wno-deprecations #-}
+{-# OPTIONS_GHC -Wno-deprecations #-}
 import XMonad
 import XMonad.Config.Desktop
 -- Actions
@@ -280,13 +280,11 @@ makeLauncher yargs run exec close = concat
 launcher = makeLauncher "-x" "eval" "\"exec " "\""
 
 
-main = do
+main = do  sc <- IS.countScreens
-  sc <- IS.countScreens
            dzenTopBar <- spawnPipe (getTopBar sc)
            dzenBarbicanBar <- spawnPipe (getBarbicanBar sc)
            dzenDeltachunkBar <- spawnPipe (getDeltachunkBar sc)
            dzenFerrumBar <- spawnPipe (getFerrumBar sc)
---  dzenGammachunkBar <- spawnPipe (getGammachunkBar sc)
            dzenOsmiumBar <- spawnPipe (getOsmiumBar sc)
            dzenSodiumBar <- spawnPipe (getSodiumBar sc)
            dzenTennessineBar <- spawnPipe (getTennessineBar sc)
@@ -295,8 +293,7 @@ main = do
                 workspaces = ["shell","qb","pindrop","kofc","VM"]
                 , terminal = myTerminal
                 , focusFollowsMouse    = True
-  , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig
+                , manageHook = manageDocks <+> myManageHook -- <+> manageHook desktopConfig
-  --, handleEventHook = docksEventHook <+> handleEventHook desktopConfig
                 , handleEventHook = handleEventHook desktopConfig
                 , layoutHook = avoidStruts $ gaps [(D,108)] $ layoutH 
                 , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0)
@@ -305,7 +302,9 @@ main = do
                 , focusedBorderColor = "#ebdbb2"
                 , modMask = winKey
                 , startupHook = myStartup 
-  } `additionalKeys` myKeys
+            }    
+            `additionalKeys` myKeys 
+            `removeKeys` remKeys
 
 
 myStartup :: X ()
@@ -512,8 +511,8 @@ myKeys =    [
                                                                       --ifWindows (className =? "Iceweasel") (mapM_ focus) (spawnHere "iceweasel"))
   , ((winKey .|. controlMask,                    xK_l),                                              sendMessage Expand)
   --, ((winKey ,                                                xK_1),                                              windows (viewOnScreen 0 "shell"))
-  , ((winKey ,                                                xK_1),                                              ifWindows (className =? "Alacritty") (mapM_ focus) (spawnHere myTerminal))
+  --, ((winKey ,                                                xK_1),                                              ifWindows (className =? "Alacritty") (mapM_ focus) (spawnHere myTerminal))
-  , ((winKey ,                                                xK_2),                                              windows (viewOnScreen 0 "chromium"))
+  --, ((winKey ,                                                xK_2),                                              windows (viewOnScreen 0 "chromium"))
   , ((winKey ,                        xK_a),                        do 
                                                                         windows (viewOnScreen 1 "pindrop") 
                                                                         --ifWindows (className =? "Pidgin") (mapM_ focus) (spawnHere "pidgin"))
@@ -613,6 +612,7 @@ myKeys =    [
     -- | (key, sc) <- zip [xK_w, xK_r] [1,0] -- For w,r keys in backwards order
      , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
 
+remKeys = [(winKey, n) | n <- [xK_0 .. xK_9]]
 
 --dXPConfig = defaultXPConfig {
 dXPConfig = def {