Changeset 8de7c84 for perl/modules
- Timestamp:
- Aug 9, 2014, 5:30:05 PM (10 years ago)
- Children:
- 10e2295
- Parents:
- ba7ac0d
- git-author:
- Edward Z. Yang <ezyang@cs.stanford.edu> (03/22/14 03:08:15)
- git-committer:
- Edward Z. Yang <ezyang@cs.stanford.edu> (08/09/14 17:30:05)
- Location:
- perl/modules/Twitter/lib/BarnOwl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Twitter/lib/BarnOwl/Message/Twitter.pm
rba7ac0d r8de7c84 33 33 if($self->is_private) { 34 34 return $self->replysendercmd; 35 } elsif(exists($self->{status_id})) { 36 return BarnOwl::quote('twitter-atreply', $self->sender, $self->{status_id}, $self->account); 35 } 36 # Roughly, this is how Twitter's @-reply calculation works 37 # (based on a few experiments) 38 # 39 # 1. The person who wrote the tweet you are replying to is added. 40 # This is the only time when your own name can show up in an 41 # at-reply string. 42 # 2. Next, Twitter goes through the Tweet front to back, adding 43 # mentioned usernames that have not already been added to the 44 # string. 45 # 46 # In degenerate cases, the at-reply string might be longer than 47 # the max Tweet size; Twitter doesn't care. 48 49 # XXX A horrifying violation of encapsulation 50 # NB: names array includes @-signs. 51 my $account = BarnOwl::Module::Twitter::find_account_default($self->{account}); 52 my @inside_names = grep($_ ne ("@" . $account->{cfg}->{user}), 53 $self->{body} =~ /(?:^|\s)(@\w+)/g ); 54 my @dup_names = ( ( "@" . $self->sender ), @inside_names ); 55 56 # XXX Really should use List::MoreUtils qw(uniq). This code snippet 57 # lifted from `perldoc -q duplicate`. 58 my %seen = (); 59 my @names = grep { ! $seen{ $_ }++ } @dup_names; 60 my $prefill = join(' ', @names) . ' '; # NB need trailing space 61 62 if(exists($self->{status_id})) { 63 return BarnOwl::quote('twitter-prefill', $prefill, $self->{status_id}, $self->account); 37 64 } else { 38 65 # Give a dummy status ID 39 return BarnOwl::quote('twitter- atreply', $self->sender, '', $self->account);66 return BarnOwl::quote('twitter-prefill', $prefill, '', $self->account); 40 67 } 41 68 } -
perl/modules/Twitter/lib/BarnOwl/Module/Twitter.pm
rba7ac0d r8de7c84 265 265 ); 266 266 267 BarnOwl::new_command( 'twitter-prefill' => sub { cmd_twitter_prefill(@_); }, 268 { 269 summary => 'Send a Twitter message with prefilled text', 270 usage => 'twitter-prefill PREFILL [ID [ACCOUNT]]', 271 description => 'Send a Twitter message with initial text PREFILL on ACCOUNT (defaults to default_sender,' 272 . "\nor first service if no default is provided)" 273 } 274 ); 275 267 276 BarnOwl::new_command( 'twitter-retweet' => sub { cmd_twitter_retweet(@_) }, 268 277 { … … 356 365 sub { $account->twitter_atreply($user, $id, shift) }); 357 366 BarnOwl::Editwin::insert_text("\@$user "); 367 } 368 369 sub cmd_twitter_prefill { 370 my $cmd = shift; 371 # prefill is responsible for spacing 372 my $prefill = shift || die("Usage: $cmd PREFILL [In-Reply-To ID]\n"); 373 my $id = shift; 374 my $account = find_account_default(shift); 375 376 my $msg = "What's happening?"; 377 if ($id) { 378 # So, this isn't quite semantically correct, but it's close 379 # enough, and under the planned use-case, it will look identical. 380 $msg = "Reply to " . $prefill; 381 } 382 if ($account->nickname) { 383 # XXX formatting slightly suboptimal on What's happening message; 384 # and the behavior does not match up with 'twitter' anyhoo, 385 # which doesn't dispatch through account_find_default 386 $msg .= " on " . $account->nickname; 387 } 388 BarnOwl::start_edit_win($msg, 389 sub { $account->twitter_atreply(undef, $id, shift) }); 390 BarnOwl::Editwin::insert_text($prefill); 358 391 } 359 392
Note: See TracChangeset
for help on using the changeset viewer.