Plagger::Plugin::Filter::Tags2Title
POPFileとかSpamAssassinとかに個別実装していたタグの内容をエントリのタイトルに追加するプラグイン。書くには書いたけどいまいち微妙。右に追加できるようにしたのは私の個人的趣味。左にタグがつきすぎるの嫌いなので。
# 指摘を受けたので名前をTagsToTitleに変更。
package Plagger::Plugin::Filter::TagsToTitle; use strict; use base qw( Plagger::Plugin ); our $VERSION = '0.01_01'; sub register { my ($self, $context) = @_; $context->register_hook( $self, 'update.feed.fixup' => \&filter, ); } sub filter { my ($self, $context, $args) = @_; my $add_to = $self->conf->{add_to} || 'left'; foreach my $entry ($args->{feed}->entries) { my @tags = $entry->tags ? map { "[$_]" } @{ $entry->tags } : (); my $title = $entry->title; # XXX: should I see (or erase) original tags? optional? # my @orig = $title =~ /\[[^]]+\]\s*/g; # $title =~ s/\[[^]]+\]\s*//g; push @tags, $title if $add_to eq 'left'; unshift @tags, $title if $add_to eq 'right'; $entry->title( join(' ', @tags) ); } } 1; __END__ =head1 NAME Plagger::Plugin::Filter::TagsToTitle - add tags to entry title =head1 SYNOPSIS - module: Filter::TagsToTitle config: add_to: left =head1 CONFIG =over 4 =item add_to Specify 'left' or 'right' of the title. Defaults to 'left'. =back =head1 AUTHOR Kenichi Ishigaki =head1 SEE ALSO L<Plagger> =cut