aboutsummaryrefslogtreecommitdiffstats
path: root/prompt_info/prompt_info.pl
diff options
context:
space:
mode:
authorTom Feist <shabble@cowu.be>2010-07-24 19:19:38 +0000
committerTom Feist <shabble@cowu.be>2010-07-24 19:19:38 +0000
commit63051bc06ebb3e3479a0011ac27d8c833da87c4d (patch)
tree7d969958a12b784016dd6341297041ebe5c611d4 /prompt_info/prompt_info.pl
parentmoved testing stuff to a signle dir (diff)
downloadirssi-scripts-63051bc06ebb3e3479a0011ac27d8c833da87c4d.tar.gz
irssi-scripts-63051bc06ebb3e3479a0011ac27d8c833da87c4d.zip
working? verion of scrolled reminder
Diffstat (limited to '')
-rw-r--r--prompt_info/prompt_info.pl7
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;