moved older scripts out of prompt-info to ensure uberprompt readme is correctly generated

1 files changed, 0 insertions, 288 deletions

diff --git a/prompt_info/input_overlay.pl b/prompt_info/input_overlay.pl
deleted file mode 100644
index 9d2a42b..0000000
--- a/prompt_info/input_overlay.pl
+++ /dev/null
@@ -1,288 +0,0 @@
-
-use strict;
-use warnings;
-
-use Irssi;
-use Irssi::TextUI;              # for sbar_items_redraw
-use Data::Dumper;
-
-
-# TODO: maybe eval { use Term::Size } and use tthat if poss.
-our $VERSION = "0.2";
-our %IRSSI =
-  (
-   authors         => "shabble",
-   contact         => 'shabble+irssi@metavore.org, shabble@#irssi/Freenode',
-   name            => "overlays",
-   description     => "Library script for drawing overlays on irssi UI",
-   license         => "MIT",
-   changed         => "24/7/2010"
-  );
-
-# overlay  := { $num1 => line1, $num2 => line2 }
-# line     := [ region, region, region ]
-# region   := { start => x, end => y, ...? }
-
-my @regions;
-
-my ($term_w, $term_h) = (0, 0);
-
-my $overlay_active = 0;
-my $prompt_len = 5;
-my $region_id = 0;
-
-sub DEBUG () { 1 }
-
-sub update_terminal_size {
-
-    my @stty_data = qx/stty -a/;
-    my $line = $stty_data[0];
-
-    # linux
-    # speed 38400 baud; rows 36; columns 126; line = 0;
-    if ($line =~ m/rows (\d+); columns (\d+);/) {
-        $term_h = $1;
-        $term_w = $2;
-        # osx
-        # speed 9600 baud; 40 rows; 235 columns;
-    } elsif ($line =~ m/(\d+) rows; (\d+) columns;/) {
-        $term_h = $1;
-        $term_w = $2;
-    } else {
-        # guess?
-        $term_h = 24;
-        $term_w = 80;
-    }
-
-    print "Terminal detected as $term_w cols by $term_h rows" if DEBUG;
-}
-
-sub find_region {
-    my ($pos) = @_;
-    foreach my $region (@regions) {
-        next unless $pos > $region->{start};
-        return $region if $pos <= $region->{end};
-    }
-    print "failed to find region for pos: $pos";
-    return undef;
-}
-
-sub redraw_overlay {
-    # TODO: we can't assume the active win is the only one with overlays.
-    #Irssi::active_win->view->redraw();
-    foreach my $region (@regions) {
-        if ($region->{draw}) {
-            my $str = $region->{style} . $region->{text} . '%n';
-            my $x_offset = $region->{start} +  $prompt_len;
-
-            Irssi::gui_printtext($x_offset, $term_h, $str);
-        }
-    }
-    # my $inp = Irssi::parse_special('$L');
-    # Irssi::gui_input_set($inp . '');
-}
-
-sub augment_redraw {
-    #print "Redraw called" if DEBUG;
-    #redraw_overlay();
-    Irssi::timeout_add_once(20, \&redraw_overlay, 0);
-}
-
-sub intercept_keypress {
-    my $key = shift;
-
-    # intercept C-l for redraw, and force it to call
-    # /redraw instead of the internal function.
-    if ($key == 12) {           # C-L
-        print "C-l pressed" if DEBUG;
-        Irssi::command("redraw");
-        Irssi::signal_stop;
-    }
-
-}
-
-sub observe_keypress {
-    my $key = shift;
-    print "Key " . chr ($key) . " pressed, pos: " . _pos();
-    if ($key > 31 && $key <= 127) {
-        # see if we're still appending to the last region:
-        #print "Observed printable key: " . chr($key) if DEBUG;
-        #print '';
-        my $latest_region = $regions[-1];
-        $latest_region = {} unless defined $latest_region;
-
-
-        my $pos = _pos();
-        my $reg = find_region($pos);
-
-        if (defined $reg) {
-            insert_into_region($key, $reg);
-        } elsif (not $latest_region->{open}) {
-            my $style = $overlay_active?'%_':'';
-            new_region($style, $key);
-        } else {
-            insert_into_region($key, $latest_region);
-        }
-        #Irssi::signal_stop;
-        # TODO: if the cursor pos is inside a region, handle it
-        # extend the region on addition?
-        redraw_overlay();
-    }
-}
-
-sub init {
-
-    die "This script requires uberprompt.pl"
-      unless script_is_loaded('uberprompt');
-
-    Irssi::signal_add_last ('command redraw',          \&augment_redraw);
-    Irssi::signal_add_first('gui key pressed',         \&intercept_keypress);
-    Irssi::signal_add_last ('gui key pressed',         \&observe_keypress);
-
-    Irssi::signal_add      ('terminal resized',        \&update_terminal_size);
-    Irssi::signal_add_first('gui print text finished', \&augment_redraw);
-
-    setup_bindings();
-
-    Irssi::signal_add('prompt changed', sub {
-                          print "Updated prompt length: $_[1]";
-                          $prompt_len = $_[1];
-                      });
-
-    Irssi::signal_emit('prompt length request');
-
-    update_terminal_size();
-}
-
-sub setup_bindings {
-
-    Irssi::command_bind('region_start', \&region_toggle);
-    Irssi::command_bind('region_clear', \&region_clear);
-    Irssi::command_bind('region_print', \&print_regions);
-
-
-    Irssi::command('/bind ^C /region_start');
-    ##Irssi::command('/bind ^D /region_clear');
-    Irssi::command('/bind ^D /region_print');
-
-}
-
-
-################################################################################
-
-sub escape_style {
-    my ($style) = @_;
-    $style =~ s/%/%%/g;
-
-    return $style;
-}
-
-sub print_regions {
-    foreach my $reg (@regions) {
-        printf("start: %d end: %d style: %s, text: \"%s\", open: %d, draw: %d",
-               $reg->{start}, $reg->{end}, escape_style($reg->{style}),
-               $reg->{text},  $reg->{open}, $reg->{draw});
-    }
-}
-
-sub new_region {
-    my ($style, $key) = @_;
-
-    my $new_id = $region_id++;
-    _debug("Creating new Region: $new_id");
-
-    my $new_region
-      = {
-         id    => $region_id++,
-         text  => '',
-         start => _pos(),
-         end   => _pos(),
-         style => $style,
-         open  => 1,
-         draw  => 1,
-        };
-
-    insert_into_region($key, $new_region);
-
-    push @regions, $new_region;
-}
-
-sub delete_region {
-    my ($region) = @_;
-    my $idx = 0;
-    foreach my $i (0..$#regions) {
-        if ($regions[$i]->{id} == $region->{id}) {
-            $idx = $i;
-            last;
-        }
-    }
-    print "Deleting region: $idx";
-    splice(@regions, $idx, 1); # remove the selected region.
-}
-
-sub insert_into_region {
-    my ($key, $region) = @_;
-
-    my $pos = _pos();
-
-    if ($key == 127) { # backspace
-        substr($region->{text}, -1, 1) = '';
-        $region->{end}--;
-        if ($region->{end} <= $region->{start}) {
-            delete_region($region);
-        }
-    } else {
-        printf("text: '%s', pos: %d, offset: %d",
-               $region->{text}, $pos, $pos - $region->{start});
-        if ( $region->{end} < $pos) {
-            $region->{text} .= chr $key;
-        } else {
-            substr($region->{text}, $pos - $region->{start}, 0) = chr $key;
-        }
-        $region->{end}++;
-    }
-}
-
-sub region_clear {
-    @regions = ();
-    Irssi::signal_emit('command redraw');
-}
-
-sub region_toggle {
-    $overlay_active = not $overlay_active;
-    _debug("Region is %sactive", $overlay_active?'':'in');
-    #@regions = ();
-    # terminate the previous region
-
-    my $region = find_region(_pos());
-    if (defined $region) {
-        $region->{open} = 0;
-        $region->{end}  = _pos();
-        debug("Region closed: %d-%d", $region->{start}, $region->{end});
-    }
-}
-
-sub script_is_loaded {
-    my $name = shift;
-    _debug("Checking if $name is loaded");
-    no strict 'refs';
-    my $retval =  %{ "Irssi::Script::${name}::" };
-    use strict 'refs';
-
-    return $retval;
-}
-
-sub _pos {
-    return Irssi::gui_input_get_pos();
-}
-
-sub _input {
-    return Irssi::parse_special('$L');
-}
-
-sub _debug {
-    printf @_ if DEBUG();
-}
-
-init();
-