mieki256's diary

tDiaryの引用プラグインみたいに、引用部の下に引用元が表示された方が便利だよなと言うことで、ついでにそっちもいじってみた。相変わらず、hns（というか、PerlっぽいPerlプログラム）がよくわかっていないので、実装方法がかなり強引かもしれない。ちなみに実装方法はというと、Command.pmの「package HNS::Hnf::Command::CITE」の以下の部分をいじる

* 宣言部の「use vars」に「$EndTemplateWithURI);」を追加
* 宣言部の「$NumAtrr」を2に変更
* 宣言部に「$EndTemplateWithURI = qq(</blockquote><P class="cite_source"><a href="%1">%2</a>より</P>\n);」を追加
* 「sub AsHTML」を、

sub AsHTML ($$$){
my ($self, $start, $params) = @_;
my $uri = $self->{attr}->[1];
if ($uri) {
$Template = $TemplateWithURI;
$EndTemplate = $EndTemplateWithURI;
}
my $uri_title = $self->{attr}->[2];
if (! $uri_title){
$self->{attr}->[2]=$uri;
}
return $self->SUPER::AsHTML($start, $params);
}

な感じに

HNSのCOMMANDにおけるパラメータ（%n）は半角スペース区切りの一項目を表しているのであって、コマンド群の最後のひとかたまり（半角スペース混じりも可）は本文（%content）として別扱いなんだね。というわけで、「$NumAtrr=1;」に戻し、「$ EndTemplateWithURI」で「%2」と書いていたところを「%content」に修正。