diff options
| author | Tom Feist <shabble@metavore.org> | 2010-10-15 20:09:34 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2010-10-15 20:09:34 +0000 |
| commit | 06222d84ad2ee2f6a28b83d6216ebe9f94b6f02e (patch) | |
| tree | 7c3fb8243ac1fe28ae7fcedb2ecf941a0f5ec4db /prompt_info | |
| parent | Merge remote branch 'origin/dev' (diff) | |
| download | irssi-scripts-06222d84ad2ee2f6a28b83d6216ebe9f94b6f02e.tar.gz irssi-scripts-06222d84ad2ee2f6a28b83d6216ebe9f94b6f02e.zip | |
uberprompt: added uberprompt_use_replaces setting (default off) to allow replace
abstracts to be applied to the rendered prompt.
Diffstat (limited to 'prompt_info')
| -rw-r--r-- | prompt_info/uberprompt.pl | 12 |
1 files changed, 10 insertions, 2 deletions
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. |