" vim: set sw=2 fdm=marker nowrap:
"
" henkwan.vim
"
" Author: Heitotsu <http://kstn.fc2web.com/>
" Version: $Id: henkwan.vim,v 0.11 2006/10/10 18:55:00 Hetotsu Exp $
" Last Change: 26-Oct-2006.
"
" Žg—p•û–@:
" ŠÈ’P‚ÉŒ¾‚Ö‚Î�A�uƒ`ƒ‹ƒ_�vƒRƒ}ƒ“ƒh‚ÌŠg’£‚Å‚·�BASCII‚̑啶Žš/�¬•¶Žš‚Ì•ÏŠ·‚ª
" ƒfƒtƒHƒ‹ƒg‚Ì“®�ì‚Å‚·‚ª�A�Ÿ‚ÌŠg’£ƒXƒNƒŠƒvƒg‚𓱓ü‚·‚é‚Æ�A‘SŠp‚̉p•¶Žš‚â�A
" Šóäc•¶Žš‚âƒLƒŠƒ‹•¶Žš‚̑啶Žš/�¬•¶Žš‚Ì•ÏŠ·‚à‰Â”\‚É‚È‚è�A‚Ђ炪‚È/ƒJƒ^ƒJƒi
" ‚Ì‘ŠŒÝ“ü‚ê‘Ö‚Ö‚à‰Â”\‚É‚È‚è‚Ü‚·�Bˆê‰��A�³Žš‚Æ‘­Žš‚Æ‚ÌŠÔ‚Ì‘ŠŒÝ“ü‚ê‘Ö‚Ö‚à
" �o—ˆ‚é‚₤‚É‚µ‚Ä‚¨‚«‚Ü‚µ‚½‚Ì‚Å�A•K—v‚È•û‚ÍŽŽ‚µ‚Ă݂ĉº‚³‚¢�B
" �Ÿ‚̃XƒNƒŠƒvƒg‚Í�A�u’Ê�탂�[ƒh�v‚Ì‚Ý‚Å“®�삳‚¹‚Ä‚î‚Ü‚·�BƒCƒ“ƒXƒg�[ƒ‹‚Í
" "runtime"‚Ì�uƒvƒ‰ƒOƒCƒ“�v‚É•¡ŽÊ‚µ‚ĉº‚³‚¢�B
" �u•ÏŠ·ƒe�[ƒuƒ‹�v‚ðŠg’£‚·‚é�ê�‡‚͈ȉº‚̂₤‚É.vimrc‚É’Ç‹L‚µ‚ĉº‚³‚¢�B
"
" let zokuzi_user = '›½ätž_'
" let seizi_user  = '�è‘D�¼'
" (�³Žš‚Æ‘­Žš‚Ƃ̑Ήž‚Í�A•v�X‚Ì•Ï�”‚Ì�¶’[‚©‚牽•¶Žš–Ú‚©‚Å�s‚‚Ăî‚Ü‚·)
"
" ˆÈ‰º‚Í�A•ÏŠ·ƒeƒXƒg—p‚̃‰ƒ“ƒ_ƒ€•¶Žš—ñ‚Å‚·�B
" aaa@assaa:mmoo12345#&(098)ooooel<Del>zi"bbbb
" ‚�‚a‚b‚„‚…‚†‚f‚g‚‰‚Š‚j‚k‚�‚Ž‚烊ƒ‹ƒŒƒ�ƒŽ‚í‚î‚ï‚ðƒ“
" ƒÅƒÆƒ§ƒÈƒ©ƒÊƒ«ƒÌƒ­ƒ® ~ „|„}„~„€„P„Q„ƒ„„„T„†„‡„ˆ„‰
" ˆŸˆ«ˆ³ˆÍˆãˆ×Ž«Ž¼ŽÀ›�ç׎õ“¬ê}“�ˆîàÕ椓͞eåbœ^ŸZèø™eäq–Ý–÷âÄáAç‡�è
"

nmap <unique> ~  <Plug>MoziHenkwan
set foldmethod=marker
noremap <unique> <script> <Plug>MoziHenkwan  <SID>Henkwan
noremap <SID>Henkwan  :call <SID>Henkwan(expand("<cword>"), 1)<CR>

" change table {{{
" •ÏŠ·ƒe�[ƒuƒ‹�ì�¬
let s:ohomozi = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
let s:komozi  = 'abcdefghijklmnopqrstuvwxyz'
let s:z_ohomozi = '‚`‚a‚b‚c‚d‚e‚f‚g‚h‚i‚j‚k‚l‚m‚n‚o‚p‚q‚r‚s‚t‚u‚v‚w‚x‚y'
let s:z_komozi =  '‚�‚‚‚ƒ‚„‚…‚†‚‡‚ˆ‚‰‚Š‚‹‚Œ‚�‚Ž‚�‚�‚‘‚’‚“‚”‚•‚–‚—‚˜‚™‚š'
let s:g_ohomozi = 'ƒŸƒ ƒ¡ƒ¢ƒ£ƒ¤ƒ¥ƒ¦ƒ§ƒ¨ƒ©ƒªƒ«ƒ¬ƒ­ƒ®ƒ¯ƒ°ƒ±ƒ²ƒ³ƒ´ƒµƒ¶'
let s:g_komozi  = 'ƒ¿ƒÀƒÁƒÂƒÃƒÄƒÅƒÆƒÇƒÈƒÉƒÊƒËƒÌƒÍƒÎƒÏƒÐƒÑƒÒƒÓƒÔƒÕƒÖ'
let s:k_ohomozi = '„@„A„B„C„D„E„F„G„H„I„J„K„L„M„N„O„P„Q„R„S„T„U„V„W„X„Y„Z„[„\„]„^„_„`'
let s:k_komozi  = '„p„q„r„s„t„u„v„w„x„y„z„{„|„}„~„€„�„‚„ƒ„„„…„†„‡„ˆ„‰„Š„‹„Œ„�„Ž„�„�„‘'
let s:hiragana = '‚Ÿ‚ ‚¡‚¢‚£‚¤‚¥‚¦‚§‚¨‚©‚ª‚«‚¬‚­‚®‚¯‚°‚±‚²‚³‚´‚µ‚¶‚·‚¸‚¹‚º‚»‚¼‚½‚¾‚¿‚À‚Á‚‚ÂĂłƂǂȂɂʂ˂̂͂΂ςЂт҂ӂԂՂւׂ؂قڂۂ܂à‚Þ‚ß‚à‚á‚â‚ã‚ä‚å‚æ‚ç‚è‚é‚ê‚ë‚ì‚í‚î‚ï‚ð‚ñ'
let s:katakana = 'ƒ@ƒAƒBƒCƒDƒEƒFƒGƒHƒIƒJƒKƒLƒMƒNƒOƒPƒQƒRƒSƒTƒUƒVƒWƒXƒYƒZƒ[ƒ\ƒ]ƒ^ƒ_ƒ`ƒaƒbƒcƒdƒeƒfƒgƒhƒiƒjƒkƒlƒmƒnƒoƒpƒqƒrƒsƒtƒuƒvƒwƒxƒyƒzƒ{ƒ|ƒ}ƒ~ƒ€ƒ�ƒ‚ƒƒƒ„ƒ…ƒ†ƒ‡ƒˆƒ‰ƒŠƒ‹ƒŒƒ�ƒŽƒ�ƒ�ƒ‘ƒ’ƒ“'

let s:zokuzi_1 = 'ˆŸˆ«ˆ³ˆÍˆãˆ×ˆë‰B‰h‰c‰q‰w‰~‰–‰ž‰¢‰£�÷‰œ‰¸‰¼‰¿‰æ‰ïŠG‰ó‰ùŠgŠkŠoŠwŠxŠyŠÊŠªŠ×Š©ŠÖŠ½ŠÏ‹C‹A‹U‹Y‹]‹Œ‹’‹“‹¬‹²‹·‹Å‹æ‹ìŒMŒaŒsŒbŒkŒoŒuŒyŒpŒ{Œ|Œ‡Œ§Œ�Œ•Œ¯Œ—ŒŸŒ£Œ Œ°Œ±Œµ�LŒø�P�z�†�‘�Ó�Ï�Ö�ÜŽGŽQŽVŽ\ŽSŽ^ŽcŽ…Ž•Ž™Ž«Ž¼ŽÀ'
let s:zokuzi_2 = 'ŽÊŽßŽõŽû�]�a�b�c�l�ˆ�–�«�Ì�Ä�Ø�§�ð�æ�ò�è�ô“ê�ë�ì�÷�ø�G�ú�^�Q�T�s�}�ˆ�Œ•ä���‘�•�”�º�Ä�Ã�Þ�Û�ê�ó�í‘H‘K�ö‘@‘T‘o‘s‘ˆ‘‘‘{‘}‘•‘�‘›‘ ‘Ÿ‘®‘±‘‘Α̑ёؑä‘ê‘ð‘ò’S’P’_’c’f’e’x’s’Ž’‹’’’¡’®’º’Á’ü“S“_“]“`“”“–“}“�ˆî'
let s:zokuzi_3 = '“Æ“Ç“Í“ó”Y”]”e”q”p”„”ž”­”¯”²”Ø”é•l•¥•§•À•Ó•Ï•Ù•ó–L–J–|–œ–ž–Ù–ó–ò—^—\—]—_—h—l—w—ˆ—�———³—¼——ۗç—ã—ì—î—ö˜F˜J˜O˜p˜j꣋Ċޖí�æ‘]•O–Š”I˜\�õäÌ—y‰oŠh–‘ˆ°œ^'
let s:zokuzi_4 = 'ˆùŠç�ûŽÉ’…•Ü–v—ê‰�‹Tê¤�W‘�àôˆ±‰T‰§‰ñŠaŠ–ŠÁŠÐŒz�{Ž]åA‘G’Ù“e“v“Ž“““¬“ô”ˆŸº–™–Ý–÷˜U'

let s:seizi_1  = '˜±œ¦šØš¡çÎਚã語ĚzåÊ郚¢êdœäŸ^ŸwŸNšúâr˜ï™Já`˜ð㉚Ӝå�°ŸvæS›{›ÔžÙ㣙É蜙®è�ŸcæVŸ†Ÿd™E�Eà¸äp�Ÿ�§›µ�pàÃ�ú™½é{™¬œl䱜¨ŸâãSå£çjã‹êPåYãžãp™L™˜è¨šŸžûàÙžÜèûé„šŽœA�Áœ‘èiåjš áêàZâV™�趙Ҟ åÂœÌæÓŸkãNê�™Zç†à[›‰'
let s:seizi_2  = '›�çךæ�¾œnàFà×ãsãç™|�Ä›’âià–æššûžŠ˜©ŸÄ™”ág㊚ߛoæ¨çÔæ\š–áÁ›ŠœÄᶚ¤âíçËânç¬é’žâ�ÉãßêŽèÎâ†��›“ŸÇ�DæöèAàIã™âW™Ôšáà¥äµ�r�‡åäã`ézåUäf›¢ã”šÖ›”é“›æŸúäi‘ë�¢àV�^šdä[š£�Ðœ[ç­á—å³�êèhœKãã�ÃèNç¨ècêyçz™B“•ácê}ŸXâj'
let s:seizi_3  = 'àÕ椛œæÆœ»äIžP�`œEæÌêmá¢é›�UåÅâOà_�c˜Åâ�ç²�Ì™ž›�æ²åïãÊäÝŸÞàÒæ¡åZäo˜¬éPæ£�Šžéæ�˜Ò˜ªæT—´™_àØšÜâX™­èËꔜö࢙§žêàs˜i™zꟛܜ\�W‘\žwê ”HâRât–Gꡉn�˜žeåbœ]'
let s:seizi_4  = 'ŸZèø™eäq’˜äsŸ“è¯ä†ê�à†�çãàê¢éËŸTéò™dåyâ}Ÿóæ|èòáææ«ŽÇæËšâ™\áèž�Ÿ·éªçŽå¢•£˜ÔéUåMâÄ'

" }}}

" script {{{
function s:Henkwan(mozi_in, mozi)
  set noic
  normal yl
  let @z = @
  let s:mozi_in = @
  if @z == "\~"
    let s:mozi_in = -0x7e
  elseif match(s:komozi, s:mozi_in) >= 0
    let @z = strpart(s:ohomozi, match(s:komozi, s:mozi_in), 1)
  elseif match(s:ohomozi, s:mozi_in) >= 0
    let @z = strpart(s:komozi, match(s:ohomozi, s:mozi_in), 1)
  elseif match(s:z_komozi, s:mozi_in) >= 0
    let @z = strpart(s:z_ohomozi, match(s:z_komozi, s:mozi_in), 2)
  elseif match(s:z_ohomozi, s:mozi_in) >= 0
    let @z = strpart(s:z_komozi, match(s:z_ohomozi, s:mozi_in), 2)
  elseif match(s:g_komozi, s:mozi_in) >= 0
    let @z = strpart(s:g_ohomozi, match(s:g_komozi, s:mozi_in), 2)
  elseif match(s:g_ohomozi, s:mozi_in) >= 0
    let @z = strpart(s:g_komozi, match(s:g_ohomozi, s:mozi_in), 2)
  elseif match(s:k_komozi, s:mozi_in) >= 0
    let @z = strpart(s:k_ohomozi, match(s:k_komozi, s:mozi_in), 2)
  elseif match(s:k_ohomozi, s:mozi_in) >= 0
    let @z = strpart(s:k_komozi, match(s:k_ohomozi, s:mozi_in), 2)
  elseif match(s:hiragana, s:mozi_in) >= 0
    let @z = strpart(s:katakana, match(s:hiragana, s:mozi_in), 2)
  elseif match(s:katakana, s:mozi_in) >= 0
    let @z = strpart(s:hiragana, match(s:katakana, s:mozi_in), 2)
  elseif match(s:zokuzi_1, s:mozi_in) >= 0
    let @z = strpart(s:seizi_1, match(s:zokuzi_1, s:mozi_in), 2)
  elseif match(s:seizi_1, s:mozi_in) >= 0
    let @z = strpart(s:zokuzi_1, match(s:seizi_1, s:mozi_in), 2)
  elseif match(s:zokuzi_2, s:mozi_in) >= 0
    let @z = strpart(s:seizi_2, match(s:zokuzi_2, s:mozi_in), 2)
  elseif match(s:seizi_2, s:mozi_in) >= 0
    let @z = strpart(s:zokuzi_2, match(s:seizi_2, s:mozi_in), 2)
  elseif match(s:zokuzi_3, s:mozi_in) >= 0
    let @z = strpart(s:seizi_3, match(s:zokuzi_3, s:mozi_in), 2)
  elseif match(s:seizi_3, s:mozi_in) >= 0
    let @z = strpart(s:zokuzi_3, match(s:seizi_3, s:mozi_in), 2)
  elseif match(s:zokuzi_4, s:mozi_in) >= 0
    let @z = strpart(s:seizi_4, match(s:zokuzi_4, s:mozi_in), 2)
  elseif match(s:seizi_4, s:mozi_in) >= 0
    let @z = strpart(s:zokuzi_4, match(s:seizi_4, s:mozi_in), 2)
  elseif exists("g:zokuzi_user")
    if match(g:zokuzi_user, s:mozi_in) >= 0
      let @z = strpart(g:seizi_user, match(g:zokuzi_user, s:mozi_in), 2)
    elseif match(g:seizi_user, s:mozi_in) >= 0
      let @z = strpart(g:zokuzi_user, match(g:seizi_user, s:mozi_in), 2)
    endif
  endif
  if s:mozi_in != @z
    echo s:mozi_in "->" @z
    normal "zphx
  endif
  norma l
  set ic
endfunction
" }}}