Changeset f3e44eb

Timestamp:

Dec 27, 2009, 3:15:19 PM (14 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

986c9b1

Parents:

c9bdb46

Message:

Add a command to count characters.

Includes an awful hack to correctly handle @-replies.

File:

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

lib/BarnOwl/Module/Twitter.pm

@@ -26 +26 @@
 our @twitter_handles = ();
 our $default_handle = undef;
+
+our $prefix;
 
 my $desc = <<'END_DESC';
@@ -282 +284 @@
 );
 
+BarnOwl::new_command('twitter-count-chars' => \&cmd_count_chars, {
+    summary     => 'Count the number of characters in the edit window',
+    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.
+END_DESCRIPTION
+   });
+
+
 sub cmd_twitter {
     my $cmd = shift;
@@ -292 +304 @@
         }
     }
+    undef $prefix;
     BarnOwl::start_edit_win("What's happening?" . (defined $account ? " ($account)" : ""), sub{twitter($account, shift)});
 }
@@ -300 +313 @@
     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) });
@@ -310 +324 @@
     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) });
@@ -342 +357 @@
 }
 
+use BarnOwl::Editwin qw(:all);
+sub cmd_count_chars {
+    my $cmd = shift;
+    my $text = save_excursion {
+        move_to_buffer_start();
+        set_mark();
+        move_to_buffer_end();
+        get_region();
+    };
+    my $len = length($text);
+    $len += length($prefix) if $prefix;
+    BarnOwl::message($len);
+    return $len;
+}
+
 BarnOwl::filter(qw{twitter type ^twitter$});