aboutsummaryrefslogtreecommitdiffstats
path: root/feature-tests/complete_test.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@cowu.be>2010-07-24 17:23:13 +0000
committerTom Feist <shabble@cowu.be>2010-07-24 17:23:13 +0000
commit91f126ae4c9ea90336bdeb24001fadca79439edc (patch)
treed21b72a82b67b0979aadfa3f6efbbc2586d962b1 /feature-tests/complete_test.pl
parentupdated script info to add my url and to change contact details to me (diff)
downloadirssi-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.pl27
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);
+