moved more functions out into visual.pl, cleaned up some of the formatting.

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();