SmallStyle


2012-01-12

_ 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 記法でリンクにした場合に,先頭がアルファベットでもここは半角スペースが追加されない.目で確認はやっぱり必要か.

Tags: CotEditor

最近の日記