ひらがな変換

作成理由

半角全角が頻繁に混じる文章を書く際に切り替えが面倒に感じていた。
半角ローマ字で入力したのをあとからひらがな（カタカナ）に変換できないかと思っていたところ ruby のライブラリに romkan なるものを発見。
すでにカタカナからひらがなに、あるいはひらがなをカタカナに変換するマクロは作っていたので、これを半角ローマ字入力にも対応できるように拡張してみた。

前準備

rubyをインストール
TEXCELL Ruby用クリップボードライブラリをインストール
- clipboard_v100.7z をダウンロード
- lhaplusなどで解凍
- できたclipboard.rbをC:\Ruby\lib\ruby\site_ruby\2.X.Xとかにコピー
romkan ライブラリをインストール
コマンドラインから”gem install romkan”
マクロをコピペして名前をつけて保存(文字コードはUTF-8、BOM付き)

//ひらがな変換.mac

disabledraw;begingroupundo;
if(iskeydown(0x10)){#fs=1;}else{#fs=0;}
if(selecting){copy2;}else{setclipboard "";}
beginclipboardread;
#fg=getclipboardinfo(1);
if(#fg){ //矩形選択
  if(seltopx==selendy){wordleft;}
  #h1=hidemaruhandle(0);
  copy2;openfile "/h";paste;
  saveas currentmacrodirectory+"\\tmp99gm.txt";
  #h2=hidemaruhandle(0);
  selectall;copy2;
  runsync2 "rubyw -x "+currentmacrofilename;
  delete;paste;
  setactivehidemaru #h1;cut;
  setactivehidemaru #h2;
  gofiletop;beginrect;gofileend;copy2;
  #px=seltopx;#py=seltopy;#dx=selendx;#dy=selendy;
  setactivehidemaru #h1;pasterect;
  $s1=getclipboard;
  beginrect;moveto x+#dx-#px,y+#dy-#py;
  closehidemaruforced #h2;
}else{
  if(selecting){
    if(seltopx==selendx){wordleft;}
  }else{beginsel;wordleft;}
  cut;
  runsync2 "rubyw -x "+currentmacrofilename;
  #x=x;#y=y;paste;$s1=getclipboard;
  if(#fs==1){ //shiftキーが押されてたら選択
    beginsel;moveto #x,#y;}
}
#px=seltopx;#py=seltopy;#dx=selendx;#dy=selendy;
if(rectselecting){escape;moveto #px,#dy;beginrect;moveto #dx,#py;}
if(#fs==0){escape;}
endgroupundo;enabledraw;endmacro;

/*
#/
#! ruby
# encoding: utf-8
Encoding.default_external = 'UTF-8'

$stdout=open("tmp99m.txt","w")
$stderr=open("tmp_errm.txt","w")

require 'clipboard'
require 'romkan'

cbd = ClipBoard.new(__ENCODING__)
st=cbd.getText
# ひらがな変換
st=st.to_kana.tr("ァ-ン","ぁ-ん").gsub(%r|(?<![ぁ-んァ-ヴ])[ー]|,"-")
# カタカナ変換
# st=st.to_kana.tr("ぁ-ん","ァ-ン").gsub(%r|(?<![ぁ-んァ-ヴ])[ー]|,"-")

cbd.setText(st)

__END__
*/

//ひらがな変換.mac

disabledraw;begingroupundo;

if(iskeydown(0x10)){#fs=1;}else{#fs=0;}

if(selecting){copy2;}else{setclipboard"";}

beginclipboardread;

#fg=getclipboardinfo(1);

if(#fg){ //矩形選択

if(seltopx==selendy){wordleft;}

#h1=hidemaruhandle(0);

copy2;openfile"/h";paste;

saveascurrentmacrodirectory+"\\tmp99gm.txt";

#h2=hidemaruhandle(0);

selectall;copy2;

runsync2"rubyw -x "+currentmacrofilename;

delete;paste;

setactivehidemaru#h1;cut;

setactivehidemaru#h2;

gofiletop;beginrect;gofileend;copy2;

#px=seltopx;#py=seltopy;#dx=selendx;#dy=selendy;

setactivehidemaru#h1;pasterect;

$s1=getclipboard;

beginrect;movetox+#dx-#px,y+#dy-#py;

closehidemaruforced#h2;

}else{

if(selecting){

if(seltopx==selendx){wordleft;}

}else{beginsel;wordleft;}

cut;

runsync2"rubyw -x "+currentmacrofilename;

#x=x;#y=y;paste;$s1=getclipboard;

if(#fs==1){ //shiftキーが押されてたら選択

beginsel;moveto#x,#y;}

}

#px=seltopx;#py=seltopy;#dx=selendx;#dy=selendy;

if(rectselecting){escape;moveto#px,#dy;beginrect;moveto #dx,#py;}

if(#fs==0){escape;}

endgroupundo;enabledraw;endmacro;

#! ruby

# encoding: utf-8

Encoding.default_external='UTF-8'

$stdout=open("tmp99m.txt","w")

$stderr=open("tmp_errm.txt","w")

require'clipboard'

require'romkan'

cbd=ClipBoard.new(__ENCODING__)

st=cbd.getText

# ひらがな変換

st=st.to_kana.tr("ァ-ン","ぁ-ん").gsub(%r|(?<![ぁ-んァ-ヴ])[ー]|,"-")

# カタカナ変換

# st=st.to_kana.tr("ぁ-ん","ァ-ン").gsub(%r|(?<![ぁ-んァ-ヴ])[ー]|,"-")

cbd.setText(st)

__END__

使い方のポイント

文字を選択した場合は選択した文字を変換、してない場合は前の単語を変換する。
マクロの ruby 部分のコメント行の切り替えでカタカナ変換にできる。
alt+キー,ctrl+キーのようにキーボードに割り当てて使用するのを推奨。
shiftキーを押しながら実行すると変換した文字を選択。
その場合は変換キーと組み合わせることで漢字に変換できる。
矩形選択にもそれっぽく対応。

ちょっと一言

矩形選択時の処理をどうしたものか悩んだけど一度 tmpファイルに選択内容を書き出して加工することで解決。