Text::Trac が形になってきたので、実際に文章を書いてテストしてみる。
paragraph 1
paragraph 1
paragraph 1
paragraph 2
paragraph 2
paragraph 2
上の内容は実際にはこんな感じで書いてます。
= Text::Trac を blosxom から呼び出してみる テスト = == もういっちょ見出しのテスト == paragraph 1[[BR]] paragraph 1[[BR]] paragraph 1 paragraph 2[[BR]] paragraph 2[[BR]] paragraph 2 * リスト 1 * リスト 2 * リスト 3 1. リスト 1 1. リスト 2 1. リスト 3 定義リスト1:: 内容その1 定義リスト2:: 内容その2
blosxom からは以下の様なプラグインで Text::Trac を呼び出してます。
# Blosxom Plugin: text_trac
# Author: Gosuke Miyashita <miya at mizzy.org>
# Version: 2006-06-20
# Blosxom Home/Docs/Licensing: http://www.blosxom.com/
package text_trac;
use strict;
use Text::Trac;
sub start {
1;
}
sub story {
my($pkg, $path, $filename, $story_ref, $title_ref, $body_ref) = @_;
if ( $meta::syntax eq 'trac' ){
my $parser = Text::Trac->new( min_heading_level => 3 );
$parser->parse($$body_ref);
$$body_ref = $parser->html;
}
return 1;
}
1;
__END__
Text::Trac 自体はもうちょいで CPAN にアップできると思います。ただし、Yappo さんご所望の機能はもう少し時間ください。