Mryntu

black dwarf stars and dark matter

Can a German sentence have two subjects?

How do I create uniquely male characters?

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

Why are 150k or 200k jobs considered good when there are 300k+ births a month?

How much RAM could one put in a typical 80386 setup?

New order #4: World

What do you call a Matrix-like slowdown and camera movement effect?

How do you conduct xenoanthropology after first contact?

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

Is Social Media Science Fiction?

The magic money tree problem

XeLaTeX and pdfLaTeX ignore hyphenation

"You are your self first supporter", a more proper way to say it

Chess with symmetric move-square

How long does it take to type this?

Pronouncing Dictionary.com's W.O.D "vade mecum" in English

How is it possible to have an ability score that is less than 3?

Can Medicine checks be used, with decent rolls, to completely mitigate the risk of death from ongoing damage?

Why don't electron-positron collisions release infinite energy?

Motorized valve interfering with button?

What would happen to a modern skyscraper if it rains micro blackholes?

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

Can I make popcorn with any corn?

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 7 hours ago

Carl Lange

asked 7 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
  7 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
  7 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  closely related: 98175
  $endgroup$
  – Kuba♦
  5 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
  5 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Related using KeyEventTranslations 5221
  $endgroup$
  – Rohit Namjoshi
  4 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 7 hours ago

Carl Lange

asked 7 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
  7 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
  7 hours ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  closely related: 98175
  $endgroup$
  – Kuba♦
  5 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
  5 hours ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Related using KeyEventTranslations 5221
  $endgroup$
  – Rohit Namjoshi
  4 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 7 hours ago

Carl Lange

asked 7 hours ago

Carl LangeCarl Lange

5,17211141

$endgroup$

share|improve this question

edited 7 hours ago

Carl Lange

asked 7 hours ago

Carl LangeCarl Lange

5,17211141

share|improve this question

edited 7 hours ago

Carl Lange

asked 7 hours ago

Carl LangeCarl Lange

5,17211141

asked 7 hours ago

Carl LangeCarl Lange

5,17211141

asked 7 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 4 hours ago

answered 4 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 4 hours ago

answered 4 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 4 hours ago

answered 4 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 4 hours ago

answered 4 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 4 hours ago

answered 4 hours ago

Lukas LangLukas Lang

6,9451931

answered 4 hours ago

Lukas LangLukas Lang

6,9451931

answered 4 hours ago

Lukas LangLukas Lang

6,9451931