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