カクヨム記法について

中黒傍点が嫌いなので黒ごま傍点を試す

　備忘録（びぼうろく）。

　カクヨムの傍点（ぼうてん）は「中黒（なかぐろ）」が利用（りよう）されています。

　傍点テスト。

　が、これは本来（ほんらい）横書（よこが）き用（よう）の記号（きごう）です。

　書籍化（しょせきか）されている小説（しょうせつ）はほとんどが縦書（たてが）きなので、縦書（たてが）き用（よう）の記号（きごう）である「黒（くろ）ごま」表示（ひょうじ）を試（ため）してみます。

　傍点テスト（﹅﹅﹅﹅﹅）。

　出来（でき）ました。

「ココ」という文字（もじ）にだけ傍点（ぼうてん）を振（ふ）る場合（ばあい）、次のように記載（きさい）します。

　カクヨム固有（こゆう）の傍点（ぼうてん）記法（きほう）。

◆記法（きほう）——文章中（ぶんしょうちゅう）の《《ココ》》にだけ傍点（ぼうてん）を振（ふ）りたい。

◇表示（ひょうじ）——文章中（ぶんしょうちゅう）のココにだけ傍点（ぼうてん）を振（ふ）りたい。

　擬似的（ぎじてき）な黒（くろ）ごま傍点（ぼうてん）記法（きほう）。

◆記法（きほう）——文章中（ぶんしょうちゅう）の｜ココ《﹅﹅》にだけ傍点（ぼうてん）を振（ふ）りたい。

◇表示（ひょうじ）——文章中（ぶんしょうちゅう）のココ（﹅﹅）にだけ傍点（ぼうてん）を振（ふ）りたい。

　◆

　以下（いか）余談（よだん）。

　僕（ぼく）はMacで小説（しょうせつ）を書（か）いており、テキストエディタに『縦式（たてしき）』というアプリケーションを使用（しよう）しています。このアプリケーション内（ない）では傍点（ぼうてん）を振（ふ）る際（さい）に次（つぎ）のような指定（してい）をします。

◆記法（きほう）——傍点（ぼうてん）テスト［＃「傍点テスト」に傍点］。

◇表示（ひょうじ）——傍点テスト（﹅﹅﹅﹅﹅）。

『縦式（たてしき）』は優（すぐ）れたアプリケーションなので、書（か）いた文章（ぶんしょう）を「カクヨム用（よう）」にエクスポートすることが出来（でき）ます。そのため、『縦式（たてしき）』専用（せんよう）の傍点（ぼうてん）記法（きほう）をカクヨム記法（きほう）に自動的（じどうてき）に変換（へんかん）してくれます。

　しかし、それでは「黒（くろ）ごま傍点（ぼうてん）」を実現（じつげん）出来（でき）ませんので、次（つぎ）のようなスクリプトを作成（さくせい）して自動変換（じどうへんかん）を試（こころ）みました。将来（しょうらい）、Macの買（か）い換（か）えなどをした際（さい）に困（こま）らないために、稚拙（ちせつ）なソースコードを展開（てんかい）しておきます。MacのAutomatorに設定（せってい）すれば、カクヨムの小説編集画面（しょうせつへんしゅうがめん）で直接（ちょくせつ）置換（ちかん）することが出来（でき）ます。Macユーザ且（か）つ『縦式（たてしき）』ユーザで『カクヨム』に投稿（とうこう）している奇特（きとく）な御仁（ごじん）がいましたら、雑（ざつ）なソースコードですがお好（す）きなようにお使（つか）いください。

　◆

use Encode 'decode';

my $goma = "﹅";

while (my $line = <>){

　　while(1){

　　　　if ( index( $line, "［＃「") == -1 ){

　　　　　　last;

　　　　}

　　　　$line =~ s/［＃「/《《/;

　　　　$line =~ s/」に傍点］/》》/;

　　　　my $substr = $line;

　　　　$substr =~ s/《《(.*)》》//;

　　　　$substr = $1;

　　　　$line =~ s/$substr《《/｜$substr《/;

　　　　my $strlen = length decode('UTF-8',$substr);

　　　　my $sedstr = $goma x $strlen;

　　　　$line =~ s/$substr》》/$sedstr》/g;

　　}

　　print "$line";

}