; AutoHotKey script for typing extended characters ; http://stevepugh.co.uk/autohotkey/ RAlt & `:: GetKeyState, sh, Shift if sh = D Gosub DeadKeyTilde else Gosub DeadKeyGraveAccent return RAlt & 1:: GetKeyState, sh, Shift if sh = D Send ¡ else Send ¹ return RAlt & 2:: GetKeyState, sh, Shift if sh = D Gosub, DeadKeyUmlaut else Send ² return RAlt & 3::Send ³ RAlt & 4:: GetKeyState, sh, Shift if sh = D Send ¤ else Send € return RAlt & 5:: GetKeyState, sh, Shift if sh = D Send £ else Send € return RAlt & 6:: GetKeyState, sh, Shift if sh = D Gosub, DeadKeyCircumflex else Send ¼ return RAlt & 7::Send ½ RAlt & 8::Send ¾ RAlt & 9::Send ‘ RAlt & 0::Send ’ RAlt & -:: GetKeyState, sh, Shift if sh = D Send ± else Send ¥ return RAlt & =:: GetKeyState, sh, Shift if sh = D Send ÷ else Send × return RAlt & [::Send « RAlt & ]::Send » RAlt & `;:: GetKeyState, sh, Shift if sh = D Send ° else Send ¶ return RAlt & .::Send … RAlt & ,:: GetKeyState, sh, Shift if sh = D Send Ç else Send ç return RAlt & \::Send ¬ RAlt & /::Send ¿ RAlt & q:: GetKeyState, sh, Shift if sh = D Send Ä else Send ä return RAlt & w:: GetKeyState, sh, Shift if sh = D Send Å else Send å return RAlt & e:: GetKeyState, sh, Shift if sh = D Send É else Send é return RAlt & r::Send ® RAlt & t:: GetKeyState, sh, Shift if sh = D Send Þ else Send þ return RAlt & y:: GetKeyState, sh, Shift if sh = D Send Ü else Send ü return RAlt & u:: GetKeyState, sh, Shift if sh = D Send Ú else Send ú return RAlt & i:: GetKeyState, sh, Shift if sh = D Send Í else Send í return RAlt & o:: GetKeyState, sh, Shift if sh = D Send Ó else Send ó return RAlt & p:: GetKeyState, sh, Shift if sh = D Send Ö else Send ö return RAlt & a:: GetKeyState, sh, Shift if sh = D Send Á else Send á return RAlt & s:: GetKeyState, sh, Shift if sh = D Send § else Send ß return RAlt & d:: GetKeyState, sh, Shift if sh = D Send Ð else Send ð return RAlt & l:: GetKeyState, sh, Shift if sh = D Send Ø else Send ø return RAlt & ':: GetKeyState, sh, Shift if sh = D Gosub, DeadKeyUmlaut return RAlt & #:: Gosub, DeadKeyTilde RAlt & z:: GetKeyState, sh, Shift if sh = D Send Æ else Send æ return RAlt & c:: GetKeyState, sh, Shift if sh = D Send ¢ else Send © return RAlt & n:: GetKeyState, sh, Shift if sh = D Send Ñ else Send ñ return RAlt & m:: GetKeyState, sh, Shift if sh = D Send · else Send µ return DeadKeyCircumflex: Input, TextEntry1, L1,{Esc}{Enter}{F1}{Down}{Up} endKey=%ErrorLevel% entry=%TextEntry1% GetKeyState, sh, Shift if entry = a { if sh = D Send  else Send â } else if entry = e { if sh = D Send Ê else Send ê } else if entry = i { if sh = D Send Ê else Send ê } else if entry = o { if sh = D Send Ô else Send ô } else if entry = u { if sh = D Send Û else Send û } return DeadKeyUmlaut: Input, TextEntry1, L1,{Esc}{Enter}{F1}{Down}{Up} endKey=%ErrorLevel% entry=%TextEntry1% GetKeyState, sh, Shift if entry = a { if sh = D Send Ä else Send ä } else if entry = e { if sh = D Send Ë else Send ë } else if entry = i { if sh = D Send Ï else Send ï } else if entry = o { if sh = D Send Ö else Send ö } else if entry = u { if sh = D Send Ü else Send ü } else if entry = y { if sh = D Send Ÿ else Send ÿ } return DeadKeyTilde: Input, TextEntry1, L1,{Esc}{Enter}{F1}{Down}{Up} endKey=%ErrorLevel% entry=%TextEntry1% GetKeyState, sh, Shift if entry = a { if sh = D Send à else Send ã } else if entry = n { if sh = D Send Ñ else Send ñ } else if entry = o { if sh = D Send Õ else Send õ } return DeadKeyGraveAccent: Input, TextEntry1, L1,{Esc}{Enter}{F1}{Down}{Up} endKey=%ErrorLevel% entry=%TextEntry1% if entry = a { GetKeyState, sh, Shift if sh = D Send À else Send à } else if entry = e { GetKeyState, sh, Shift if sh = D Send È else Send è } else if entry = i { GetKeyState, sh, Shift if sh = D Send Ì else Send ì } else if entry = o { GetKeyState, sh, Shift if sh = D Send Ò else Send ò } else if entry = u { GetKeyState, sh, Shift if sh = D Send Ù else Send ù } return