ささやかなる実験場の開発室

とりあえずextlibにText::Hatenaを放り込んで、pluginsに以下のソースを突っ込めばOKという簡単なシロモノですが。

・・・そんなことよりもSukeroku2をなんとかしろと＞をれ

package MT::Plugins::TextHatena;

use vars qw($VERSION);
$VERSION = 0.01;

use strict;
use Text::Hatena;

use MT;
use MT::Blog;
use MT::Entry;
use MT::Template::Context;

MT->add_text_filter(text_hatena => {
  label => 'MT::Text::Hatena',
  on_format => sub {
    my ($text, $ctx) = @_;
    if($text eq ''){
      return "";
    }
    my $entry = $ctx->stash('entry');
    my $permalink = "";
    if ($entry && $entry->id) {
      $permalink = $entry->permalink;
    }
    my $parser = Text::Hatena->new(
      permalink => $permalink,
      );
    my $html = $parser->parse($text);
    $parser->html;
  },
});
1: