[8eac1a5] | 1 | use warnings; |
---|
| 2 | use strict; |
---|
| 3 | |
---|
| 4 | =head1 NAME |
---|
| 5 | |
---|
| 6 | BarnOwl::Completion |
---|
| 7 | |
---|
| 8 | =head1 DESCRIPTION |
---|
| 9 | |
---|
| 10 | Hooks for tab-completion support in BarnOwl. |
---|
| 11 | |
---|
| 12 | =cut |
---|
| 13 | |
---|
| 14 | package BarnOwl::Completion; |
---|
| 15 | |
---|
| 16 | use BarnOwl::Completion::Context; |
---|
[5368d75] | 17 | use BarnOwl::Editwin qw(save_excursion text_before_point text_after_point |
---|
| 18 | point_move replace_region); |
---|
[8eac1a5] | 19 | |
---|
[6e48560] | 20 | use List::Util qw(max first); |
---|
[8eac1a5] | 21 | |
---|
[6e48560] | 22 | sub do_complete { |
---|
| 23 | my $cmd = shift; |
---|
| 24 | my $before = text_before_point(); |
---|
| 25 | my $after = text_after_point(); |
---|
| 26 | BarnOwl::debug("Completing: $before-|-$after"); |
---|
| 27 | my $ctx = BarnOwl::Completion::Context->new($before, $after); |
---|
| 28 | |
---|
| 29 | my @words = get_completions($ctx); |
---|
| 30 | return unless @words; |
---|
| 31 | my $prefix = common_prefix(@words); |
---|
| 32 | |
---|
[5368d75] | 33 | if($prefix) { |
---|
| 34 | insert_completion($ctx, $prefix, scalar @words == 1); |
---|
[6e48560] | 35 | } |
---|
| 36 | |
---|
| 37 | if(scalar @words > 1) { |
---|
| 38 | show_completions(@words); |
---|
[5368d75] | 39 | } else { |
---|
| 40 | BarnOwl::message(''); |
---|
| 41 | } |
---|
| 42 | } |
---|
| 43 | |
---|
| 44 | sub insert_completion { |
---|
| 45 | my $ctx = shift; |
---|
| 46 | my $completion = shift; |
---|
| 47 | my $unique = shift; |
---|
| 48 | |
---|
| 49 | save_excursion { |
---|
| 50 | point_move($ctx->word_start - $ctx->point); |
---|
| 51 | BarnOwl::Editwin::set_mark(); |
---|
| 52 | point_move($ctx->word_end - $ctx->word_start); |
---|
| 53 | replace_region(BarnOwl::quote($completion)); |
---|
| 54 | }; |
---|
| 55 | if($unique && $ctx->word == (scalar @{$ctx->words} - 1)) { |
---|
| 56 | save_excursion { |
---|
| 57 | BarnOwl::Editwin::set_mark(); |
---|
| 58 | replace_region(' '); |
---|
| 59 | }; |
---|
| 60 | point_move(1); |
---|
[6e48560] | 61 | } |
---|
| 62 | } |
---|
| 63 | |
---|
| 64 | sub get_completions { |
---|
| 65 | my $ctx = shift; |
---|
| 66 | if($ctx->word == 0) { |
---|
| 67 | return complete_command($ctx->words->[0]); |
---|
| 68 | } else { |
---|
| 69 | return; |
---|
| 70 | } |
---|
| 71 | } |
---|
| 72 | |
---|
| 73 | sub complete_command { |
---|
| 74 | my $cmd = shift; |
---|
| 75 | return grep {$_ =~ m{^\Q$cmd\E}} @BarnOwl::all_commands; |
---|
| 76 | } |
---|
| 77 | |
---|
| 78 | sub show_completions { |
---|
| 79 | my @words = @_; |
---|
| 80 | my $all = join(" ", map {BarnOwl::quote($_)} @words); |
---|
| 81 | my $width = BarnOwl::getnumcols(); |
---|
| 82 | if (length($all) > $width-1) { |
---|
| 83 | $all = substr($all, 0, $width-4) . "..."; |
---|
| 84 | } |
---|
| 85 | BarnOwl::message($all); |
---|
| 86 | } |
---|
| 87 | |
---|
| 88 | sub common_prefix { |
---|
| 89 | my @words = @_; |
---|
| 90 | my $len = max(map {length($_)} @words); |
---|
| 91 | my $pfx = ''; |
---|
| 92 | for my $i (1..$len) { |
---|
| 93 | $pfx = substr($words[0], 0, $i); |
---|
| 94 | if(first {substr($_, 0, $i) ne $pfx} @words) { |
---|
| 95 | $pfx = substr($pfx, 0, $i-1); |
---|
| 96 | last; |
---|
| 97 | } |
---|
| 98 | } |
---|
| 99 | |
---|
| 100 | return $pfx; |
---|
| 101 | } |
---|
[8eac1a5] | 102 | |
---|
| 103 | 1; |
---|