Changeset 880311d

Timestamp:

Dec 28, 2009, 12:03:28 AM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e6cec01

Parents:

4815492

git-author:

Nelson Elhage <nelhage@mit.edu> (12/24/09 16:45:08)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/28/09 00:03:28)

Message:

Completion: Allow completers to provide partial completion.

File:

• perl/lib/BarnOwl/Completion.pm (modified) (3 diffs)

perl/lib/BarnOwl/Completion.pm

@@ -34 +34 @@
 
     if($prefix) {
-        insert_completion($ctx, $prefix, scalar @words == 1);
+        insert_completion($ctx, $prefix,
+                          scalar @words == 1 && completion_done($words[0]));
     }
 
@@ -55 +56 @@
 An arrayref completion consists of
 
-    [$display_text, $replacement_value].
+    [$display_text, $replacement_value[, $completion_done] ].
 
 $display_text will be printed in the case of ambiguous completions,
-$replacement_value will be used to substitute the value in.
+$replacement_value will be used to substitute the value in. If there
+is only a single completion for a given word, a space will be appended
+after the completion iff $completion_done is true (or missing).
 
 =cut
@@ -74 +77 @@
 }
 
+sub completion_done {
+    my $c = shift;
+    return 1 if ref($c) ne 'ARRAY' or @$c < 3;
+    return $c->[2];
+}
+
 sub insert_completion {
     my $ctx = shift;
     my $completion = BarnOwl::quote(completion_value(shift));
-    my $unique = shift;
+    my $done = shift;
 
-    if($unique) {
+    if($done) {
         $completion .= " ";
     }