// // 括弧挿入/選択範囲を括弧で囲む (2011/09/20) // by mobitan http://mobitan.org/ // // 2011/09/20 開始終了文字列を引数で与える // 2011/09/20 繰り返し実行で順次後続の単語をくるむのをやめる $opener = getarg(0); $closer = getarg(1); if ($opener == "" && $closer == "") { $opener = "("; $closer = ")"; } begingroupundo; disabledraw; call Main; enabledraw; endgroupundo; endmacro; Main: ##selected = selecting; if (!##selected) { beginsel; endsel; } ##bc = seltopcolumn; ##bl = seltoplineno; ##dc = selendcolumn; ##dl = selendlineno; escape; moveto2 ##dc, ##dl; insert $closer; ##ec = column; moveto2 ##bc, ##bl; insert $opener; if (##selected) { if (lineno == ##dl) ##ec = ##ec - ##bc + column; moveto2 ##ec, ##dl; } return;