Skip to main content

front end - What are all the possible menu edits?


Note:


I've discovered the menus are more-or-less as customizable as one would like, although it is mildly annoying to do this. Simply write your own Menu expression and use FrontEndExecute@ResetMenusPacket[{expr}]. If someone more expert has a better way, though, I would really like to know it.


For those glancing through, here is a minimal example of a dynamically editable menu-symbol:


$FEMenuRoot=Import[];
$feStoredMenu = Automatic;

$FrontEndMenu := Replace[$feStoredMenu, Automatic -> $FEMenuRoot];
$FrontEndMenu /:
HoldPattern[Set[$FrontEndMenu, m : _Menu]] :=(
$feStoredMenu = m;
FrontEndExecute@ResetMenusPacket[{m}]
);
$FrontEndMenu /:
HoldPattern[
Set[$FrontEndMenu, Automatic]] :=
(

$feStoredMenu = Automatic;
FrontEndExecute@ResetMenusPacket[{Automatic}]);
$FrontEndMenu /:
HoldPattern[
Unset[$FrontEndMenu]] :=
($FrontEndMenu = Automatic;);

Then do something like:


$FrontEndMenu =
Menu["Mathematica",

{
Menu["DoopDoop", {
MenuItem["Copy", "Copy", MenuKey["C", Modifiers -> {"Command"}]],
MenuItem["Cut", "Cut", MenuKey["X", Modifiers -> {"Command"}]],
MenuItem["Paste", "Paste",
MenuKey["V", Modifiers -> {"Command"}]],
MenuItem["Save", "Save", MenuKey["S", Modifiers -> {"Command"}]],
MenuItem["Save as WL",
KernelExecute@
FrontEndTokenExecute["SaveRename",

{StringReplace[NotebookFileName[], ".nb" -> ".wl"], "Package"}
],
MenuKey["S", Modifiers -> {"Command", "Shift"}],
MenuEvaluator -> "Local",
Method -> "Queued"
],
MenuItem["Revert Menus",
KernelExecute[$FrontEndMenu =.],
MenuKey["R", Modifiers -> {"Command"}],
MenuEvaluator -> "Local"]

}],
Menu["", {
MenuItem["Musak",
KernelExecute@
SystemOpen@"https://www.youtube.com/watch?v=_lYx6dIKfos",
MenuEvaluator -> "Local"
]
}
]
}];


And you have menus you can play with.


Original Question:


So I've been playing with FrontEnd`AddMenuCommands recently and I wanted to figure out what all I could do with it.


There are a number of answers on this site to specific menu editing commands, but there is no general reference.


I've been able to figure out a bit from the source files, including making a useful reference graph of all the menus and submenus:


Menu graph


using the following code:


$MenuSetupTR = 
FileNameJoin@{$InstallationDirectory, "SystemFiles", "FrontEnd",

"TextResources", "Macintosh", "MenuSetup.tr"};
$MenuStringsTR =
FileNameJoin@{$InstallationDirectory, "SystemFiles", "FrontEnd",
"TextResources", "MenuStrings.tr"};
$menuStructure = Import@$MenuSetupTR;
$menuStrings = Import@$MenuStringsTR;
$menuNames =
Cases[$menuStructure, (MenuItem[__,
name_String?(StringContainsQ["Dialog"])] | Menu[name_, ___]) :>
name, ∞];

menuRules[Menu[name_, e_]] := Menu[name] -> menuRules@e;
menuRules[
ignore : (_String | _MenuItem | Delimiter | _AlternateItems)] :=
ignore;
SetAttributes[menuRules, Listable];
menuPart[menu_, name_] :=

FirstCase[menu, Menu[name, _], None, ∞];
menuPart[menu_, name1_, names__] :=


Fold[menuPart, menu, {name1, names}];
menuEdges[menu_] :=
ReplaceAll[
Cases[
DeleteCases[menuRules@menu,
Except[_Menu | _MenuItem |
Rule[_Menu, _] | _List | _String | _AlternateItems],
∞] //. {
Rule[m_, expr : Except[_Rule]] :> Thread[m -> expr],
Rule[m_Menu, Rule[subm_Menu, e_]] :> {m -> subm, subm -> e}

},
_Rule,
∞] // Flatten,
Rule -> DirectedEdge];
menuGraph[menu_] :=
With[{edges = menuEdges@menu},
Graph[
edges,
VertexShape -> {
Menu[n_] :> Graphics[Tooltip[{Hue[.1, .8, 1], Disk[]}, n]],

m_MenuItem :> Graphics[Tooltip[{Hue[.6, .8, 1], Disk[]}, m]],
e_AlternateItems :>
Graphics[Tooltip[{Hue[.4, .8, 1], Disk[]}, e]]
}
]
];
menuGraph@$menuStructure

But I was hoping someone might know which of these menus are actually editable and what I can add to them. There are also the dialogs, which I tried to scrape and found a few of and if someone could advise me on the use of these that would be a huge help too.


If this is too open ended, I'll refine the question, but in the meantime hopefully someone familiar with menu editing can help me out.




Playing around with this I was able to find a way to more or less edit all the menus, but we have to do it manually. It takes a bit of work to do so.


My idea was to use FrontEndExecute@ResetMenuPackets[{menu}] and build the menu manually.


I created a special $FrontEndMenu symbol which basically routes Set to that (plus some utility code and whatnot).


Then create Add, Insert, Drop, Take, etc. commands to manipulate a Menu expression.


The toplevel menu expression needs to look like Menu["Mathematica", {submenus}] as best I can tell (anything else I tried crashed the system).


Then just save the basic menu expression from the MenuSetup.tr file (import it in the System` context) and work with that.


Doing this I've been able to completely my menus however I like:


Menu rewrite


Two issues: I don't know if this will work outside of Mac and it prevents the use of the AddMenuComands token.



Hopefully there's also a simpler way to do this... if anyone has better ways though that'd be great, otherwise this'll do for customization I guess.




Comments

Popular posts from this blog

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...

dynamic - How can I make a clickable ArrayPlot that returns input?

I would like to create a dynamic ArrayPlot so that the rectangles, when clicked, provide the input. Can I use ArrayPlot for this? Or is there something else I should have to use? Answer ArrayPlot is much more than just a simple array like Grid : it represents a ranged 2D dataset, and its visualization can be finetuned by options like DataReversed and DataRange . These features make it quite complicated to reproduce the same layout and order with Grid . Here I offer AnnotatedArrayPlot which comes in handy when your dataset is more than just a flat 2D array. The dynamic interface allows highlighting individual cells and possibly interacting with them. AnnotatedArrayPlot works the same way as ArrayPlot and accepts the same options plus Enabled , HighlightCoordinates , HighlightStyle and HighlightElementFunction . data = {{Missing["HasSomeMoreData"], GrayLevel[ 1], {RGBColor[0, 1, 1], RGBColor[0, 0, 1], GrayLevel[1]}, RGBColor[0, 1, 0]}, {GrayLevel[0], GrayLevel...