Changeset 7efa163 for perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm

Timestamp:

Sep 20, 2011, 11:15:33 PM (11 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.9

Children:

f4037cf

Parents:

1d11b78

git-author:

Edward Z. Yang <ezyang@mit.edu> (07/30/11 23:27:31)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:33)

Message:

Wordwrap, write the config, style wibbles.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm (modified) (4 diffs)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm

@@ -61 +61 @@
 #BarnOwl::new_command('facebook-message' => \&cmd_facebook_direct, {
 #    summary     => 'Send a Facebook message',
-#    usage       => 'twitter-direct USER',
-#    description => 'Send a private Facebook Message to USER.'
+#    usage       => 'facebook-message USER',
+#    description => 'Send a private Facebook message to USER.'
 #});
 
@@ -93 +93 @@
     BarnOwl::start_edit_win(
         defined $user ? "Write something to $user..." : "What's on your mind?",
-        sub{ $facebook_handle->facebook($user, shift) }
+        sub { $facebook_handle->facebook($user, shift) }
     );
 }
@@ -132 +132 @@
 sub check_ready {
     if (!$facebook_handle->{logged_in}) {
-        BarnOwl::message("Need to login to Facebook first with ':facebook-auth'.");
+        BarnOwl::message("You need to login to Facebook first with ':facebook-auth'.");
         return 0;
     }
@@ -139 +139 @@
 
 BarnOwl::filter(qw{facebook type ^facebook$});
+BarnOwl::bindkey(qw(recv f command facebook));
 
 sub complete_user { return keys %{$facebook_handle->{friends}}; }