Plagger::Plugin::Widget::Tumblr

とりあえず作ってみました。
javascriptを起動するリンクが含まれているとGmailでリンクが削除されてしまうようなので、とりあえずjavascript無しです。
結果として、現状は範囲選択などは無視した動作となります。

package Plagger::Plugin::Widget::Tumblr;

use strict;

use base qw( Plagger::Plugin );

 

use HTML::Entities;

use URI;

use Encode;

 

sub register {

    my($self, $context) = @_;

    $context->register_hook(

        $self,

        'publish.entry.fixup' => \&add,

    );

}

 

sub add {

    my($self, $context, $args) = @_;

    $args->{entry}->add_widget($self);

}

 

sub html {

    my($self, $entry) = @_;

    my $uri = URI->new('http://www.tumblr.net/share');

 

    $uri->query_form({

        v => '2',

        u => $entry->permalink,

        t => Encode::encode('utf-8', $entry->title),

    });

    my $url = HTML::Entities::encode($uri->as_string);

    return qq(<a href="$url">Tumblr</a>);

}

 

1;