From 344287c95bb566ac158d8986dac97c533bc33a78 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
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/overlays.pl | 198 ------------------------------------------------
 1 file changed, 198 deletions(-)
 delete mode 100644 prompt_info/overlays.pl

(limited to 'prompt_info/overlays.pl')

diff --git a/prompt_info/overlays.pl b/prompt_info/overlays.pl
deleted file mode 100644
index b3299e9..0000000
--- a/prompt_info/overlays.pl
+++ /dev/null
@@ -1,198 +0,0 @@
-# temp place for dumping all the stuff that doesn't belong in uberprompt.
-
-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 $overlays;
-my ($term_w, $term_h) = (0, 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 _add_overlay_region {
-    my ($x, $y, $text) = @_;
-    my $region = { start => $x,
-                   text => $text,
-                 };
-
-    my $o_line = $overlays->{$y};
-
-    unless (defined $o_line) {
-        $o_line = [];
-        $overlays->{$y} = $o_line;
-    }
-
-    # foreach my $cur_region (@$o_line) {
-    #     if (_region_overlaps($cur_region, $region)) {
-    #         # do something.
-    #         print "Region overlaps";
-    #         last;
-    #     }
-    # }
-
-    push @$o_line, $region;
-    redraw_overlay();
-}
-
-# sub _remove_overlay_region {
-#     my ($line, $start, $end) = @_;
-
-#     my $o_line = $overlay->{$line};
-#     return unless $o_line;
-
-#     my $i = 0;
-#     foreach my $region (@$o_line) {
-#         if ($region->{start} == $start && $region->{end} == $end) {
-#             last;
-#         }
-#         $i++;
-#     }
-#     splice @$o_line, $i, 1, (); # remove it.
-# }
-
-sub redraw_overlay {
-    # TODO: we can't assume the active win is the only one with overlays.
-    Irssi::active_win->view->redraw();
-    foreach my $y (sort keys %$overlays) {
-        my $line = $overlays->{$y};
-        foreach my $region (@$line) {
-            Irssi::gui_printtext($region->{start}, $y, $region->{text});
-        }
-    }
-}
-
-sub augment_redraw {
-    #print "Redraw called" if DEBUG;
-    #redraw_overlay();
-    Irssi::timeout_add_once(10, \&redraw_overlay, 0);
-}
-
-sub ctrl_L_intercept {
-    my $key = shift;
-
-    if ($key == 12) {  # C-L
-        print "C-l pressed" if DEBUG;
-        Irssi::command("redraw");
-        Irssi::signal_stop();
-    }
-}
-
-sub init {
-
-    die "needs uberprompt" unless script_is_loaded('uberprompt');
-
-    Irssi::signal_add_last ('command redraw',   \&augment_redraw);
-    Irssi::signal_add_first('gui key pressed',  \&ctrl_L_intercept);
-    Irssi::signal_add      ('terminal resized', \&update_terminal_size);
-    Irssi::signal_add_first('gui print text finished', \&augment_redraw);
-
-    my $api_sigs = {
-                    # input signals
-                    'overlay create'  => [qw/int int string/], # x, y, str
-                    'overlay remove'  => [qw/int int/],        # x, y
-                    'overlay clear'   => [],                   # no args
-                    # output signals
-
-                   };
-
-    Irssi::signal_register($api_sigs);
-
-    Irssi::signal_add('overlay create', \&_add_overlay_region);
-    # Irssi::signal_add('overlay remove', \&_add_overlay_region);
-    Irssi::signal_add('overlay clear', \&_clear_overlay);
-
-    Irssi::command_bind('ocr', \&cmd_overlay_create);
-    Irssi::command_bind('ocl', sub { Irssi::signal_emit('overlay clear'); });
-
-}
-
-sub cmd_overlay_create {
-    my ($args) = @_;
-    my ($y, $x, $text) = split(/\s+/, $args, 3);
-    print "overlaying $text at [$x, $y]";
-
-    Irssi::signal_emit('overlay create', $x, $y, $text);
-}
-
-sub _clear_overlay {
-    $overlays = {};
-    redraw_overlay();
-}
-
-sub script_is_loaded {
-    my $name = shift;
-    print "Checking if $name is loaded" if DEBUG;
-    no strict 'refs';
-    my $retval = defined %{ "Irssi::Script::${name}::" };
-    use strict 'refs';
-
-    return $retval;
-}
-print "Moo!";
-init();
-
-__END__
-
-# sub _draw_overlay_menu {
-
-#     my $w = 10;
-
-#     my @lines = (
-#                  '%7+' . ('-' x $w) . '+%n',
-#                  sprintf('%%7|%%n%*s%%7|%%n', $w, 'bacon'),
-#                  sprintf('|%*s|', $w, 'bacon'),
-#                  sprintf('|%*s|', $w, 'bacon'),
-#                  sprintf('|%*s|', $w, 'bacon'),
-#                  sprintf('|%*s|', $w, 'bacon'),
-#                  sprintf('|%*s|', $w, 'bacon'),
-#                  '%7+' . ('-' x $w) . '+%n',
-#                 );
-#     my $i = 10; # start vert offset.
-#     for my $line (@lines) {
-#         Irssi::gui_printtext(int ($term_w / 2), $i++, $line);
-#     }
-# }
-- 
cgit v1.2.3