From 73487a72a5988da26f8a57e80d2fa68dfa9d2a01 Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Sat, 9 Oct 2010 18:01:13 +0100 Subject: moved more functions out into visual.pl, cleaned up some of the formatting. --- prompt_info/uberprompt.pl | 13 ------------- prompt_info/visual.pl | 7 +++++++ 2 files changed, 7 insertions(+), 13 deletions(-) (limited to 'prompt_info') diff --git a/prompt_info/uberprompt.pl b/prompt_info/uberprompt.pl index 6056d3f..bf7380b 100644 --- a/prompt_info/uberprompt.pl +++ b/prompt_info/uberprompt.pl @@ -83,13 +83,11 @@ sub DEBUG () { 1 } #sub DEBUG () { 0 } my $prompt_data = undef; -#my $prompt_item = undef; my $prompt_format = ''; init(); - sub prompt_subcmd_handler { my ($data, $server, $item) = @_; $data =~ s/\s+$//g; # strip trailing whitespace. @@ -211,19 +209,10 @@ sub uberprompt_draw { return $ret; } - sub uberprompt_refresh { Irssi::statusbar_items_redraw('uberprompt'); } - -sub cmd_clear_visual { - _clear_visual_region(); - #refresh_visual_overlay(); - Irssi::statusbar_items_redraw('input'); -} - - sub replace_prompt_items { # remove existing ones. print "Removing original prompt" if DEBUG; @@ -268,8 +257,6 @@ sub _sbar_command { Irssi::command($command); } - - # bit of fakery so things don't complain about the lack of prompt_info (hoepfully) %Irssi::Script::prompt_info:: = (); diff --git a/prompt_info/visual.pl b/prompt_info/visual.pl index 5941fe0..1413d0d 100644 --- a/prompt_info/visual.pl +++ b/prompt_info/visual.pl @@ -95,6 +95,13 @@ sub init { } +sub cmd_clear_visual { + _clear_visual_region(); + #refresh_visual_overlay(); + Irssi::statusbar_items_redraw('input'); +} + + sub augment_redraw { print "Redraw called" if DEBUG; uberprompt_refresh(); -- cgit v1.2.3