Changeset a2640485 for perl/modules/Twitter/lib/BarnOwl/Module/Twitter.pm

Timestamp:

May 23, 2010, 12:07:41 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:

5756999

Parents:

1fd469d4

git-author:

Nelson Elhage <nelhage@mit.edu> (05/23/10 12:06:23)

git-committer:

Nelson Elhage <nelhage@mit.edu> (05/23/10 12:07:41)

Message:

Twitter: Insert the "@user" into the editwin on replies.

This wasn't possible (or at least wasn't easy) until recently, when
BarnOwl::start_edit_win actually changed the context, instead of
having to wait for the mainloop to pick it up.

File:

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

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

@@ -26 +26 @@
 our @twitter_handles = ();
 our $default_handle = undef;
-
-our $prefix;
 
 my $desc = <<'END_DESC';
@@ -298 +296 @@
     usage       => 'twitter-count-chars',
     description => <<END_DESCRIPTION
-Displays the number of characters entered in the edit window so far. Correctly
-takes into account any \@user prefix that will be added by the Twitter plugin.
+Displays the number of characters entered in the edit window so far.
 END_DESCRIPTION
    });
@@ -314 +311 @@
         }
     }
-    undef $prefix;
     BarnOwl::start_edit_win("What's happening?" . (defined $account ? " ($account)" : ""), sub{twitter($account, shift)});
 }
@@ -323 +319 @@
     die("Usage: $cmd USER\n") unless $user;
     my $account = find_account_default(shift);
-    undef $prefix;
     BarnOwl::start_edit_win("$cmd $user " . ($account->nickname||""),
                             sub { $account->twitter_direct($user, shift) });
@@ -334 +329 @@
     my $account = find_account_default(shift);
 
-    $prefix = "\@$user ";
     BarnOwl::start_edit_win("Reply to \@" . $user . ($account->nickname ? (" on " . $account->nickname) : ""),
                             sub { $account->twitter_atreply($user, $id, shift) });
+    BarnOwl::Editwin::insert_text("\@$user ");
 }
 
@@ -378 +373 @@
     };
     my $len = length($text);
-    $len += length($prefix) if $prefix;
     BarnOwl::message($len);
     return $len;