diff --git a/.xmonad/README.org b/.xmonad/README.org
index 3afdccd..a4ce508 100644
--- a/.xmonad/README.org
+++ b/.xmonad/README.org
@@ -257,19 +257,37 @@ spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
                    , gs_originFractY = 0.5
                    , gs_font         = myFont
                    }
+
+runSelectedAction' :: GSConfig (X ()) -> [(String, X ())] -> X ()
+runSelectedAction' conf actions = do
+    selectedActionM <- gridselect conf actions
+    case selectedActionM of
+        Just selectedAction -> selectedAction
+        Nothing -> return ()
 #+end_src
 
 ** Gridselect Menus
 #+begin_src haskell
+-- gsCategories =
+--   [ ("Games",      spawnSelected' gsGames)
+--   --, ("Education",   spawnSelected' gsEducation)
+--   , ("Internet",   spawnSelected' gsInternet)
+--   , ("Multimedia", spawnSelected' gsMultimedia)
+--   , ("Office",     spawnSelected' gsOffice)
+--   , ("Settings",   spawnSelected' gsSettings)
+--   , ("System",     spawnSelected' gsSystem)
+--   , ("Utilities",  spawnSelected' gsUtilities)
+--   ]
+
 gsCategories =
-  [ ("Games",      spawnSelected' gsGames)
-  --, ("Education",   spawnSelected' gsEducation)
-  , ("Internet",   spawnSelected' gsInternet)
-  , ("Multimedia", spawnSelected' gsMultimedia)
-  , ("Office",     spawnSelected' gsOffice)
-  , ("Settings",   spawnSelected' gsSettings)
-  , ("System",     spawnSelected' gsSystem)
-  , ("Utilities",  spawnSelected' gsUtilities)
+  [ ("Games",      "xdotool key super+alt+1")
+  , ("Education",  "xdotool key super+alt+2")
+  , ("Internet",   "xdotool key super+alt+3")
+  , ("Multimedia", "xdotool key super+alt+4")
+  , ("Office",     "xdotool key super+alt+5")
+  , ("Settings",   "xdotool key super+alt+6")
+  , ("System",     "xdotool key super+alt+7")
+  , ("Utilities",  "xdotool key super+alt+8")
   ]
 
 gsAccessories =
@@ -282,6 +300,13 @@ gsAccessories =
   , ("Xonotic", "xonotic-glx")
   ]
 
+gsEducation =
+  [ ("GCompris", "gcompris-qt")
+  , ("Kstars", "kstars")
+  , ("Minuet", "minuet")
+  , ("Scratch", "scratch")
+  ]
+
 gsGames =
   [ ("0 A.D.", "0ad")
   , ("Battle For Wesnoth", "wesnoth")
@@ -673,9 +698,20 @@ myKeys c = (subtitle "Custom Keys":) $ mkNamedKeymap c $
   , ("C-M1-l", addName "Increase screen spacing" $ incScreenSpacing 4)
 
   -- Grid Select (CTR-g followed by a key)
-  , ("C-g g", addName "Select favorite apps"     $ runSelectedAction def gsCategories)
-  , ("C-g t", addName "Goto selected window"     $ goToSelected $ mygridConfig myColorizer)
-  , ("C-g b", addName "Bring selected window"    $ bringSelected $ mygridConfig myColorizer)
+  -- , ("C-g g", addName "Select favorite apps"     $ runSelectedAction' defaultGSConfig gsCategories)
+  , ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
+  , ("M-M1-<Return>", addName "Select favorite apps" $ spawnSelected'
+       $ gsGames ++ gsEducation ++ gsInternet ++ gsMultimedia ++ gsOffice ++ gsSettings ++ gsSystem ++ gsUtilities)
+  , ("M-M1-t", addName "Goto selected window"        $ goToSelected $ mygridConfig myColorizer)
+  , ("M-M1-b", addName "Bring selected window"       $ bringSelected $ mygridConfig myColorizer)
+  , ("M-M1-1", addName "Menu of games"               $ spawnSelected' gsGames)
+  , ("M-M1-2", addName "Menu of education apps"      $ spawnSelected' gsEducation)
+  , ("M-M1-3", addName "Menu of Internet apps"       $ spawnSelected' gsInternet)
+  , ("M-M1-4", addName "Menu of multimedia apps"     $ spawnSelected' gsMultimedia)
+  , ("M-M1-5", addName "Menu of office apps"         $ spawnSelected' gsOffice)
+  , ("M-M1-6", addName "Menu of settings apps"       $ spawnSelected' gsSettings)
+  , ("M-M1-7", addName "Menu of system apps"         $ spawnSelected' gsSystem)
+  , ("M-M1-8", addName "Menu of utilities apps"      $ spawnSelected' gsUtilities)
 
   -- Windows navigation
   , ("M-m", addName "Move focus to master window" $ windows W.focusMaster)
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 193cd29..fc099d6 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -189,15 +189,33 @@ spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
                    , gs_font         = myFont
                    }
 
+runSelectedAction' :: GSConfig (X ()) -> [(String, X ())] -> X ()
+runSelectedAction' conf actions = do
+    selectedActionM <- gridselect conf actions
+    case selectedActionM of
+        Just selectedAction -> selectedAction
+        Nothing -> return ()
+
+-- gsCategories =
+--   [ ("Games",      spawnSelected' gsGames)
+--   --, ("Education",   spawnSelected' gsEducation)
+--   , ("Internet",   spawnSelected' gsInternet)
+--   , ("Multimedia", spawnSelected' gsMultimedia)
+--   , ("Office",     spawnSelected' gsOffice)
+--   , ("Settings",   spawnSelected' gsSettings)
+--   , ("System",     spawnSelected' gsSystem)
+--   , ("Utilities",  spawnSelected' gsUtilities)
+--   ]
+
 gsCategories =
-  [ ("Games",      spawnSelected' gsGames)
-  --, ("Education",   spawnSelected' gsEducation)
-  , ("Internet",   spawnSelected' gsInternet)
-  , ("Multimedia", spawnSelected' gsMultimedia)
-  , ("Office",     spawnSelected' gsOffice)
-  , ("Settings",   spawnSelected' gsSettings)
-  , ("System",     spawnSelected' gsSystem)
-  , ("Utilities",  spawnSelected' gsUtilities)
+  [ ("Games",      "xdotool key super+alt+1")
+  , ("Education",  "xdotool key super+alt+2")
+  , ("Internet",   "xdotool key super+alt+3")
+  , ("Multimedia", "xdotool key super+alt+4")
+  , ("Office",     "xdotool key super+alt+5")
+  , ("Settings",   "xdotool key super+alt+6")
+  , ("System",     "xdotool key super+alt+7")
+  , ("Utilities",  "xdotool key super+alt+8")
   ]
 
 gsAccessories =
@@ -210,6 +228,13 @@ gsAccessories =
   , ("Xonotic", "xonotic-glx")
   ]
 
+gsEducation =
+  [ ("GCompris", "gcompris-qt")
+  , ("Kstars", "kstars")
+  , ("Minuet", "minuet")
+  , ("Scratch", "scratch")
+  ]
+
 gsGames =
   [ ("0 A.D.", "0ad")
   , ("Battle For Wesnoth", "wesnoth")
@@ -533,9 +558,20 @@ myKeys c = (subtitle "Custom Keys":) $ mkNamedKeymap c $
   , ("C-M1-l", addName "Increase screen spacing" $ incScreenSpacing 4)
 
   -- Grid Select (CTR-g followed by a key)
-  , ("C-g g", addName "Select favorite apps"     $ runSelectedAction def gsCategories)
-  , ("C-g t", addName "Goto selected window"     $ goToSelected $ mygridConfig myColorizer)
-  , ("C-g b", addName "Bring selected window"    $ bringSelected $ mygridConfig myColorizer)
+  -- , ("C-g g", addName "Select favorite apps"     $ runSelectedAction' defaultGSConfig gsCategories)
+  , ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
+  , ("M-M1-<Return>", addName "Select favorite apps" $ spawnSelected'
+       $ gsGames ++ gsEducation ++ gsInternet ++ gsMultimedia ++ gsOffice ++ gsSettings ++ gsSystem ++ gsUtilities)
+  , ("M-M1-t", addName "Goto selected window"        $ goToSelected $ mygridConfig myColorizer)
+  , ("M-M1-b", addName "Bring selected window"       $ bringSelected $ mygridConfig myColorizer)
+  , ("M-M1-1", addName "Menu of games"               $ spawnSelected' gsGames)
+  , ("M-M1-2", addName "Menu of education apps"      $ spawnSelected' gsEducation)
+  , ("M-M1-3", addName "Menu of Internet apps"       $ spawnSelected' gsInternet)
+  , ("M-M1-4", addName "Menu of multimedia apps"     $ spawnSelected' gsMultimedia)
+  , ("M-M1-5", addName "Menu of office apps"         $ spawnSelected' gsOffice)
+  , ("M-M1-6", addName "Menu of settings apps"       $ spawnSelected' gsSettings)
+  , ("M-M1-7", addName "Menu of system apps"         $ spawnSelected' gsSystem)
+  , ("M-M1-8", addName "Menu of utilities apps"      $ spawnSelected' gsUtilities)
 
   -- Windows navigation
   , ("M-m", addName "Move focus to master window" $ windows W.focusMaster)