switchToSelectedLayout :: [String] -> X ()
    switchToSelectedLayout layouts = runSelectedAction defaultGSConfig menu
       where
          menu = map (\s -> (s, sendMessage $ JumpToLayout s)) layouts

    keysP =
       [
       ,  ("M-<Space>", switchToSelectedLayout ["Tabbed Simplest"
                                               ,"Circle"
                                               ,"TwoPane"
                                               ,"ResizableTall"
                                               ,"Mirror ResizableTall"
                                               ,"Magnifier Grid"
                                               ,"Spiral"
                                               ,"ThreeCol"
                                               ])
    ]