projects
/
twirssi-net-twitter-lite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r554 - Fix hilighting given @service
[twirssi-net-twitter-lite.git]
/
twirssi.pl
diff --git
a/twirssi.pl
b/twirssi.pl
index 9d88cada991abfa6f96bc9a6b883fbd1dfd707db..cc7c05520c20dc847200048a0c79f28dfaf6562b 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,7
+11,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.3beta";
use vars qw($VERSION %IRSSI);
$VERSION = "2.1.3beta";
-my ($REV) = '$Rev: 5
49
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 5
54
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-20,7
+20,7
@@
my ($REV) = '$Rev: 549 $' =~ /(\d+)/;
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
- changed => '$Date: 2009-03-1
4 14:06:07 -0700 (Sat, 14
Mar 2009) $',
+ changed => '$Date: 2009-03-1
5 23:09:56 -0700 (Sun, 15
Mar 2009) $',
);
my $window;
);
my $window;
@@
-938,8
+938,8
@@
sub monitor_child {
my $hilight_color =
$irssi_to_mirc_colors{ Irssi::settings_get_str("hilight_color") };
my $hilight_color =
$irssi_to_mirc_colors{ Irssi::settings_get_str("hilight_color") };
- if (
( $_ =~ /\@$meta{account}\W/i
)
-
&&
Irssi::settings_get_bool("twirssi_hilights") )
+ if (
$_ eq '@'.substr($meta{account}, 0, index($meta{account}, "@")
)
+
and
Irssi::settings_get_bool("twirssi_hilights") )
{
$meta{nick} = "\cC$hilight_color$meta{nick}\cO";
$hilight = MSGLEVEL_HILIGHT;
{
$meta{nick} = "\cC$hilight_color$meta{nick}\cO";
$hilight = MSGLEVEL_HILIGHT;
@@
-1272,7
+1272,9
@@
sub normalize_username {
my $user = shift;
my ( $username, $service ) = split /\@/, $user, 2;
my $user = shift;
my ( $username, $service ) = split /\@/, $user, 2;
- unless ($service) {
+ if ($service) {
+ $service = ucfirst lc $service;
+ } else {
$service =
ucfirst lc Irssi::settings_get_str("twirssi_default_service");
unless ( exists $twits{"$username\@$service"} ) {
$service =
ucfirst lc Irssi::settings_get_str("twirssi_default_service");
unless ( exists $twits{"$username\@$service"} ) {
@@
-1359,6
+1361,7
@@
if ($window) {
Irssi::command_bind( "twitter_unsubscribe", "cmd_del_search" );
Irssi::command_bind( "twitter_list_subscriptions", "cmd_list_search" );
Irssi::command_bind( "twirssi_upgrade", "cmd_upgrade" );
Irssi::command_bind( "twitter_unsubscribe", "cmd_del_search" );
Irssi::command_bind( "twitter_list_subscriptions", "cmd_list_search" );
Irssi::command_bind( "twirssi_upgrade", "cmd_upgrade" );
+ Irssi::command_bind( "twitter_updates", "get_updates" );
if ( Irssi::settings_get_bool("twirssi_use_reply_aliases") ) {
Irssi::command_bind( "reply", "cmd_reply" );
Irssi::command_bind( "reply_as", "cmd_reply_as" );
if ( Irssi::settings_get_bool("twirssi_use_reply_aliases") ) {
Irssi::command_bind( "reply", "cmd_reply" );
Irssi::command_bind( "reply_as", "cmd_reply_as" );
@@
-1406,7
+1409,14
@@
if ($window) {
sub { ¬ice("Stopped following $_[0]"); delete $nicks{ $_[0] }; }
)
);
sub { ¬ice("Stopped following $_[0]"); delete $nicks{ $_[0] }; }
)
);
- Irssi::command_bind( "twitter_updates", "get_updates" );
+ Irssi::command_bind(
+ "twitter_device_updates",
+ &gen_cmd(
+ "/twitter_device_updates none|im|sms",
+ "update_delivery_device",
+ sub { ¬ice("Device updated to $_[0]"); }
+ )
+ );
Irssi::signal_add_last( 'complete word' => \&sig_complete );
¬ice(" %Y<%C(%B^%C)%N TWIRSSI v%R$VERSION%N (r$REV)");
Irssi::signal_add_last( 'complete word' => \&sig_complete );
¬ice(" %Y<%C(%B^%C)%N TWIRSSI v%R$VERSION%N (r$REV)");