; autohotkey script to replace (typed) letter then x with unicode Esperanto accented letter
; written by WGT Walker (http://wgtw.co.uk) Feb 2009

MsgBox Esperanto accented letters (type letter then x) are enabled.

;define function to enter a hex string as unicode.
;author ManaUser http://www.autohotkey.com/forum/topic21393.html
PutUni(HexIn)
{
   SavedClip := ClipBoardAll
   Loop % StrLen(HexIn) / 2
      TransCode .= Chr("0x" . SubStr(HexIn, A_Index * 2 - 1, 2))
   Transform, ClipBoard, Unicode, %TransCode%
   Send ^v
   Sleep 100 ;Generous, less wait or none will often work.
   ClipBoard := SavedClip
   return
}


; set options so *=don't need ending character, ?=anywhere in word, C=case sensitive
#hotstring * ? C 

; NB hex strings for Eo unicode characters can be found at http://www.utf8-chartable.de/unicode-utf8-table.pl?start=256

; upper case letter followed by (lower or upper case) x -> upper case Unicode
::Cx::
::CX::
PutUni("c488")
return

::Gx::
::GX::
PutUni("c49c")
return

::Hx::
::HX::
PutUni("c4a4")
return

::Jx::
::JX::
PutUni("c4b4")
return

::Sx::
::SX::
PutUni("c59c")
return

::Ux::
::UX::
PutUni("c5ac")
return


; lower case letter followed by (lower or upper case) x -> lower case Unicode
::cx::
::cX::
PutUni("c489")
return

::gx::
::gX::
PutUni("c49d")
return

::hx::
::hX::
PutUni("c4a5")
return

::jx::
::jX::
PutUni("c4b5")
return

::sx::
::sX::
PutUni("c59d")
return

::ux::
::uX::
PutUni("c5ad")
return