// ルビマクロ
// ruby.mac

// バージョン：1.00
// 公開日    ：2005.3.27

// 連絡先    ：siteCTS <cts@creasus.net> <http://cts.creasus.net/>

if (selecting) {
	if (rectselecting) {
		message "矩形範囲選択の時は使えません。";
		endmacro;
	}
	#sex = selendx; #sey = selendy;
	$rb = gettext(seltopx, seltopy, selendx, selendy);
	moveto seltopx, seltopy;
	beginsel;
	moveto #sex, #sey;
	endsel;
} else
	$rb = input("<rb> ルビを振りたいテキストを入力", "");
if ($rb == "")
	endmacro;

$rt = input("<rt> 「" + $rb + "」のルビを入力");
if ($rt == "")
	endmacro;

$rps = input("<rp> 非対応ブラウザ用のカッコ開始文字を入力", "（");
if ($rps == "")
	endmacro;
else if ($rps == "（") $rpe = "）";
else if ($rps == "(") $rpe = ")";
else if ($rps == "[") $rpe = "]";
else if ($rps == "{") $rpe = "}";
else if ($rps == "『") $rpe = "』";
else if ($rps == "【") $rpe = "】";
else if ($rps == "〈") $rpe = "〉";
else if ($rps == "《") $rpe = "》";
else if ($rps == "〔") $rpe = "〕";
else $rpe = $rps;

delete;
insert "<ruby><rb>" + $rb + "</rb><rp>" + $rps + "</rp><rt>" + $rt + "</rt><rp>" + $rpe + "</rp></ruby>";
endmacro;