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


about me

いろいろと興味を持ったことを書いてます.ちょっとしたことは hb(@smallstyle) on Twitter で書いてます.

Archive

2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|12|