SmallStyle

_ CotEditor でスクリプトを利用して半角スペースをいれる

この日記をかくときはだいたい半角文字の前後に半角スペースをいれているのですが，だいたい書いてるときに自分でちょこちょこ入れたりしていて，まれに入れ忘れたりすることもある．

特に日記に限らずこういう書き方をすることが多いので，CotEditor のスクリプトメニューを利用して，半角英数の前後には半角スペースをいれるスクリプトを追加してみた．

スクリプトは perl - 半角スペースを自動で入れるを参考にして以下のような感じに．あとは，スクリプトフォルダに追加して，実行権限をつけて完了．

#!/usr/bin/perl

# %%%{CotEditorXInput=AllText}%%%
# %%%{CotEditorXOutput=ReplaceAllText}%%%

use strict;
use warnings;
use Encode;

my $japanese = qr/(?!\p{M})(?:\p{Han}|\p{Katakana}|\p{Hiragana})/;
my $alphabet = qr/(?!\p{M})(?:\p{Latin}|\p{Greek}|\p{Cyrillic})/;
binmode STDOUT, ':utf8';

while(<>){
	$_ = decode 'utf8', $_;
	s/($japanese)($alphabet)/$1 $2/g;
	s/($alphabet)($japanese)/$1 $2/g;
	print;
}

__END__

スクリプトを実行するテキスト全体に対して置き換えを実行し，うまい具合に半角スペースを追加できます．が，tDiary の Wiki 記法でリンクにした場合に，先頭がアルファベットでもここは半角スペースが追加されない．目で確認はやっぱり必要か．