Changeset 140429f for perl/modules/Twitter/lib/BarnOwl/Module/Twitter.pm

Timestamp:

Jan 23, 2014, 5:52:26 PM (11 years ago)

Author:

Nelson Elhage <nelhage@nelhage.com>

Branches:

master, release-1.10

Children:

736835d

Parents:

0d53dfb

Message:

Implement :twitter-favorite

File:

• perl/modules/Twitter/lib/BarnOwl/Module/Twitter.pm (modified) (2 diffs)

perl/modules/Twitter/lib/BarnOwl/Module/Twitter.pm

@@ -276 +276 @@
 );
 
+BarnOwl::new_command( 'twitter-favorite' => sub { cmd_twitter_favorite(@_) },
+    {
+    summary     => 'Favorite the current Twitter message',
+    usage       => 'twitter-favorite [ACCOUNT]',
+    description => <<END_DESCRIPTION
+Favorite 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(@_); },
     {
@@ -357 +368 @@
     $account = $m->account unless defined($account);
     find_account($account)->twitter_retweet($m);
+    return;
+}
+
+sub cmd_twitter_favorite {
+    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_favorite($m);
     return;
 }