Changeset 5214546

Timestamp:

Dec 19, 2009, 9:58:49 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

22fce654

Parents:

9876953

git-author:

Nelson Elhage <nelhage@mit.edu> (12/19/09 18:57:20)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/19/09 21:58:49)

Message:

Add a twitter-retweet command

Location:

lib/BarnOwl/Module

Files:

• Twitter.pm (modified) (2 diffs)
• Twitter/Handle.pm (modified) (1 diff)

lib/BarnOwl/Module/Twitter.pm

@@ -256 +256 @@
 );
 
+BarnOwl::new_command( 'twitter-retweet' => sub { cmd_twitter_retweet(@_) },
+    {
+    summary     => 'Retweet the current Twitter message',
+    usage       => 'twitter-retweet [ACCOUNT]',
+    description => <<END_DESCRIPTION
+Retweet the current Twitter message using ACCOUNT (defaults to the
+account that received the tweet).
+END_DESCRIPTION
+    }
+);
+
 BarnOwl::new_command( 'twitter-follow' => sub { cmd_twitter_follow(@_); },
     {
@@ -304 +315 @@
     BarnOwl::start_edit_win("Reply to \@" . $user . ($account->nickname ? (" on " . $account->nickname) : ""),
                             sub { $account->twitter_atreply($user, $id, shift) });
+}
+
+sub cmd_twitter_retweet {
+    my $cmd = shift;
+    my $account = shift;
+    my $m = BarnOwl::getcurmsg();
+    if(!$m || $m->type ne 'Twitter') {
+        die("$cmd must be used with a Twitter message selected.\n");
+    }
+
+    $account = $m->account unless defined($account);
+    find_account($account)->twitter_retweet($m);
 }
 

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -299 +299 @@
 }
 
+sub twitter_retweet {
+    my $self = shift;
+    my $msg = shift;
+
+    if($msg->service ne $self->{cfg}->{service}) {
+        die("Cannot retweet a message from a different service.\n");
+    }
+    $self->twitter_command(retweet => $msg->{status_id});
+}
+
 sub twitter_follow {
     my $self = shift;