aboutsummaryrefslogtreecommitdiffstats
path: root/scrolled-reminder/scrolled-reminder.pl
blob: e2775dc65c9068d89c0966ba924b244ceacd630e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
use strict;
use warnings;

use Irssi;
use Irssi::TextUI;
use Irssi::Irc;

use Data::Dumper;

our $VERSION = '0.01';
our %IRSSI = (
              authors     => 'Tom Feist',
              contact     => 'shabble@cowu.be',
              name        => 'scrolled-reminder',
              description => 'Requires confirmation to messages sent'
              . 'when the current window is scrolled up',

              license     => 'WTFPL; http://sam.zoy.org/wtfpl/',
              url         => 'http://metavore.org/',
             );


sub handle_send_text {
    my ($text, $server_tag, $win_item) = @_;
    unless ($win_item) {
        # not all windows have window-items (eg: status window)
        return;
    }

    my $window = $win_item->window;
    my $view = $window->view;

    if ($view->{bottom} != 1) {
        # we're scrolled up.
        unless (require_confirmation($window)) {
            Irssi::signal_stop;
        }
    }
}

sub handle_keypress {
    my ($key) = @_;
    Irssi::print("key pressed: " . $key);
    if ($key == 3) { # Ctrl-c
    } elsif ($key == 11) { # Ctrl-k
    } else {
    }
    Irssi::signal_remove('gui key pressed', 'handle_keypress');
}

sub require_confirmation {
    my ($window) = @_;
    Irssi::signal_add_first('gui key pressed', 'handle_keypress');
    $window->print("You are scrolled up Really send?");
    write_to_prompt($window, 'Press Ctrl-K to confirm, Ctrl-C to cancel ');
}

sub write_to_prompt {
    my ($window, $msg) = @_;
    #$window->command("insert_text $msg");

}

Irssi::signal_add_first('send text', 'handle_send_text');