Hjdcti

What typically incentivizes a professor to change jobs to a lower ranking university?

How to report a triplet of septets in NMR tabulation?

Shell script can be run only with sh command

What Brexit solution does the DUP want?

The use of multiple foreign keys on same column in SQL Server

A Journey Through Space and Time

When blogging recipes, how can I support both readers who want the narrative/journey and ones who want the printer-friendly recipe?

Email Account under attack (really) - anything I can do?

Do airline pilots ever risk not hearing communication directed to them specifically, from traffic controllers?

Can I interfere when another PC is about to be attacked?

Extreme, but not acceptable situation and I can't start the work tomorrow morning

Prevent a directory in /tmp from being deleted

Are white and non-white police officers equally likely to kill black suspects?

Japan - Plan around max visa duration

Is there really no realistic way for a skeleton monster to move around without magic?

Non-Jewish family in an Orthodox Jewish Wedding

Copycat chess is back

A function which translates a sentence to title-case

I see my dog run

Download, install and reboot computer at night if needed

My colleague's body is amazing

least quadratic residue under GRH: an EXPLICIT bound

Why Is Death Allowed In the Matrix?

How do we improve the relationship with a client software team that performs poorly and is becoming less collaborative?

How can I automatically replace [[ and ]] with the [LeftDoubleBracket] and [RightDoubleBracket] operators?

Automating Esc [[ Esc formatting?On an existing notebook, how to transform all “double brackets” into “DoubleBracket”Convenient string manipulationHow to define a vector with automatically added symbolic elements with subscriptsHow to convert an image to a compressed string representation equivalent to one copied to clipboard by `CopyToClipboard[image]`?Incorporating Built-In Function Options/Parameters into ShorthandDifferentiating a Dot ProductPostfix Double Slash Notation with Multiple ParametersHow to construct custom operators with precedence?Can symbols like + or * be used to denote the Plus and Times functions?How to efficiently input matrices in Mathematica (compared to what MATLAB offers)Define a new Front End Syntax for Function Argument Checking & Debugging

4

$begingroup$

When you type ->, it is automatically turned into the [Rule] character. Can we configure our frontends to do the same for the [[ and ]] characters, which could be turned into [LeftDoubleBracket] and [RightDoubleBracket]?

You can easily do this manually by typing <esc>[[<esc>, but I would like to do this automatically.

This question was originally asked by me in the chat and has answers there; this question is so that those answers can be added and kept for the community.

syntax custom-notation

share|improve this question

edited 9 hours ago

Carl Lange

asked 9 hours ago

Carl LangeCarl Lange

5,17211141

$endgroup$

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Do you really want that when writing func[func2[arg]]? I changed KeyEventTranslations.tr to have <kbd>Alt gr</kbd>+<kbd>i</kbd>/<kbd>o</kbd>.
  $endgroup$
  – Coolwater
  9 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Yes, this is part of the problem. Ideally it would only happen after you have typed the matching [[, but more than likely it needs to be done at shift-enter at the earliest. For [[ the problem is simpler because there is no time when you would type [[ except for as part of a Part expression.
  $endgroup$
  – Carl Lange
  9 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  closely related: 98175
  $endgroup$
  – Kuba♦
  7 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @Kuba That's so closely related I suppose you could make an argument for this being a duplicate, what do you think?
  $endgroup$
  – Carl Lange
  7 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Related using KeyEventTranslations 5221
  $endgroup$
  – Rohit Namjoshi
  6 hours ago
  

  
  
  
  

 | 
show 4 more comments

4

$begingroup$

When you type ->, it is automatically turned into the [Rule] character. Can we configure our frontends to do the same for the [[ and ]] characters, which could be turned into [LeftDoubleBracket] and [RightDoubleBracket]?

You can easily do this manually by typing <esc>[[<esc>, but I would like to do this automatically.

This question was originally asked by me in the chat and has answers there; this question is so that those answers can be added and kept for the community.

syntax custom-notation

share|improve this question

edited 9 hours ago

Carl Lange

asked 9 hours ago

Carl LangeCarl Lange

5,17211141

$endgroup$

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Do you really want that when writing func[func2[arg]]? I changed KeyEventTranslations.tr to have <kbd>Alt gr</kbd>+<kbd>i</kbd>/<kbd>o</kbd>.
  $endgroup$
  – Coolwater
  9 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Yes, this is part of the problem. Ideally it would only happen after you have typed the matching [[, but more than likely it needs to be done at shift-enter at the earliest. For [[ the problem is simpler because there is no time when you would type [[ except for as part of a Part expression.
  $endgroup$
  – Carl Lange
  9 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  closely related: 98175
  $endgroup$
  – Kuba♦
  7 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @Kuba That's so closely related I suppose you could make an argument for this being a duplicate, what do you think?
  $endgroup$
  – Carl Lange
  7 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Related using KeyEventTranslations 5221
  $endgroup$
  – Rohit Namjoshi
  6 hours ago
  

  
  
  
  

 | 
show 4 more comments

$begingroup$

When you type ->, it is automatically turned into the [Rule] character. Can we configure our frontends to do the same for the [[ and ]] characters, which could be turned into [LeftDoubleBracket] and [RightDoubleBracket]?

You can easily do this manually by typing <esc>[[<esc>, but I would like to do this automatically.

This question was originally asked by me in the chat and has answers there; this question is so that those answers can be added and kept for the community.

syntax custom-notation

share|improve this question

edited 9 hours ago

Carl Lange

asked 9 hours ago

Carl LangeCarl Lange

5,17211141

$endgroup$

share|improve this question

edited 9 hours ago

Carl Lange

asked 9 hours ago

Carl LangeCarl Lange

5,17211141

share|improve this question

edited 9 hours ago

Carl Lange

asked 9 hours ago

Carl LangeCarl Lange

5,17211141

asked 9 hours ago

Carl LangeCarl Lange

5,17211141

asked 9 hours ago

Carl LangeCarl Lange

5,17211141

1 Answer
1

active

oldest

votes

1

$begingroup$

You can use CellEpilog to modify the contents of the cell upon evaluation:

SetOptions[EvaluationNotebook[],
 CellEpilog :> If[
 ! TrueQ[
 Max@CurrentValue[CellChangeTimes] <= 
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"]
 ],
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"] = 
 Max@CurrentValue[CellChangeTimes];
 NotebookWrite[
 EvaluationCell[],
 Replace[NotebookRead[EvaluationCell[]],
 RowBox@head_, "[", RowBox@"[", part_, "]", "]" :>
 RowBox@head, "[LeftDoubleBracket]", part, "[RightDoubleBracket]", All]
 ]
 ]
 ]

Demonstration:

This could of course be extended to do similar replacements for <|…|> etc. To minimize the performance hit, we keep track of the last CellChangeTimes value and only rerun the replacement code when it changed.

The nice thing about an approach like this (i.e. manipulation of the cell's box structure) is that it's rather straightforward to identify the bracket pairs to replace, since the front-end does all the necessary parsing for us.

An alternative to putting the code into CellEpilog might be to create a menu item for it, one could also modify the "Evaluate cells" menu item to run this code on all selected cells first.

share|improve this answer

edited 6 hours ago

answered 7 hours ago

Lukas LangLukas Lang

6,9451931

$endgroup$

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194775%2fhow-can-i-automatically-replace-and-with-the-leftdoublebracket-and-ri%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

1

$begingroup$

You can use CellEpilog to modify the contents of the cell upon evaluation:

SetOptions[EvaluationNotebook[],
 CellEpilog :> If[
 ! TrueQ[
 Max@CurrentValue[CellChangeTimes] <= 
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"]
 ],
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"] = 
 Max@CurrentValue[CellChangeTimes];
 NotebookWrite[
 EvaluationCell[],
 Replace[NotebookRead[EvaluationCell[]],
 RowBox@head_, "[", RowBox@"[", part_, "]", "]" :>
 RowBox@head, "[LeftDoubleBracket]", part, "[RightDoubleBracket]", All]
 ]
 ]
 ]

Demonstration:

This could of course be extended to do similar replacements for <|…|> etc. To minimize the performance hit, we keep track of the last CellChangeTimes value and only rerun the replacement code when it changed.

The nice thing about an approach like this (i.e. manipulation of the cell's box structure) is that it's rather straightforward to identify the bracket pairs to replace, since the front-end does all the necessary parsing for us.

An alternative to putting the code into CellEpilog might be to create a menu item for it, one could also modify the "Evaluate cells" menu item to run this code on all selected cells first.

share|improve this answer

edited 6 hours ago

answered 7 hours ago

Lukas LangLukas Lang

6,9451931

$endgroup$

add a comment | 

1

$begingroup$

You can use CellEpilog to modify the contents of the cell upon evaluation:

SetOptions[EvaluationNotebook[],
 CellEpilog :> If[
 ! TrueQ[
 Max@CurrentValue[CellChangeTimes] <= 
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"]
 ],
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"] = 
 Max@CurrentValue[CellChangeTimes];
 NotebookWrite[
 EvaluationCell[],
 Replace[NotebookRead[EvaluationCell[]],
 RowBox@head_, "[", RowBox@"[", part_, "]", "]" :>
 RowBox@head, "[LeftDoubleBracket]", part, "[RightDoubleBracket]", All]
 ]
 ]
 ]

Demonstration:

This could of course be extended to do similar replacements for <|…|> etc. To minimize the performance hit, we keep track of the last CellChangeTimes value and only rerun the replacement code when it changed.

The nice thing about an approach like this (i.e. manipulation of the cell's box structure) is that it's rather straightforward to identify the bracket pairs to replace, since the front-end does all the necessary parsing for us.

An alternative to putting the code into CellEpilog might be to create a menu item for it, one could also modify the "Evaluate cells" menu item to run this code on all selected cells first.

share|improve this answer

edited 6 hours ago

answered 7 hours ago

Lukas LangLukas Lang

6,9451931

$endgroup$

add a comment | 

$begingroup$

You can use CellEpilog to modify the contents of the cell upon evaluation:

SetOptions[EvaluationNotebook[],
 CellEpilog :> If[
 ! TrueQ[
 Max@CurrentValue[CellChangeTimes] <= 
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"]
 ],
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"] = 
 Max@CurrentValue[CellChangeTimes];
 NotebookWrite[
 EvaluationCell[],
 Replace[NotebookRead[EvaluationCell[]],
 RowBox@head_, "[", RowBox@"[", part_, "]", "]" :>
 RowBox@head, "[LeftDoubleBracket]", part, "[RightDoubleBracket]", All]
 ]
 ]
 ]

Demonstration:

This could of course be extended to do similar replacements for <|…|> etc. To minimize the performance hit, we keep track of the last CellChangeTimes value and only rerun the replacement code when it changed.

The nice thing about an approach like this (i.e. manipulation of the cell's box structure) is that it's rather straightforward to identify the bracket pairs to replace, since the front-end does all the necessary parsing for us.

An alternative to putting the code into CellEpilog might be to create a menu item for it, one could also modify the "Evaluate cells" menu item to run this code on all selected cells first.

share|improve this answer

edited 6 hours ago

answered 7 hours ago

Lukas LangLukas Lang

6,9451931

$endgroup$

SetOptions[EvaluationNotebook[],
 CellEpilog :> If[
 ! TrueQ[
 Max@CurrentValue[CellChangeTimes] <= 
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"]
 ],
 CurrentValue[EvaluationCell[], TaggingRules, "autoreplaceTime"] = 
 Max@CurrentValue[CellChangeTimes];
 NotebookWrite[
 EvaluationCell[],
 Replace[NotebookRead[EvaluationCell[]],
 RowBox@head_, "[", RowBox@"[", part_, "]", "]" :>
 RowBox@head, "[LeftDoubleBracket]", part, "[RightDoubleBracket]", All]
 ]
 ]
 ]

share|improve this answer

edited 6 hours ago

answered 7 hours ago

Lukas LangLukas Lang

6,9451931

answered 7 hours ago

Lukas LangLukas Lang

6,9451931

answered 7 hours ago

Lukas LangLukas Lang

6,9451931