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 さんご所望の機能はもう少し時間ください。