4
$\begingroup$

Say a have the function foo:

foo[x_] := x + 2

Like the Evalution -> Evaluate in place, I would like to have a keyboard shortcut that replaces the current selection with the result of applying foo to the selection.

For example if I have selected 1+3 in a cell with the following contents:

2*1+3-5

By pressing a keyboard combination, I want Mathematica to replace it with the result of foo[1+3] (6):

2*6-5
| improve this question | | | | |
$\endgroup$
  • $\begingroup$ @Kuba Sorry I think that would be too cumbersome. $\endgroup$ – Tyilo May 23 '14 at 21:31
5
$\begingroup$

ok, so you need to add this Item.

Item[KeyEvent["t", Modifiers -> {Control}],
  FrontEndExecute[
      FrontEnd`NotebookApply[FrontEnd`InputNotebook[], 
                             RowBox[{"foo", "[", "\[SelectionPlaceholder]", "]"}]];
      FrontEnd`SelectionMove[FrontEnd`InputNotebook[], All, Expression, 2];
      FrontEnd`SelectionEvaluate[FrontEnd`InputNotebook[]]
                 ]
    ]

Usage

enter image description here

Select what you need

enter image description here

Use Ctrl+t

enter image description here

Ref:

Here is a tutorial how to add a new shortcut: Automating Esc [[ Esc formatting?

| improve this answer | | | | |
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.