Is there a keyboard shortcut for hiding the suggestion bar?

Question

I see that there's a control I can click to hide or "minimize" version 9.0's "suggestion bar". Is there a keyboard shortcut to do this?

Answer 1

Here is the summary:

• There is no shortcut (you can suggest here)

• Quick close/open labeled minimize below

  

• Disable from Top Menu >> Edit >> Preferences...

  

Answer 2

The Mathematica documentation on keyboard shortcuts shows no shortcut for the hiding the suggestion bar

Answer 3

As already said by everyone else, there isn't a keyboard shortcut I'm aware of and don't currently know how to assign one.

But, I use the following when showing people the interface

Column[{Button["Predictive Interface Off", dummy1 = 2; SetOptions[EvaluationNotebook[],
ShowPredictiveInterface -> False], Appearance -> Dynamic[If[dummy1 === 2, "Pressed", 
Automatic]]], Button["Predictive Interface On", dummy1 = 1; 
SetOptions[EvaluationNotebook[], ShowPredictiveInterface -> True], Appearance -> 
Dynamic[If[dummy1 === 1, "Pressed", Automatic]]]}]

And because I need to practice programmatically building things, here's some code to put that into a palette (you'll need to restart Mathematica afterwards, and I couldn't quite get the Appearance option to be fully dynamic w.r.t to ShowPredictiveInterface)

NotebookSave[
CreateDocument[{ExpressionCell[
Column[{Button["Suggestions Off", dummy1 = 2; 
SetOptions[$FrontEndSession, ShowPredictiveInterface -> False],
    Appearance -> 
    Dynamic[If[dummy1 === 2, "Pressed", Automatic]]], 
    Button["Suggestions On", dummy1 = 1; 
    SetOptions[$FrontEndSession, ShowPredictiveInterface -> True],
Appearance -> Dynamic[If[dummy1 === 1, "Pressed", Automatic]]]}]]}, WindowSize -> All,      
ShowCellBracket -> False, 
WindowElements -> {}, WindowFrame -> "FramedPalette", 
Selectable -> "False", Editable -> "False", Saveable -> "False", 
PaneBoxOptions -> {Alignment -> {Center, Center}, 
ImageSizeAction -> "ShrinkToFit"}, 
StyleDefinitions -> "SystemPalette.nb", 
WindowTitle -> "Suggestions?"], 
FileNameJoin[{CreateDirectory[
FileNameJoin[{$UserBaseDirectory, "Applications", 
"SuggestionsBar", "FrontEnd", "Palettes"}]], 
"Suggestions-Palette.nb"}]]