Pensieve header: Parenthesize a selection, following http://mathematica.stackexchange.com/questions/84720/parenthesize-what-i-have-highlighted.

CreatePalette@Row@{Button["(\[SelectionPlaceholder])",FrontEndExecute[FrontEndToken[SelectedNotebook[],"SelectionParenthesize"]]],Button["[\[SelectionPlaceholder]]",FrontEndExecute[FrontEndToken[SelectedNotebook[],"SelectionBracket"]]],Button["{\[SelectionPlaceholder]}",FrontEndExecute[FrontEndToken[SelectedNotebook[],"SelectionBrace"]]],Button["\"\[SelectionPlaceholder]\"",With[{e=NotebookRead@SelectedNotebook[]},NotebookWrite[SelectedNotebook[],RowBox@{"\"",e,"\""}];
SelectionMove[SelectedNotebook[],All,Expression,2]]]}

Testing (1 2 3)