"
" Initialize flag for default Eo NCR character set.
"

let g:EONCRCS=0 " 0=iksisme, 3=Latin-3, 8=UTF-8

"
" Esperanto Latin 3 numeric character references [ :EONCR 3 ]
" Or
" Esperanto UTF 8 numeric character references [ :EONCR 8 ]
" Or
" iksisme [ :EONCR 0 ] (the default)
"

"
" In normal mode, mappings overwrite the current character.
" In insert mode, mappings insert.
"

function! EONCRfunction(i)

   if ( 0 == a:i ) || ( -1 == a:i ) " iksisme, -1 for silently!

      nnoremap ;^C sCX<ESC>
      inoremap ;^C CX
      nnoremap ;^c scx<ESC>
      inoremap ;^c cx

      nnoremap ;^G sGX<ESC>
      inoremap ;^G GX
      nnoremap ;^g sgx<ESC>
      inoremap ;^g gx

      nnoremap ;^H sHX<ESC>
      inoremap ;^H HX
      nnoremap ;^h shx<ESC>
      inoremap ;^h hx

      nnoremap ;^J sJX<ESC>
      inoremap ;^J JX
      nnoremap ;^j sjx<ESC>
      inoremap ;^j jx

      nnoremap ;^S sSX<ESC>
      inoremap ;^S SX
      nnoremap ;^s ssx<ESC>
      inoremap ;^s sx

      nnoremap ;^U sUX<ESC>
      inoremap ;^U UX
      nnoremap ;^u sux<ESC>
      inoremap ;^u ux

      let g:EONCRCS=0

      if ! a:i | echo "Esperanto mappings iksisme." | endif

   elseif 3 == a:i " Latin-3

      nnoremap ;^C s&#198;<ESC>
      inoremap ;^C &#198;
      nnoremap ;^c s&#230;<ESC>
      inoremap ;^c &#230;

      nnoremap ;^G s&#216;<ESC>
      inoremap ;^G &#216;
      nnoremap ;^g s&#248;<ESC>
      inoremap ;^g &#248;

      nnoremap ;^H s&#166;<ESC>
      inoremap ;^H &#166;
      nnoremap ;^h s&#182;<ESC>
      inoremap ;^h &#182;

      nnoremap ;^J s&#172;<ESC>
      inoremap ;^J &#172;
      nnoremap ;^j s&#188;<ESC>
      inoremap ;^j &#188;

      nnoremap ;^S s&#222;<ESC>
      inoremap ;^S &#222;
      nnoremap ;^s s&#254;<ESC>
      inoremap ;^s &#254;

      nnoremap ;^U s&#221;<ESC>
      inoremap ;^U &#221;
      nnoremap ;^u s&#253;<ESC>
      inoremap ;^u &#253;

      let g:EONCRCS=3

      echo "Esperanto NCR mappings for Latin-3 have been loaded."

   elseif 8 == a:i " UTF-8

      nnoremap ;^C s&#264;<ESC>
      inoremap ;^C &#264;
      nnoremap ;^c s&#265;<ESC>
      inoremap ;^c &#265;

      nnoremap ;^G s&#284;<ESC>
      inoremap ;^G &#284;
      nnoremap ;^g s&#285;<ESC>
      inoremap ;^g &#285;

      nnoremap ;^H s&#292;<ESC>
      inoremap ;^H &#292;
      nnoremap ;^h s&#293;<ESC>
      inoremap ;^h &#293;

      nnoremap ;^J s&#308;<ESC>
      inoremap ;^J &#308;
      nnoremap ;^j s&#309;<ESC>
      inoremap ;^j &#309;

      nnoremap ;^S s&#348;<ESC>
      inoremap ;^S &#348;
      nnoremap ;^s s&#349;<ESC>
      inoremap ;^s &#349;

      nnoremap ;^U s&#364;<ESC>
      inoremap ;^U &#364;
      nnoremap ;^u s&#365;<ESC>
      inoremap ;^u &#365;

      let g:EONCRCS=8

      echo "Esperanto NCR mappings for UTF-8 have been loaded."

   else

      nnoremap ;^C <NOP>
      inoremap ;^C <NOP>
      nnoremap ;^c <NOP>
      inoremap ;^c <NOP>

      nnoremap ;^G <NOP>
      inoremap ;^G <NOP>
      nnoremap ;^g <NOP>
      inoremap ;^g <NOP>

      nnoremap ;^H <NOP>
      inoremap ;^H <NOP>
      nnoremap ;^h <NOP>
      inoremap ;^h <NOP>

      nnoremap ;^J <NOP>
      inoremap ;^J <NOP>
      nnoremap ;^j <NOP>
      inoremap ;^j <NOP>

      nnoremap ;^S <NOP>
      inoremap ;^S <NOP>
      nnoremap ;^s <NOP>
      inoremap ;^s <NOP>

      nnoremap ;^U <NOP>
      inoremap ;^U <NOP>
      nnoremap ;^u <NOP>
      inoremap ;^u <NOP>

      let g:EONCRCS=0

      echo "Usage: EONCR [038]"

   endif

endfunction

command! -nargs=1 EONCR call EONCRfunction(<args>)

EONCR -1