[441] in BarnOwl Developers
[D-O-H] r571 - in trunk: . owl/perl/modules
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:06:12 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
Date: Fri, 26 Jan 2007 17:03:10 -0500
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-To: dirty-owl-hackers@MIT.EDU
Author: nelhage
Date: 2007-01-26 17:03:10 -0500 (Fri, 26 Jan 2007)
New Revision: 571
Modified:
trunk/
trunk/owl/perl/modules/jabber.pl
Log:
r18202@phanatique: nelhage | 2007-01-26 17:03:04 -0500
Binding j to jwrite
Property changes on: trunk
___________________________________________________________________
Name: svk:merge
- bb873fd7-8e23-0410-944a-99ec44c633eb:/branches/owl/filter-rewrite:15925
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h/trunk:18198
+ bb873fd7-8e23-0410-944a-99ec44c633eb:/branches/owl/filter-rewrite:15925
bb873fd7-8e23-0410-944a-99ec44c633eb:/local/d-o-h/trunk:18202
Modified: trunk/owl/perl/modules/jabber.pl
===================================================================
--- trunk/owl/perl/modules/jabber.pl 2007-01-26 21:52:37 UTC (rev 570)
+++ trunk/owl/perl/modules/jabber.pl 2007-01-26 22:03:10 UTC (rev 571)
@@ -216,6 +216,7 @@
sub onStart {
if ( *BarnOwl::queue_message{CODE} ) {
register_owl_commands();
+ register_keys unless $BarnOwl::reload;
push @::onMainLoop, sub { BarnOwl::Jabber::onMainLoop(@_) };
push @::onGetBuddyList, sub { BarnOwl::Jabber::onGetBuddyList(@_) };
$vars{show} = '';
@@ -418,6 +419,10 @@
);
}
+sub register_keybindings {
+ BarnOwl::bindkey("recv j command jwrite");
+}
+
sub cmd_login {
my $cmd = shift;
my $jid = new Net::Jabber::JID;
