Add to Typo Hotkey

This has been discussed here before but as the question came up on the IT9 EXP forum, I thought I would post this summary on how to dedicate a hotkey to adding Typo Glossary Expansions here too.

The idea is to define a hotkey expansion in the Hotkey Glossary that will open the Add Glossary Entry dialog for an addition to the Typo Glossary. There are several hotkey expansions that can do the job and even more! All these expansions use the Add Glossary Entry command.

The simplest version just opens a blank Add Glossary Entry window for an addition to the Typo Glossary:

{AddGlossaryEntryDialog}
filename = "Glossary\#Typos.xglo"
input = "none"
resumeUponOK = "n"
{/AddGlossaryEntryDialog}{Wrap}
{NoSpacing}

The following version can be used to do a bit more. It will prefill the typo with the selected text. You realize you have typed abotu, you select abotu and hit a hotkey with the following expansion that will open the Add Glossary Entry window with the typo filled wit abotu:

{CopySelection}{Wrap}
{AddGlossaryEntryDialog}
filename = "Glossary\#Typos.xglo"
input = "text"
resumeUponOK = "n"
{/AddGlossaryEntryDialog}{Wrap}
{NoSpacing}

Finally there is an even more elaborate solution, the famous "oops" entry which adds some magic! It does the exact same job as the previous one, with the follwing bonus. Upon leaving the Add Glossary Entry window by clicking OK, it corrects the selected typo in your document as specified in the entry you just added.

{CopySelection}{Wrap}
{AddGlossaryEntryDialog}
filename = "Glossary\#Typos.xglo"
input = "text"
resumeUponOK = "y"
{/AddGlossaryEntryDialog}{Wrap}
{NoSpacing}{Wrap}
{Stop}{Wrap}
{Translate}
filename = "Glossary\#Typos.xglo"
{/Translate}{Wrap}
{NoSpacing}