diff options
| author | Tom Feist <shabble@cowu.be> | 2010-07-24 19:19:38 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@cowu.be> | 2010-07-24 19:19:38 +0000 |
| commit | 63051bc06ebb3e3479a0011ac27d8c833da87c4d (patch) | |
| tree | 7d969958a12b784016dd6341297041ebe5c611d4 /prompt_info | |
| parent | moved testing stuff to a signle dir (diff) | |
| download | irssi-scripts-63051bc06ebb3e3479a0011ac27d8c833da87c4d.tar.gz irssi-scripts-63051bc06ebb3e3479a0011ac27d8c833da87c4d.zip | |
working? verion of scrolled reminder
Diffstat (limited to 'prompt_info')
| -rw-r--r-- | prompt_info/prompt_info.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/prompt_info/prompt_info.pl b/prompt_info/prompt_info.pl index ad5321b..aa52a81 100644 --- a/prompt_info/prompt_info.pl +++ b/prompt_info/prompt_info.pl @@ -33,8 +33,10 @@ $VERSION = "1.0.1"; changed => "24/7/2010" ); +#sub DEBUG () { 1 } sub DEBUG () { 0 } + my $prompt_additional_content = ''; Irssi::expando_create('prompt_additional', \&expando_prompt, {}); @@ -52,9 +54,10 @@ sub redraw_prompts { sub handle_change_prompt_sig { my ($text) = @_; - print "Got prompt change sig with: $text" if DEBUG; - my $expanded_text = Irssi::parse_special($text); + + print "Got prompt change sig with: $text -> $expanded_text" if DEBUG; + my $changed = ($expanded_text ne $prompt_additional_content); $prompt_additional_content = $expanded_text; |