Wrapping at evaluation for inline cell

Question

I've been playing with inline evaluation and I've came to the conclusion that it's most convenient to put the Dynamic@ inside the inline cell, so I've started to search for a way to omit typing it altogether. I've tried using CellEvaluationFunction and CellProlog, but with no luck. How can I achieve this?

Also, it would be best if the wrapping with Dynamic[] occurred only in inline cell evaluations (which happen in ordinary text cells)

Answer 1

You need to add this piece of code and use it instead of Ctrl+9 for you own inline cell:

Item[KeyEvent["t", Modifiers -> {Control}],
     FrontEndExecute[
        FrontEnd`NotebookWrite[
          FrontEnd`InputNotebook[],
            Cell[ BoxData[ RowBox[{"Dynamic", "[", "\[Placeholder]", "]"}] ], 
                 CellEventActions -> {{"MenuCommand", "HandleShiftReturn"} :> {
                      SelectionMove[EvaluationCell[], All, CellContents];   
                      SelectionEvaluate[EvaluationNotebook[]]}}
                ]
        ];
        FrontEnd`SelectionMove[FrontEnd`InputNotebook[], Previous, Character, 2];
        FrontEnd`SelectionMove[FrontEnd`InputNotebook[], All, Character]
    ]
   ]

• Now with Ctrl+f, or whatever you want that is free, you will create a cell with Dynamic already written.

• Also Shift+Enter results in evaluation in place without selecting it.

Edit:

If you want numeric keypad Enter to do this Evaluation In Place you can use {"MenuCommand", "EvaluateCells"} event instead of "HandleShiftReturn". For me it would be great since I hardly ever use Shift+Enter

Ref:

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

Here is a reference link about how to catch Shift+Enter