Text::Hatena::SuperpreNode

CPANの方ではスーパーpre記法にVimColorがあるー。早くダイアリーで使えるようにならないかなぁ。

package Text::Hatena::SuperpreNode;
use strict;
use base qw(Text::Hatena::PreNode);
use Text::VimColor;
sub format_vimcolor {
    my $self = shift;
    my $s = shift;
    $self->{syntax_type} = $self->{syntax_type} eq '?' ?
        '' : $self->{syntax_type};
    return Text::VimColor->new(
        string => $s,
        filetype => $self->{syntax_type},
    )->html;
}

追記(2006/12/15)

ついに来たね。

package Text::Hatena::SuperpreNode;
use strict;
use base qw(Text::Hatena::PreNode);
use Text::VimColor;

う〜む、Text::VimColorの出すクラスとvim7.0が出すクラスは違うのかな。