diff options
| author | Tom Feist <shabble@cowu.be> | 2010-07-24 17:23:13 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@cowu.be> | 2010-07-24 17:23:13 +0000 |
| commit | 91f126ae4c9ea90336bdeb24001fadca79439edc (patch) | |
| tree | d21b72a82b67b0979aadfa3f6efbbc2586d962b1 /feature-tests/complete_test.pl | |
| parent | updated script info to add my url and to change contact details to me (diff) | |
| download | irssi-scripts-91f126ae4c9ea90336bdeb24001fadca79439edc.tar.gz irssi-scripts-91f126ae4c9ea90336bdeb24001fadca79439edc.zip | |
moved most tests to feature-tests/
Diffstat (limited to 'feature-tests/complete_test.pl')
| -rw-r--r-- | feature-tests/complete_test.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/feature-tests/complete_test.pl b/feature-tests/complete_test.pl new file mode 100644 index 0000000..a8ae485 --- /dev/null +++ b/feature-tests/complete_test.pl @@ -0,0 +1,27 @@ +use strict; +use vars qw($VERSION %IRSSI); + +use Irssi; +$VERSION = '2.1'; +%IRSSI = ( + authors => 'Daenyth', + contact => 'Daenyth /at/ gmail /dot/ com', + name => 'Complete Last-Spoke', + description => 'When using tab completion on an empty input buffer, complete to the nick of the person who spoke most recently.', + license => 'GPL2', +); + +sub do_complete { + my ($strings, $window, $word, $linestart, $want_space) = @_; + return unless ($linestart eq '' && $word eq ''); + +# my $suffix = Irssi::settings_get_str('completion_char'); +# @$strings = $last_speaker . $suffix; + push @$strings, qw|/foo /bar /baz /bacon|; + +# $$want_space = 1; +# Irssi::signal_stop(); +} + + Irssi::signal_add_first( 'complete word', \&do_complete); + |