From d2e68afdbcf321b2051269e4419478eb7bccc387 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Sat, 9 Oct 2010 22:10:20 +0100
Subject: added uberprompt_debug as an irssi setting. defaults to off.

---
 prompt_info/uberprompt.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'prompt_info/uberprompt.pl')

diff --git a/prompt_info/uberprompt.pl b/prompt_info/uberprompt.pl
index a192780..d5f66b2 100644
--- a/prompt_info/uberprompt.pl
+++ b/prompt_info/uberprompt.pl
@@ -97,8 +97,10 @@ our %IRSSI =
    changed         => "24/7/2010"
   );
 
-sub DEBUG () { 1 }
-#sub DEBUG () { 0 }
+
+my $DEBUG_ENABLED = 0;
+
+sub DEBUG { $DEBUG_ENABLED }
 
 my $prompt_data = undef;
 
@@ -117,6 +119,7 @@ sub init {
     Irssi::statusbar_item_register('uberprompt', 0, 'uberprompt_draw');
 
     Irssi::settings_add_str('uberprompt', 'uberprompt_format', '[$*] ');
+    Irssi::settings_add_bool('uberprompt', 'uberprompt_debug', 0);
 
     Irssi::command_bind("prompt",     \&prompt_subcmd_handler);
     Irssi::command_bind('prompt on',  \&replace_prompt_items);
@@ -179,6 +182,9 @@ sub UNLOAD {
 }
 
 sub reload_settings {
+
+    $DEBUG_ENABLED = Irssi::settings_get_bool('uberprompt_debug');
+
     my $new = Irssi::settings_get_str('uberprompt_format');
     if ($prompt_format ne $new) {
         print "Updated prompt format" if DEBUG;
-- 
cgit v1.2.3