From 06222d84ad2ee2f6a28b83d6216ebe9f94b6f02e Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Fri, 15 Oct 2010 21:09:34 +0100
Subject: uberprompt: added uberprompt_use_replaces setting (default off) to
 allow replace abstracts to be applied to the rendered prompt.

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

(limited to 'prompt_info/uberprompt.pl')

diff --git a/prompt_info/uberprompt.pl b/prompt_info/uberprompt.pl
index ded45cf..cdb80ce 100644
--- a/prompt_info/uberprompt.pl
+++ b/prompt_info/uberprompt.pl
@@ -139,6 +139,10 @@ my $prompt_data_pos = 'UP_INNER';
 my $prompt_last     = '';
 my $prompt_format   = '';
 
+# flag to indicate whether rendering of hte prompt should allow the replaces
+# theme formats to be applied to the content.
+my $use_replaces = 0;
+
 pre_init();
 
 sub pre_init {
@@ -175,6 +179,8 @@ sub init {
     Irssi::settings_add_str('uberprompt', 'uberprompt_format', '[$*$uber] ');
     Irssi::settings_add_bool('uberprompt', 'uberprompt_debug', 0);
     Irssi::settings_add_bool('uberprompt', 'uberprompt_autostart', 1);
+    Irssi::settings_add_bool('uberprompt', 'uberprompt_use_replaces', 0);
+
 
     Irssi::command_bind("prompt",     \&prompt_subcmd_handler);
     Irssi::command_bind('prompt on',  \&replace_prompt_items);
@@ -224,6 +230,8 @@ sub init {
 
 sub reload_settings {
 
+    $use_replaces = Irssi::settings_get_bool('uberprompt_use_replaces');
+
     $DEBUG_ENABLED = Irssi::settings_get_bool('uberprompt_debug');
 
     my $new = Irssi::settings_get_str('uberprompt_format');
@@ -289,8 +297,8 @@ sub uberprompt_draw {
     my $prompt = '';            # rendered content of the prompt.
     my $theme = Irssi::current_theme;
 
-    $prompt = $theme->format_expand
-      ("{uberprompt $prompt_arg}", Irssi::EXPAND_FLAG_IGNORE_REPLACES);
+    my $arg = $use_replaces ? Irssi::EXPAND_FLAG_IGNORE_REPLACES : 0;
+    $prompt = $theme->format_expand("{uberprompt $prompt_arg}", $arg);
 
     if ($prompt_data_pos eq 'UP_ONLY') {
         $prompt =~ s/\$\$uber//; # no need for recursive prompting, I hope.
-- 
cgit v1.2.3