その昔(3年前かぁ……遠い目)、なろう形式で傍点を追加する Extensionを作ったのですが、追加した傍点を後から手作業で消すのが面倒になったので、簡単な削除機能を追加してみました。

こちらから2022/06/06微修正版(*) がダウンロードできます。

以下は修正点および注意点です。

• ペースト可能(変更可能)なテキスト文字列を選択した時に有効になります。
• 文字列選択時に「｜」が入っていたら「傍」ボタンは表示されません。(傍点を振れません)
• 選択した文字列が「｜」で始まり「《何らかの文字》」で終わっている場合に「消」ボタンが表示されます。
• 文字列として「｜AAA《BBB》」を選択した場合、「消」ボタンを押すことで「AAA」が残ります。(傍点だけが消されるわけではありません)

以降はざれ言です。

• 面倒くさがって実装しなかったけど、⌘Z が利かなくなった後で「やっぱ消したい」って時に、ひとつひとつ消す方が面倒だった。
• 傍点だけじゃなくて、ルビ振った後で、元に戻せると便利かなぁと思う時もありました。
• 何となく一つのExtensionの中に 2つの機能を割り当てられる気がしてたので、試してみたらやっぱできた。
• Perlは十年以上触ってるけど、初心者のままなので、コードはダサいです。もっと奇麗な書き方があるんじゃなかろうか。

*【2022/06/06 微修正】

何も選択していない時に「傍」が表示されるので、ちょっとだけ修正しました。
Conrig.plistのRegular Expression(key)の値(String)を
(?s)^(?!.*｜).*$ から (?s)^(?!.*｜).+$ に変更。
念のため古い版を残しておきます。