From 344287c95bb566ac158d8986dac97c533bc33a78 Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Mon, 18 Apr 2011 16:33:46 +0100 Subject: moved older scripts out of prompt-info to ensure uberprompt readme is correctly generated --- prompt_info/prompt_info.pl | 114 --------------------------------------------- 1 file changed, 114 deletions(-) delete mode 100644 prompt_info/prompt_info.pl (limited to 'prompt_info/prompt_info.pl') diff --git a/prompt_info/prompt_info.pl b/prompt_info/prompt_info.pl deleted file mode 100644 index 8ad63ba..0000000 --- a/prompt_info/prompt_info.pl +++ /dev/null @@ -1,114 +0,0 @@ -# Usage: - -# edit your theme, find the line beginning: -# -# prompt = "..." -# -# and add the string `$prompt_additional' somewhere inside it. -# If using the default: prompt = "[$*] ", then a good value would be: -# -# prompt = "[$*$prompt_additional] " -# -# Then place this script to your ~/.irssi/scripts directory (~/.irssi/scripts/) -# and symlink it to the ~/.irssi/scripts/autorun directory (which may need to -# be created first) -# -# You can also load it manually once the theme has been edited via -# -# /script load prompt_info.pl -# -# You will also need to reload your theme with the following command: -# -# /script exec Irssi::themes_reload() -# -# Once loaded, you can modify your prompt content by using the following command: -# -# /set_prompt -# -# You can also use it from other scripts by issuing a signal as follows: -# -# Irssi:signal_emit('change prompt', -# -# report bugs / feature requests to http://github.com/shabble/irssi-scripts/issues -# -# NOTE: it does not appear to be possible to use colours in your prompt at present. -# This is unlikely to change without source-code changes to Irssi itself. - -use strict; -use warnings; - -use Irssi; -use Irssi::TextUI; # for sbar_items_redraw - -use vars qw($VERSION %IRSSI); -$VERSION = "1.0.1"; -%IRSSI = - ( - authors => "shabble", - contact => 'shabble+irssi@metavore.org, shabble@#irssi/Freenode', - name => "prompt_info", - description => "Helper script for dynamically adding text " - . "into the input-bar prompt.", - license => "Public Domain", - changed => "24/7/2010" - ); - -#sub DEBUG () { 1 } -sub DEBUG () { 0 } - - -my $prompt_additional_content = ''; - -Irssi::expando_create('prompt_additional', \&expando_prompt, {}); - -sub expando_prompt { - my ($server, $witem, $arg) = @_; - return $prompt_additional_content; - #return Irssi::current_theme->format_expand("{sb - #$prompt_additional_content}", 0x0f); -} - -sub redraw_prompts { - Irssi::statusbar_items_redraw ('prompt'); - Irssi::statusbar_items_redraw ('prompt_empty'); -} - -sub handle_change_prompt_sig { - my ($text) = @_; - - 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; - - if ($changed) { - print "Redrawing prompts" if DEBUG; - redraw_prompts(); - } -} - -sub prompt_additional_cmd { - my ($str) = @_; - print "Setting prompt to: $str" if DEBUG; - Irssi::signal_emit('change prompt', $str); -} - -test_abstract_setup(); -Irssi::signal_register({'change prompt' => [qw/string/]}); -Irssi::signal_add('change prompt' => \&handle_change_prompt_sig); - -Irssi::command_bind('set_prompt' => \&prompt_additional_cmd); - -sub test_abstract_setup { - my $theme = Irssi::current_theme(); - my $prompt = $theme->format_expand('{prompt}', 0); - if ($prompt !~ m/\$prompt_additional/) { - print "Prompt_Info: It looks like you haven't modified your theme" - . " to include the \$prompt_additional expando. You will not see" - . " any prompt info messages until you do. See script comments" - . "for details"; - } -} -- cgit v1.2.3