Changeset 8b62088 for perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm

Timestamp:

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

Author:

Edward Z. Yang <ezyang@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

65c2b3c

Parents:

eb20731

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/22/11 18:30:55)

git-committer:

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

Message:

Add autocomplete and wall-posting support.

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

File:

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

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

@@ -123 +123 @@
 sub cmd_facebook {
     my $cmd = shift;
-    BarnOwl::start_edit_win("What's on your mind?", sub{ facebook(shift) });
-    # User prompt for other person's wall is "Write something..." which
-    # we will ostensibly check for soon.
+    my $user = shift;
+
+    BarnOwl::start_edit_win(
+        defined $user ? "Write something to $user..." : "What's on your mind?",
+        sub{ facebook($user, shift) }
+    );
 }
 
@@ -156 +159 @@
 BarnOwl::filter(qw{facebook type ^facebook$});
 
+# Autocompletion support
+
+sub complete_user { return keys %{$facebook_handle->{friends}}; }
+BarnOwl::Completion::register_completer(facebook => sub { complete_user(@_) });
+
 1;