Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- FileNameJoin[{
- $InstallationDirectory,
- "SystemFiles",
- "FrontEnd",
- "TextResources",
- "Macintosh"
- }]
- ...
- Item[KeyEvent[">", Modifiers -> {Control}],
- FrontEndExecute[{
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"[AliasDelimiter]",After],
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"->",After],
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"[AliasDelimiter]",After]
- }]
- ],
- Item[KeyEvent["[", Modifiers -> {Shift,Control}],
- FrontEndExecute[{
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"[AliasDelimiter]",After],
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"<|",After],
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"[AliasDelimiter]",After]
- }]
- ],
- Item[KeyEvent["]", Modifiers -> {Shift,Control}],
- FrontEndExecute[{
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"[AliasDelimiter]",After],
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"|>",After],
- FrontEnd`NotebookWrite[FrontEnd`InputNotebook[],"[AliasDelimiter]",After]
- }]
- ],
- ...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement