use File::Temp;
use LWP::Simple;
use Data::Dumper;
+use Net::Twitter;
$Data::Dumper::Indent = 1;
-BEGIN {
- $ENV{JSON_ANY_ORDER} = "JSON Syck DWIW";
- require JSON::Any;
- import JSON::Any;
- require Net::Twitter;
- import Net::Twitter;
-}
-
use vars qw($VERSION %IRSSI);
-$VERSION = "1.7.3";
-my ($REV) = '$Rev: 354 $' =~ /(\d+)/;
+$VERSION = "1.7.7";
+my ($REV) = '$Rev: 422 $' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://tinyurl.com/twirssi',
- changed => '$Date: 2009-01-08 14:46:04 -0800 (Thu, 08 Jan 2009) $',
+ changed => '$Date: 2009-01-26 08:19:42 -0800 (Mon, 26 Jan 2009) $',
);
my $window;
my $last_poll = time - 300;
my %tweet_cache;
my %id_map;
+my %irssi_to_mirc_colors = (
+ '%k' => '01',
+ '%r' => '05',
+ '%g' => '03',
+ '%y' => '07',
+ '%b' => '02',
+ '%m' => '06',
+ '%c' => '10',
+ '%w' => '15',
+ '%K' => '14',
+ '%R' => '04',
+ '%G' => '09',
+ '%Y' => '08',
+ '%B' => '12',
+ '%M' => '13',
+ '%C' => '11',
+ '%W' => '00',
+);
sub cmd_direct {
my ( $data, $server, $win ) = @_;
return unless &valid_username($username);
- if ( Irssi::settings_get_str("short_url_provider") ) {
+ if ( &too_long($data) and Irssi::settings_get_str("short_url_provider") ) {
foreach my $url ( $data =~ /(https?:\/\/\S+[\w\/])/g ) {
eval {
my $short = makeashorterlink($url);
unless ( ref $tweets ) {
if ( $obj->can("get_error") ) {
+ my $error;
+ eval { $error = JSON::Any->jsonToObj( $obj->get_error() ) };
+ if ($@) { $error = $obj->get_error() }
print $fh "type:debug API Error during friends_timeline call: ",
- JSON::Any->jsonToObj( $obj->get_error() ), " Aborted.\n";
+ "$error Aborted.\n";
} else {
print $fh
"type:debug API Error during friends_timeline call. Aborted.\n";
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{text} );
- $text =~ s/%/%%/g;
- $text =~ s/(^|\W)\@([-\w]+)/$1%B\@$2%n/g;
+ $text =~ s/(^|\W)\@([-\w]+)/$1\cC12\@$2\cO/g;
$text =~ s/[\n\r]/ /g;
my $reply = "tweet";
if ( Irssi::settings_get_bool("show_reply_context")
if ($context) {
my $ctext = decode_entities( $context->{text} );
- $ctext =~ s/%/%%/g;
- $ctext =~ s/(^|\W)\@([-\w]+)/$1%B\@$2%n/g;
+ $ctext =~ s/(^|\W)\@([-\w]+)/$1\cC12\@$2\cO/g;
$ctext =~ s/[\n\r]/ /g;
printf $fh "id:%d account:%s nick:%s type:tweet %s\n",
$context->{id}, $username,
if exists $friends{ $t->{user}{screen_name} };
my $text = decode_entities( $t->{text} );
- $text =~ s/%/%%/g;
- $text =~ s/(^|\W)\@([-\w]+)/$1%B\@$2%n/g;
+ $text =~ s/(^|\W)\@([-\w]+)/$1\cC12\@$2\cO/g;
$text =~ s/[\n\r]/ /g;
printf $fh "id:%d account:%s nick:%s type:tweet %s\n",
$t->{id}, $username, $t->{user}{screen_name}, $text;
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{text} );
- $text =~ s/%/%%/g;
- $text =~ s/(^|\W)\@([-\w]+)/$1%B\@$2%n/g;
+ $text =~ s/(^|\W)\@([-\w]+)/$1\cC12\@$2\cO/g;
$text =~ s/[\n\r]/ /g;
printf $fh "id:%d account:%s nick:%s type:dm %s\n",
$t->{id}, $username, $t->{sender_screen_name}, $text;
while (<FILE>) {
chomp;
last if /^__friends__/;
+ my $hilight = 0;
my %meta;
foreach my $key (qw/id account nick type/) {
if (s/^$key:(\S+)\s*//) {
$marker = ":$marker";
}
+ my $hilight_color = $irssi_to_mirc_colors{Irssi::settings_get_str("hilight_color")};
+ if ( $_ =~ /\@($meta{account})\W/ ) {
+ $meta{nick} = "\cC$hilight_color$meta{nick}\cO";
+ $hilight = MSGLEVEL_HILIGHT;
+ }
+
if ( $meta{type} eq 'tweet' ) {
- push @lines, "[$account%B\@$meta{nick}%n$marker] $_\n",;
+ push @lines, [(MSGLEVEL_PUBLIC | $hilight), $meta{type}, $account, $meta{nick}, $marker, $_];
} elsif ( $meta{type} eq 'reply' ) {
- push @lines, "[$account\\--> %B\@$meta{nick}%n$marker] $_\n",;
+ push @lines, [(MSGLEVEL_PUBLIC | $hilight), $meta{type}, $account, $meta{nick}, $marker, $_];
} elsif ( $meta{type} eq 'dm' ) {
- push @lines, "[$account%B\@$meta{nick}%n (%WDM%n)] $_\n",;
+ push @lines, [(MSGLEVEL_MSGS | $hilight), $meta{type}, $account, $meta{nick}, $_];
} elsif ( $meta{type} eq 'error' ) {
- push @lines, "ERROR: $_\n";
+ push @lines, [MSGLEVEL_MSGS, $_];
} elsif ( $meta{type} eq 'debug' ) {
print "$_" if &debug,;
} else {
if ($new_last_poll) {
print "new last_poll = $new_last_poll" if &debug;
- foreach my $line (@lines) {
- chomp $line;
- $window->print( $line, MSGLEVEL_PUBLIC );
- foreach ( $line =~ /\@([-\w]+)/ ) {
- $nicks{$1} = time;
- }
+ for my $line ( @lines ) {
+ $window->printformat(@$line[0], "twirssi_".@$line[1],
+ @$line[2,3,4,5]);
}
close FILE;
}
sub too_long {
- my $data = shift;
+ my $data = shift;
+ my $noalert = shift;
if ( length $data > 140 ) {
- ¬ice(
- "Tweet too long (" . length($data) . " characters) - aborted" );
+ ¬ice( "Tweet too long (" . length($data) . " characters) - aborted" )
+ unless $noalert;
return 1;
}
and $linestart =~ /^\/reply(?:_as)?\s*$/ )
)
{ # /twitter_reply gets a nick:num
- @$complist = grep /^\Q$word/i, sort keys %{ $id_map{__indexes} };
+ $word =~ s/^@//;
+ @$complist = map { "$_:$id_map{__indexes}{$_}" } grep /^\Q$word/i,
+ sort keys %{ $id_map{__indexes} };
}
# /tweet, /tweet_as, /dm, /dm_as - complete @nicks (and nicks as the first
}
}
+sub event_send_text {
+ my ( $line, $server, $win ) = @_;
+ my $awin = Irssi::active_win();
+
+ # if the window where we got our text was the twitter window, and the user
+ # wants to be lazy, tweet away!
+ if ( ( $awin->get_active_name() eq $window->{name} )
+ and Irssi::settings_get_bool("tweet_window_input") )
+ {
+ &cmd_tweet( $line, $server, $win );
+ }
+}
+
+Irssi::signal_add( "send text", "event_send_text" );
+
+Irssi::theme_register([
+ 'twirssi_tweet', '[$0%B@$1%n$2] $3',
+ 'twirssi_reply', '[$0\--> %B@$1%n$2] $3',
+ 'twirssi_dm', '[$0%B@$1%n (%WDM%n)] $2',
+ 'twirssi_error', 'ERROR: $0',
+]);
+
Irssi::settings_add_str( "twirssi", "twitter_window", "twitter" );
Irssi::settings_add_str( "twirssi", "bitlbee_server", "bitlbee" );
Irssi::settings_add_str( "twirssi", "short_url_provider", "TinyURL" );
Irssi::settings_add_bool( "twirssi", "twirssi_first_run", 1 );
Irssi::settings_add_bool( "twirssi", "twirssi_track_replies", 1 );
Irssi::settings_add_bool( "twirssi", "twirssi_use_reply_aliases", 0 );
+Irssi::settings_add_bool( "twirssi", "tweet_window_input", 0 );
+
$window = Irssi::window_find_name( Irssi::settings_get_str('twitter_window') );
+if ( !$window ) {
+ $window =
+ Irssi::Windowitem::window_create(
+ Irssi::settings_get_str('twitter_window'), 1 );
+ $window->set_name( Irssi::settings_get_str('twitter_window') );
+}
if ($window) {
Irssi::command_bind( "dm", "cmd_direct" );
. " or change the value of twitter_window. Then, reload twirssi." );
}
+# vim: set sts=4 expandtab:
projects / twirssi-net-twitter-lite.git / blobdiff