use strict;
use warnings;
use experimental 'signatures';
use Irssi;
use Irssi::TextUI;

our $VERSION = "0.1";
our %IRSSI = (
    authors     => 'APic',    # Many Credits to Nei
    contact     => 'APic@IRCnet',
    url         => "http://irssi.apic.name",
    name        => 'Paste2Input',
    description => 'Redirects Paste to Input Line',
    license     => 'public Domina', #no typo
);

die "This script requires Irssi 1.4 or later"
    if (Irssi::parse_special('$abiversion')||0) < 44;

sub run_next ($subname, $arg) {
    Irssi::timeout_add_once(10, $subname, $arg);
}

sub set_input($line) {
   Irssi::gui_input_set($line);
}

sub sig_paste_event ($paste, $arg) {
    $paste =~ s/\n/ /g;
    run_next("set_input", $paste);
}

Irssi::signal_add('paste event', 'sig_paste_event');