diff options
| -rw-r--r-- | prompt_info/uberprompt.pl | 13 | ||||
| -rw-r--r-- | prompt_info/visual.pl | 7 |
2 files changed, 7 insertions, 13 deletions
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(); |