Changeset 1f69b54 for perl/modules/Twitter/lib/BarnOwl/Module/Twitter.pm

Timestamp:

Aug 20, 2017, 4:38:40 PM (7 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Children:

834dc31

Parents:

38c584e

git-author:

Edward Z. Yang <ezyang@cs.stanford.edu> (03/22/14 03:08:15)

git-committer:

Alex Dehnert <adehnert@mit.edu> (08/20/17 16:38:40)

Message:

Implement Twitter at-reply prefill semantics.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>

File:

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

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

@@ -265 +265 @@
 );
 
+BarnOwl::new_command( 'twitter-prefill' => sub { cmd_twitter_prefill(@_); },
+    {
+    summary     => 'Send a Twitter message with prefilled text',
+    usage       => 'twitter-prefill PREFILL [ID [ACCOUNT]]',
+    description => 'Send a Twitter message with initial text PREFILL on ACCOUNT (defaults to default_sender,' 
+    . "\nor first service if no default is provided)"
+    }
+);
+
 BarnOwl::new_command( 'twitter-retweet' => sub { cmd_twitter_retweet(@_) },
     {
@@ -356 +365 @@
                             sub { $account->twitter_atreply($user, $id, shift) });
     BarnOwl::Editwin::insert_text("\@$user ");
+}
+
+sub cmd_twitter_prefill {
+    my $cmd  = shift;
+    # prefill is responsible for spacing
+    my $prefill = shift || die("Usage: $cmd PREFILL [In-Reply-To ID]\n");
+    my $id   = shift;
+    my $account = find_account_default(shift);
+
+    my $msg = "What's happening?";
+    if ($id) {
+        # So, this isn't quite semantically correct, but it's close
+        # enough, and under the planned use-case, it will look identical.
+        $msg = "Reply to " . $prefill;
+    }
+    if ($account->nickname) {
+        # XXX formatting slightly suboptimal on What's happening message;
+        # and the behavior does not match up with 'twitter' anyhoo,
+        # which doesn't dispatch through account_find_default
+        $msg .= " on " . $account->nickname;
+    }
+    BarnOwl::start_edit_win($msg,
+                            sub { $account->twitter_atreply(undef, $id, shift) });
+    BarnOwl::Editwin::insert_text($prefill);
 }