From 91f126ae4c9ea90336bdeb24001fadca79439edc Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Sat, 24 Jul 2010 18:23:13 +0100 Subject: moved most tests to feature-tests/ --- history-search/expando_test.pl | 58 ------------------------------------------ 1 file changed, 58 deletions(-) delete mode 100644 history-search/expando_test.pl (limited to 'history-search/expando_test.pl') diff --git a/history-search/expando_test.pl b/history-search/expando_test.pl deleted file mode 100644 index 0d5456a..0000000 --- a/history-search/expando_test.pl +++ /dev/null @@ -1,58 +0,0 @@ -use strict; -use Irssi; -use Irssi::TextUI; # for sbar_items_redraw - -use vars qw($VERSION %IRSSI); -$VERSION = "1.0.1"; -%IRSSI = ( - authors => "shabble", - contact => 'shabble+irssi@metavore.org, shabble@#irssi/Freenode', - name => "", - description => "", - license => "Public Domain", - changed => "" -); - -my $prompt_additional_content = ''; - -Irssi::expando_create('prompt_additional', \&expando_prompt, {}); - -#TODO: necessary? -#Irssi::signal_add_last 'gui print text finished' => \&redraw_prompts; - -sub expando_prompt { - my ($server, $witem, $arg) = @_; - return $prompt_additional_content; -} - -sub redraw_prompts { - Irssi::statusbar_items_redraw ('prompt'); - Irssi::statusbar_items_redraw ('prompt_empty'); -} - -sub handle_change_prompt_sig { - my ($text) = @_; - - print "Got prompt change sig with: $text"; - - my $expanded_text = Irssi::parse_special($text); - my $changed = ($expanded_text ne $prompt_additional_content); - - $prompt_additional_content = $expanded_text; - - if ($changed) { - print "Redrawing prompts"; - redraw_prompts(); - } -} - -sub prompt_additional_cmd { - my ($str) = @_; - print "Setting prompt to: $str"; - Irssi::signal_emit('change prompt', $str); -} - -Irssi::signal_register({'change prompt' => [qw/string/]}); -Irssi::signal_add('change prompt' => \&handle_change_prompt_sig); - -Irssi::command_bind('set_prompt' => \&prompt_additional_cmd); -- cgit v1.2.3