aboutsummaryrefslogtreecommitdiffstats
path: root/prompt_info/prompt_info.pl
diff options
context:
space:
mode:
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;