Changeset ac1bbe23d335d92de71ead394cb3042676203969 for perl/modules/jabber.pl

Timestamp:

01/26/07 17:03:10 (3 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

git-author:

Nelson Elhage <nelhage@mit.edu> / 2007-01-26T17:03:04Z-0500

Parents:

0da506ce9d98b7097cea151432f3eb19eab40e6d

Children:

a8a3433bfd484aaf85919e99ffbbfd32f6400491

git-committer:

Nelson Elhage <nelhage@mit.edu> / 2007-01-26T22:03:10Z+0000

Message:

Binding j to jwrite

Files:

• perl/modules/jabber.pl (modified) (2 diffs)

perl/modules/jabber.pl

@@ -217 +217 @@
     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(@_) };
@@ -419 +420 @@
 }
 
+sub register_keybindings {
+    BarnOwl::bindkey("recv j command jwrite");
+}
+
 sub cmd_login {
     my $cmd = shift;