diff --git a/.xmonad/README.org b/.xmonad/README.org
index cf5e9c1..40dbe8b 100644
--- a/.xmonad/README.org
+++ b/.xmonad/README.org
@@ -624,44 +624,51 @@ I am using the Xmonad.Util.EZConfig module which allows keybindings to be writte
 showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
 showKeybindings x = addName "Show Keybindings" $ io $ do
   h <- spawnPipe $ "yad --text-info --fontname=\"SauceCodePro Nerd Font Mono 12\" --fore=#46d9ff back=#282c36 --center --geometry=1200x800 --title \"XMonad keybindings\""
-  hPutStr h (unlines $ showKm x)
+  --hPutStr h (unlines $ showKm x) -- showKM adds ">>" before subtitles
+  hPutStr h (unlines $ showKmSimple x) -- showKmSimple doesn't add ">>" to subtitles
   hClose h
   return ()
 
+subtitle' ::  String -> ((KeyMask, KeySym), NamedAction)
+subtitle' x = ((0,0), NamedAction $ map toUpper
+                      $ sep ++ "\n-- " ++ x ++ " --\n" ++ sep)
+  where
+    sep = replicate (6 + length x) '-'
+
 myKeys :: XConfig l0 -> [((KeyMask, KeySym), NamedAction)]
 myKeys c =
   --(subtitle "Custom Keys":) $ mkNamedKeymap c $
-  let subKeys str ks = subtitle str : mkNamedKeymap c ks in
+  let subKeys str ks = subtitle' str : mkNamedKeymap c ks in
   subKeys "Xmonad Essentials"
-  [ ("M-C-r", addName "Recompile XMonad"         $ spawn "xmonad --recompile")
-  , ("M-S-r", addName "Restart XMonad"           $ spawn "xmonad --restart")
-  , ("M-S-q", addName "Quit XMonad"              $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
-  , ("M-S-c", addName "Kill focused window"      $ kill1)
-  , ("M-S-a", addName "Kill all windows on WS"   $ killAll)
-  , ("M-S-<Return>", addName "Run prompt"        $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
-  , ("M-/", addName "DTOS Help"                  $ spawn "dtos-help")]
+  [ ("M-C-r", addName "Recompile XMonad"       $ spawn "xmonad --recompile")
+  , ("M-S-r", addName "Restart XMonad"         $ spawn "xmonad --restart")
+  , ("M-S-q", addName "Quit XMonad"            $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
+  , ("M-S-c", addName "Kill focused window"    $ kill1)
+  , ("M-S-a", addName "Kill all windows on WS" $ killAll)
+  , ("M-S-<Return>", addName "Run prompt"      $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
+  , ("M-/", addName "DTOS Help"                $ spawn "dtos-help")]
 
   ^++^ subKeys "Switch to workspace"
-  [ ("M-1", addName "Switch to workspace 1"      $ (windows $ W.greedyView $ myWorkspaces !! 0))
-  , ("M-2", addName "Switch to workspace 2"      $ (windows $ W.greedyView $ myWorkspaces !! 1))
-  , ("M-3", addName "Switch to workspace 3"      $ (windows $ W.greedyView $ myWorkspaces !! 2))
-  , ("M-4", addName "Switch to workspace 4"      $ (windows $ W.greedyView $ myWorkspaces !! 3))
-  , ("M-5", addName "Switch to workspace 5"      $ (windows $ W.greedyView $ myWorkspaces !! 4))
-  , ("M-6", addName "Switch to workspace 6"      $ (windows $ W.greedyView $ myWorkspaces !! 5))
-  , ("M-7", addName "Switch to workspace 7"      $ (windows $ W.greedyView $ myWorkspaces !! 6))
-  , ("M-8", addName "Switch to workspace 8"      $ (windows $ W.greedyView $ myWorkspaces !! 7))
-  , ("M-9", addName "Switch to workspace 9"      $ (windows $ W.greedyView $ myWorkspaces !! 8))]
+  [ ("M-1", addName "Switch to workspace 1"    $ (windows $ W.greedyView $ myWorkspaces !! 0))
+  , ("M-2", addName "Switch to workspace 2"    $ (windows $ W.greedyView $ myWorkspaces !! 1))
+  , ("M-3", addName "Switch to workspace 3"    $ (windows $ W.greedyView $ myWorkspaces !! 2))
+  , ("M-4", addName "Switch to workspace 4"    $ (windows $ W.greedyView $ myWorkspaces !! 3))
+  , ("M-5", addName "Switch to workspace 5"    $ (windows $ W.greedyView $ myWorkspaces !! 4))
+  , ("M-6", addName "Switch to workspace 6"    $ (windows $ W.greedyView $ myWorkspaces !! 5))
+  , ("M-7", addName "Switch to workspace 7"    $ (windows $ W.greedyView $ myWorkspaces !! 6))
+  , ("M-8", addName "Switch to workspace 8"    $ (windows $ W.greedyView $ myWorkspaces !! 7))
+  , ("M-9", addName "Switch to workspace 9"    $ (windows $ W.greedyView $ myWorkspaces !! 8))]
 
   ^++^ subKeys "Send window to workspace"
-  [ ("M-S-1", addName "Send to workspace 1"      $ (windows $ W.shift $ myWorkspaces !! 0))
-  , ("M-S-2", addName "Send to workspace 2"      $ (windows $ W.shift $ myWorkspaces !! 1))
-  , ("M-S-3", addName "Send to workspace 3"      $ (windows $ W.shift $ myWorkspaces !! 2))
-  , ("M-S-4", addName "Send to workspace 4"      $ (windows $ W.shift $ myWorkspaces !! 3))
-  , ("M-S-5", addName "Send to workspace 5"      $ (windows $ W.shift $ myWorkspaces !! 4))
-  , ("M-S-6", addName "Send to workspace 6"      $ (windows $ W.shift $ myWorkspaces !! 5))
-  , ("M-S-7", addName "Send to workspace 7"      $ (windows $ W.shift $ myWorkspaces !! 6))
-  , ("M-S-8", addName "Send to workspace 8"      $ (windows $ W.shift $ myWorkspaces !! 7))
-  , ("M-S-9", addName "Send to workspace 9"      $ (windows $ W.shift $ myWorkspaces !! 8))]
+  [ ("M-S-1", addName "Send to workspace 1"    $ (windows $ W.shift $ myWorkspaces !! 0))
+  , ("M-S-2", addName "Send to workspace 2"    $ (windows $ W.shift $ myWorkspaces !! 1))
+  , ("M-S-3", addName "Send to workspace 3"    $ (windows $ W.shift $ myWorkspaces !! 2))
+  , ("M-S-4", addName "Send to workspace 4"    $ (windows $ W.shift $ myWorkspaces !! 3))
+  , ("M-S-5", addName "Send to workspace 5"    $ (windows $ W.shift $ myWorkspaces !! 4))
+  , ("M-S-6", addName "Send to workspace 6"    $ (windows $ W.shift $ myWorkspaces !! 5))
+  , ("M-S-7", addName "Send to workspace 7"    $ (windows $ W.shift $ myWorkspaces !! 6))
+  , ("M-S-8", addName "Send to workspace 8"    $ (windows $ W.shift $ myWorkspaces !! 7))
+  , ("M-S-9", addName "Send to workspace 9"    $ (windows $ W.shift $ myWorkspaces !! 8))]
 
   ^++^ subKeys "Move window to WS and go there"
   [ ("M-S-<Page_Up>", addName "Move window to next WS"   $ shiftTo Next nonNSP >> moveTo Next nonNSP)
@@ -682,27 +689,27 @@ myKeys c =
   -- In Xmonad and many tiling window managers, M-p is the default keybinding to
   -- launch dmenu_run, so I've decided to use M-p plus KEY for these dmenu scripts.
   ^++^ subKeys "Dmenu scripts"
-  [ ("M-p h", addName "List all dmscripts"       $ spawn "dm-hub")
-  , ("M-p a", addName "Choose ambient sound"     $ spawn "dm-sounds")
-  , ("M-p b", addName "Set background"           $ spawn "dm-setbg")
-  , ("M-p c", addName "Choose color scheme"      $ spawn "dtos-colorscheme")
-  , ("M-p C", addName "Pick color from scheme"   $ spawn "dm-colpick")
-  , ("M-p e", addName "Edit config files"        $ spawn "dm-confedit")
-  , ("M-p i", addName "Take a screenshot"        $ spawn "dm-maim")
-  , ("M-p k", addName "Kill processes"           $ spawn "dm-kill")
-  , ("M-p m", addName "View manpages"            $ spawn "dm-man")
-  , ("M-p n", addName "Store and copy notes"     $ spawn "dm-note")
-  , ("M-p o", addName "Browser bookmarks"        $ spawn "dm-bookman")
-  , ("M-p p", addName "Passmenu"                 $ spawn "passmenu -p \"Pass: \"")
-  , ("M-p q", addName "Logout Menu"              $ spawn "dm-logout")
-  , ("M-p r", addName "Listen to online radio"   $ spawn "dm-radio")
-  , ("M-p s", addName "Search various engines"   $ spawn "dm-websearch")
-  , ("M-p t", addName "Translate text"           $ spawn "dm-translate")]
+  [ ("M-p h", addName "List all dmscripts"     $ spawn "dm-hub")
+  , ("M-p a", addName "Choose ambient sound"   $ spawn "dm-sounds")
+  , ("M-p b", addName "Set background"         $ spawn "dm-setbg")
+  , ("M-p c", addName "Choose color scheme"    $ spawn "dtos-colorscheme")
+  , ("M-p C", addName "Pick color from scheme" $ spawn "dm-colpick")
+  , ("M-p e", addName "Edit config files"      $ spawn "dm-confedit")
+  , ("M-p i", addName "Take a screenshot"      $ spawn "dm-maim")
+  , ("M-p k", addName "Kill processes"         $ spawn "dm-kill")
+  , ("M-p m", addName "View manpages"          $ spawn "dm-man")
+  , ("M-p n", addName "Store and copy notes"   $ spawn "dm-note")
+  , ("M-p o", addName "Browser bookmarks"      $ spawn "dm-bookman")
+  , ("M-p p", addName "Passmenu"               $ spawn "passmenu -p \"Pass: \"")
+  , ("M-p q", addName "Logout Menu"            $ spawn "dm-logout")
+  , ("M-p r", addName "Listen to online radio" $ spawn "dm-radio")
+  , ("M-p s", addName "Search various engines" $ spawn "dm-websearch")
+  , ("M-p t", addName "Translate text"         $ spawn "dm-translate")]
 
   ^++^ subKeys "Favorite programs"
-  [ ("M-<Return>", addName "Launch terminal"     $ spawn (myTerminal))
-  , ("M-b", addName "Launch web browser"         $ spawn (myBrowser))
-  , ("M-M1-h", addName "Launch htop"             $ spawn (myTerminal ++ " -e htop"))]
+  [ ("M-<Return>", addName "Launch terminal"   $ spawn (myTerminal))
+  , ("M-b", addName "Launch web browser"       $ spawn (myBrowser))
+  , ("M-M1-h", addName "Launch htop"           $ spawn (myTerminal ++ " -e htop"))]
 
   ^++^ subKeys "Monitors"
   [ ("M-.", addName "Switch focus to next monitor" $ nextScreen)
@@ -737,8 +744,8 @@ myKeys c =
   ^++^ subKeys "Increase/decrease windows in master pane or the stack"
   [ ("M-S-<Up>", addName "Increase clients in master pane"   $ sendMessage (IncMasterN 1))
   , ("M-S-<Down>", addName "Decrease clients in master pane" $ sendMessage (IncMasterN (-1)))
-  , ("M-=", addName "Increase # of windows"        $ increaseLimit)
-  , ("M--", addName "Decrease # of windows"      $ decreaseLimit)]
+  , ("M-=", addName "Increase max # of windows for layout"   $ increaseLimit)
+  , ("M--", addName "Decrease max # of windows for layout"   $ decreaseLimit)]
 
   -- Sublayouts
   -- This is used to push windows to tabbed sublayouts, or pull them out of it.
@@ -769,22 +776,21 @@ myKeys c =
   , ("M-u h", addName "mocp prev"                $ spawn "mocp --previous")
   , ("M-u <Space>", addName "mocp toggle pause"  $ spawn "mocp --toggle-pause")]
 
-  -- Grid Select (CTR-g followed by a key)
   ^++^ subKeys "GridSelect"
   -- , ("C-g g", addName "Select favorite apps"     $ runSelectedAction' defaultGSConfig gsCategories)
   [ ("M-M1-<Return>", addName "Select favorite apps" $ spawnSelected'
        $ gsGames ++ gsEducation ++ gsInternet ++ gsMultimedia ++ gsOffice ++ gsSettings ++ gsSystem ++ gsUtilities)
-  , ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
-  , ("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)]
+  , ("M-M1-c", addName "Select favorite apps"    $ spawnSelected' gsCategories)
+  , ("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)]
 
   -- Emacs (SUPER-e followed by a key)
   ^++^ subKeys "Emacs"
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index d140ec4..cef6f6a 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -486,44 +486,51 @@ dmenuSound    = soundDir ++ "menu-01.mp3"
 showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
 showKeybindings x = addName "Show Keybindings" $ io $ do
   h <- spawnPipe $ "yad --text-info --fontname=\"SauceCodePro Nerd Font Mono 12\" --fore=#46d9ff back=#282c36 --center --geometry=1200x800 --title \"XMonad keybindings\""
-  hPutStr h (unlines $ showKm x)
+  --hPutStr h (unlines $ showKm x) -- showKM adds ">>" before subtitles
+  hPutStr h (unlines $ showKmSimple x) -- showKmSimple doesn't add ">>" to subtitles
   hClose h
   return ()
 
+subtitle' ::  String -> ((KeyMask, KeySym), NamedAction)
+subtitle' x = ((0,0), NamedAction $ map toUpper
+                      $ sep ++ "\n-- " ++ x ++ " --\n" ++ sep)
+  where
+    sep = replicate (6 + length x) '-'
+
 myKeys :: XConfig l0 -> [((KeyMask, KeySym), NamedAction)]
 myKeys c =
   --(subtitle "Custom Keys":) $ mkNamedKeymap c $
-  let subKeys str ks = subtitle str : mkNamedKeymap c ks in
+  let subKeys str ks = subtitle' str : mkNamedKeymap c ks in
   subKeys "Xmonad Essentials"
-  [ ("M-C-r", addName "Recompile XMonad"         $ spawn "xmonad --recompile")
-  , ("M-S-r", addName "Restart XMonad"           $ spawn "xmonad --restart")
-  , ("M-S-q", addName "Quit XMonad"              $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
-  , ("M-S-c", addName "Kill focused window"      $ kill1)
-  , ("M-S-a", addName "Kill all windows on WS"   $ killAll)
-  , ("M-S-<Return>", addName "Run prompt"        $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
-  , ("M-/", addName "DTOS Help"                  $ spawn "dtos-help")]
+  [ ("M-C-r", addName "Recompile XMonad"       $ spawn "xmonad --recompile")
+  , ("M-S-r", addName "Restart XMonad"         $ spawn "xmonad --restart")
+  , ("M-S-q", addName "Quit XMonad"            $ sequence_ [spawn (mySoundPlayer ++ shutdownSound), io exitSuccess])
+  , ("M-S-c", addName "Kill focused window"    $ kill1)
+  , ("M-S-a", addName "Kill all windows on WS" $ killAll)
+  , ("M-S-<Return>", addName "Run prompt"      $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "dm-run"])
+  , ("M-/", addName "DTOS Help"                $ spawn "dtos-help")]
 
   ^++^ subKeys "Switch to workspace"
-  [ ("M-1", addName "Switch to workspace 1"      $ (windows $ W.greedyView $ myWorkspaces !! 0))
-  , ("M-2", addName "Switch to workspace 2"      $ (windows $ W.greedyView $ myWorkspaces !! 1))
-  , ("M-3", addName "Switch to workspace 3"      $ (windows $ W.greedyView $ myWorkspaces !! 2))
-  , ("M-4", addName "Switch to workspace 4"      $ (windows $ W.greedyView $ myWorkspaces !! 3))
-  , ("M-5", addName "Switch to workspace 5"      $ (windows $ W.greedyView $ myWorkspaces !! 4))
-  , ("M-6", addName "Switch to workspace 6"      $ (windows $ W.greedyView $ myWorkspaces !! 5))
-  , ("M-7", addName "Switch to workspace 7"      $ (windows $ W.greedyView $ myWorkspaces !! 6))
-  , ("M-8", addName "Switch to workspace 8"      $ (windows $ W.greedyView $ myWorkspaces !! 7))
-  , ("M-9", addName "Switch to workspace 9"      $ (windows $ W.greedyView $ myWorkspaces !! 8))]
+  [ ("M-1", addName "Switch to workspace 1"    $ (windows $ W.greedyView $ myWorkspaces !! 0))
+  , ("M-2", addName "Switch to workspace 2"    $ (windows $ W.greedyView $ myWorkspaces !! 1))
+  , ("M-3", addName "Switch to workspace 3"    $ (windows $ W.greedyView $ myWorkspaces !! 2))
+  , ("M-4", addName "Switch to workspace 4"    $ (windows $ W.greedyView $ myWorkspaces !! 3))
+  , ("M-5", addName "Switch to workspace 5"    $ (windows $ W.greedyView $ myWorkspaces !! 4))
+  , ("M-6", addName "Switch to workspace 6"    $ (windows $ W.greedyView $ myWorkspaces !! 5))
+  , ("M-7", addName "Switch to workspace 7"    $ (windows $ W.greedyView $ myWorkspaces !! 6))
+  , ("M-8", addName "Switch to workspace 8"    $ (windows $ W.greedyView $ myWorkspaces !! 7))
+  , ("M-9", addName "Switch to workspace 9"    $ (windows $ W.greedyView $ myWorkspaces !! 8))]
 
   ^++^ subKeys "Send window to workspace"
-  [ ("M-S-1", addName "Send to workspace 1"      $ (windows $ W.shift $ myWorkspaces !! 0))
-  , ("M-S-2", addName "Send to workspace 2"      $ (windows $ W.shift $ myWorkspaces !! 1))
-  , ("M-S-3", addName "Send to workspace 3"      $ (windows $ W.shift $ myWorkspaces !! 2))
-  , ("M-S-4", addName "Send to workspace 4"      $ (windows $ W.shift $ myWorkspaces !! 3))
-  , ("M-S-5", addName "Send to workspace 5"      $ (windows $ W.shift $ myWorkspaces !! 4))
-  , ("M-S-6", addName "Send to workspace 6"      $ (windows $ W.shift $ myWorkspaces !! 5))
-  , ("M-S-7", addName "Send to workspace 7"      $ (windows $ W.shift $ myWorkspaces !! 6))
-  , ("M-S-8", addName "Send to workspace 8"      $ (windows $ W.shift $ myWorkspaces !! 7))
-  , ("M-S-9", addName "Send to workspace 9"      $ (windows $ W.shift $ myWorkspaces !! 8))]
+  [ ("M-S-1", addName "Send to workspace 1"    $ (windows $ W.shift $ myWorkspaces !! 0))
+  , ("M-S-2", addName "Send to workspace 2"    $ (windows $ W.shift $ myWorkspaces !! 1))
+  , ("M-S-3", addName "Send to workspace 3"    $ (windows $ W.shift $ myWorkspaces !! 2))
+  , ("M-S-4", addName "Send to workspace 4"    $ (windows $ W.shift $ myWorkspaces !! 3))
+  , ("M-S-5", addName "Send to workspace 5"    $ (windows $ W.shift $ myWorkspaces !! 4))
+  , ("M-S-6", addName "Send to workspace 6"    $ (windows $ W.shift $ myWorkspaces !! 5))
+  , ("M-S-7", addName "Send to workspace 7"    $ (windows $ W.shift $ myWorkspaces !! 6))
+  , ("M-S-8", addName "Send to workspace 8"    $ (windows $ W.shift $ myWorkspaces !! 7))
+  , ("M-S-9", addName "Send to workspace 9"    $ (windows $ W.shift $ myWorkspaces !! 8))]
 
   ^++^ subKeys "Move window to WS and go there"
   [ ("M-S-<Page_Up>", addName "Move window to next WS"   $ shiftTo Next nonNSP >> moveTo Next nonNSP)
@@ -544,27 +551,27 @@ myKeys c =
   -- In Xmonad and many tiling window managers, M-p is the default keybinding to
   -- launch dmenu_run, so I've decided to use M-p plus KEY for these dmenu scripts.
   ^++^ subKeys "Dmenu scripts"
-  [ ("M-p h", addName "List all dmscripts"       $ spawn "dm-hub")
-  , ("M-p a", addName "Choose ambient sound"     $ spawn "dm-sounds")
-  , ("M-p b", addName "Set background"           $ spawn "dm-setbg")
-  , ("M-p c", addName "Choose color scheme"      $ spawn "dtos-colorscheme")
-  , ("M-p C", addName "Pick color from scheme"   $ spawn "dm-colpick")
-  , ("M-p e", addName "Edit config files"        $ spawn "dm-confedit")
-  , ("M-p i", addName "Take a screenshot"        $ spawn "dm-maim")
-  , ("M-p k", addName "Kill processes"           $ spawn "dm-kill")
-  , ("M-p m", addName "View manpages"            $ spawn "dm-man")
-  , ("M-p n", addName "Store and copy notes"     $ spawn "dm-note")
-  , ("M-p o", addName "Browser bookmarks"        $ spawn "dm-bookman")
-  , ("M-p p", addName "Passmenu"                 $ spawn "passmenu -p \"Pass: \"")
-  , ("M-p q", addName "Logout Menu"              $ spawn "dm-logout")
-  , ("M-p r", addName "Listen to online radio"   $ spawn "dm-radio")
-  , ("M-p s", addName "Search various engines"   $ spawn "dm-websearch")
-  , ("M-p t", addName "Translate text"           $ spawn "dm-translate")]
+  [ ("M-p h", addName "List all dmscripts"     $ spawn "dm-hub")
+  , ("M-p a", addName "Choose ambient sound"   $ spawn "dm-sounds")
+  , ("M-p b", addName "Set background"         $ spawn "dm-setbg")
+  , ("M-p c", addName "Choose color scheme"    $ spawn "dtos-colorscheme")
+  , ("M-p C", addName "Pick color from scheme" $ spawn "dm-colpick")
+  , ("M-p e", addName "Edit config files"      $ spawn "dm-confedit")
+  , ("M-p i", addName "Take a screenshot"      $ spawn "dm-maim")
+  , ("M-p k", addName "Kill processes"         $ spawn "dm-kill")
+  , ("M-p m", addName "View manpages"          $ spawn "dm-man")
+  , ("M-p n", addName "Store and copy notes"   $ spawn "dm-note")
+  , ("M-p o", addName "Browser bookmarks"      $ spawn "dm-bookman")
+  , ("M-p p", addName "Passmenu"               $ spawn "passmenu -p \"Pass: \"")
+  , ("M-p q", addName "Logout Menu"            $ spawn "dm-logout")
+  , ("M-p r", addName "Listen to online radio" $ spawn "dm-radio")
+  , ("M-p s", addName "Search various engines" $ spawn "dm-websearch")
+  , ("M-p t", addName "Translate text"         $ spawn "dm-translate")]
 
   ^++^ subKeys "Favorite programs"
-  [ ("M-<Return>", addName "Launch terminal"     $ spawn (myTerminal))
-  , ("M-b", addName "Launch web browser"         $ spawn (myBrowser))
-  , ("M-M1-h", addName "Launch htop"             $ spawn (myTerminal ++ " -e htop"))]
+  [ ("M-<Return>", addName "Launch terminal"   $ spawn (myTerminal))
+  , ("M-b", addName "Launch web browser"       $ spawn (myBrowser))
+  , ("M-M1-h", addName "Launch htop"           $ spawn (myTerminal ++ " -e htop"))]
 
   ^++^ subKeys "Monitors"
   [ ("M-.", addName "Switch focus to next monitor" $ nextScreen)
@@ -599,8 +606,8 @@ myKeys c =
   ^++^ subKeys "Increase/decrease windows in master pane or the stack"
   [ ("M-S-<Up>", addName "Increase clients in master pane"   $ sendMessage (IncMasterN 1))
   , ("M-S-<Down>", addName "Decrease clients in master pane" $ sendMessage (IncMasterN (-1)))
-  , ("M-=", addName "Increase # of windows"        $ increaseLimit)
-  , ("M--", addName "Decrease # of windows"      $ decreaseLimit)]
+  , ("M-=", addName "Increase max # of windows for layout"   $ increaseLimit)
+  , ("M--", addName "Decrease max # of windows for layout"   $ decreaseLimit)]
 
   -- Sublayouts
   -- This is used to push windows to tabbed sublayouts, or pull them out of it.
@@ -631,22 +638,21 @@ myKeys c =
   , ("M-u h", addName "mocp prev"                $ spawn "mocp --previous")
   , ("M-u <Space>", addName "mocp toggle pause"  $ spawn "mocp --toggle-pause")]
 
-  -- Grid Select (CTR-g followed by a key)
   ^++^ subKeys "GridSelect"
   -- , ("C-g g", addName "Select favorite apps"     $ runSelectedAction' defaultGSConfig gsCategories)
   [ ("M-M1-<Return>", addName "Select favorite apps" $ spawnSelected'
        $ gsGames ++ gsEducation ++ gsInternet ++ gsMultimedia ++ gsOffice ++ gsSettings ++ gsSystem ++ gsUtilities)
-  , ("M-M1-c", addName "Select favorite apps" $ spawnSelected' gsCategories)
-  , ("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)]
+  , ("M-M1-c", addName "Select favorite apps"    $ spawnSelected' gsCategories)
+  , ("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)]
 
   -- Emacs (SUPER-e followed by a key)
   ^++^ subKeys "Emacs"