use strict;
use warnings;
use Irssi;
use Irssi::TextUI;
use Hash::Util qw();
our $VERSION = '0.4'; # 2559afeacd89ede
our %IRSSI = (
    authors     => 'Nei',
    contact     => 'Nei @ anti@conference.jabber.teamidiot.de',
    url         => "http://anti.teamidiot.de/",
    name        => 'linebuffer',
    description => 'dump the linebuffer content',
    license     => 'GNU GPLv2 or later',
   );

sub cmd_help {
    my ($args) = @_;
    if ($args =~ /^dumplines *$/i) {
        print CLIENTCRAP <<HELP

DUMPLINES [-file <filename>] [-format] [-ids] [-levels[-prepend|-hex]] [-time] [<count> [<refnum>]]

    Dump the content of the line buffer to a window or file.

    -file:   Output to this file.
    -format: Format the text output.
    -ids:    Print line IDs.
    -levels: Print levels. -prepend: before text, -hex: as hex value
    -time:   Print time stamp.
    count:   Number of lines to reproduce.
    refnum:  Specifies the window to dump.
HELP

    }
}

sub simpletime {
    my ($sec, $min, $hour, $mday, $mon, $year) = localtime $_[0];
    sprintf "%04d"."%02d"x5, 1900+$year, 1+$mon, $mday, $hour, $min, $sec;
}

sub prt_report {
    my $fh = shift;
    if ($fh->isa('Irssi::UI::Window')) {
	for (split "\n", (join $,//'', @_)) {
	    my $line;
	    for (split "\t") {
		if (defined $line) {
		    $line .= ' ' x (5 - (length $line) % 6);
		    $line .= ' ';
		}
		$line .= $_;
	    }
	    $line .= '';
	    $fh->print($line, MSGLEVEL_NEVER);
	}
    }
    else {
	$fh->print(@_);
    }
}

sub dump_lines {
    my ($data, $server, $item) = @_;
    my ($args, $rest) = Irssi::command_parse_options('dumplines', $data);
    ref $args or return;
    my $win = Irssi::active_win;
    my ($count, $winnum) = $data =~ /(-?\d+)/g;
    if (defined $winnum) {
	$win = Irssi::window_find_refnum($winnum) // do {
	    print CLIENTERROR "Window #$winnum not found";
	    return;
	};
    }
    my $fh;
    my $is_file;
    if (defined $args->{file}) {
	unless (length $args->{file}) {
	    print CLIENTERROR "Missing argument to option: file";
	    return;
	}
	open $fh, '>', $args->{file} or do {
	    print CLIENTERROR "Error opening ".$args->{file}.": $!";
	    return;
	};
	$is_file = 1;
    }
    else {
	$fh = Irssi::Windowitem::window_create(undef, 0);
	$fh->command('^scrollback home');
	$fh->command('^scrollback clear');
	$fh->command('^window scroll off');
    }
    prt_report($fh, "\n==========\nwindow: ", $win->{refnum}, "\n");
    my $view = $win->view;
    my $lclength = length $view->{buffer}{lines_count};
    $lclength = 3 if $lclength < 3;
    my $padlen = $lclength;
    my $hdr = sprintf "%${lclength}s", " # ";
    my $hllen = length sprintf '%x', MSGLEVEL_LASTLOG << 1;
                                                                        #123456789012345
    if (defined $args->{ids})          { $padlen += 10;         $hdr .= '|    ID   ' }
    if (defined $args->{time})         { $padlen += 15;         $hdr .= '| date & time  ' }
    if (defined $args->{'levels-hex'}) { $padlen += $hllen + 1; $hdr .= sprintf "|%${hllen}s", ' levels ' }

    prt_report($fh,
	" "x$padlen,"\t/buffer first line\n",
	" "x$padlen,"\t|/buffer cur line\n",
	" "x$padlen,"\t||/bottom start line\n",
	$hdr,"\t|||/start line\n");
    my $j = 1;
    $count = $view->{height} unless $count;
    my $start_line;
    if ($count < 0) {
	$start_line = $view->get_lines;
    }
    else {
	$j = $view->{buffer}{lines_count} - $count + 1;
	$j = 1 if $j < 1;
	$start_line = $view->{buffer}{cur_line};
	for (my $line = $start_line;
	     $line && $count--;
	     ($start_line, $line) = ($line, $line->prev))
	    {}
    }
    for (my $line = $start_line; $line; $line = $line->next) {
	my $i = 0;
	my $t = sprintf "%${lclength}d", $j++;
	$t .= sprintf " %9d", $line->{_irssi} if defined $args->{ids};
	$t .= ' '.simpletime($line->{info}{time}) if defined $args->{time};
	$t .= sprintf " %${hllen}x", $line->{info}{level} if defined $args->{'levels-hex'};
	$t .= "\t" . (join '', map {;++$i; $_->{_irssi} == $line->{_irssi} ? $i : ' ' }
			     $view->{buffer}{first_line}, $view->{buffer}{cur_line},
			 $view->{bottom_startline}, $view->{startline});
	$t .= "\t";
	my $text = $line->get_text(1);
	if (defined $args->{format}) {
	    if (!$is_file) {
		$text = Irssi::format_string_unexpand($text);
		$text =~ s{(%.)}{ $1 eq "%o" ? "\cD/\xff" : $1 }ge;
	    }
	}
	else {
	    $text = Irssi::format_string_unexpand($text);
	    if (!$is_file) {
		$text =~ s/%/%%/g;
	    }
	}
	my $lst;
	my $levels;
	if (defined $args->{'levels-prepend'} || defined $args->{levels}) {
	    $levels = Irssi::bits2level($line->{info}{level});
	    if (!$is_file) {
		$lst = "%n%r[%n$levels%r]%n";
	    }
	    else {
		$lst = "[$levels]";
	    }
	}
	$t .= "$lst\t" if defined $args->{'levels-prepend'};
	$t .= $text;
	$t .= "\t$lst" if defined $args->{levels};
	$t .= "\n";
	if (defined $args->{meta}) {
	    my $meta = $line->get_meta();
	    if ($meta) {
		my $pfx = " "x$padlen
		    . "\t    \t";
		$pfx .= " "x(length $levels) . "  \t" if defined $args->{'levels-prepend'};
		use Data::Dumper;
		local $Data::Dumper::Useqq = 1;
		local $Data::Dumper::Sortkeys = 1;
		local $Data::Dumper::Indent = 0;
		local $Data::Dumper::Quotekeys = 0;
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper::Pair = ':';
		$t .= $pfx . Dumper($meta);
	    }
	}
	prt_report($fh, $t);
    }
    prt_report($fh, "----------\n", map { $_ // 'NULL' }
	"view w", $view->{width}, " h", $view->{height}, " scroll ", $view->{scroll}, "\n",
	       "     ypos ", $view->{ypos}, "\n",
	"     bottom subline ", $view->{bottom_subline}, " subline ", $view->{subline}, ", is bottom: ", $view->{bottom}, "\n",
	    "buffer: lines count ", $view->{buffer}{lines_count}, ", was last eol: ", $view->{buffer}{last_eol}, "\n",
		"win: last line ", simpletime($win->{last_line}),"\n\n");
}

sub dump_formats {
    my ($data, $server, $item) = @_;
    my ($args, $rest) = Irssi::command_parse_options('dumpformats', $data);
    ref $args or return;
    my $win = Irssi::active_win;
    my ($count, $winnum) = $data =~ /(-?\d+)/g;
    if (defined $winnum) {
	$win = Irssi::window_find_refnum($winnum) // do {
	    print CLIENTERROR "Window #$winnum not found";
	    return;
	};
    }
    my $fh;
    my $is_file;
    if (defined $args->{file}) {
	unless (length $args->{file}) {
	    print CLIENTERROR "Missing argument to option: file";
	    return;
	}
	open $fh, '>', $args->{file} or do {
	    print CLIENTERROR "Error opening ".$args->{file}.": $!";
	    return;
	};
	$is_file = 1;
    }
    else {
	$fh = Irssi::Windowitem::window_create(undef, 0);
	$fh->command('^scrollback home');
	$fh->command('^scrollback clear');
	$fh->command('^window scroll off');
    }
    prt_report($fh, "\n==========\nwindow: ", $win->{refnum}, "\n");
    my $view = $win->view;
    my $lclength = length $view->{buffer}{lines_count};
    $lclength = 3 if $lclength < 3;
    my $padlen = $lclength;
    my $hdr = sprintf "%${lclength}s", " # ";
    my $hllen = length sprintf '%x', MSGLEVEL_LASTLOG << 1;
                                                                        #123456789012345
    if (defined $args->{ids})          { $padlen += 10;         $hdr .= '|    ID   ' }
    if (defined $args->{time})         { $padlen += 15;         $hdr .= '| date & time  ' }
    if (defined $args->{'levels-hex'}) { $padlen += $hllen + 1; $hdr .= sprintf "|%${hllen}s", ' levels ' }

    prt_report($fh,
	" "x$padlen,"\t/buffer first line\n",
	" "x$padlen,"\t|/buffer cur line\n",
	" "x$padlen,"\t||/bottom start line\n",
	$hdr,"\t|||/start line\n");
    my $j = 1;
    $count = $view->{height} unless $count;
    my $start_line;
    if ($count < 0) {
	$start_line = $view->get_lines;
    }
    else {
	$j = $view->{buffer}{lines_count} - $count + 1;
	$j = 1 if $j < 1;
	$start_line = $view->{buffer}{cur_line};
	for (my $line = $start_line;
	     $line && $count--;
	     ($start_line, $line) = ($line, $line->prev))
	    {}
    }
    for (my $line = $start_line; $line; $line = $line->next) {
	my $i = 0;
	my $t = sprintf "%${lclength}d", $j++;
	$t .= sprintf " %9d", $line->{_irssi} if defined $args->{ids};
	$t .= ' '.simpletime($line->{info}{time}) if defined $args->{time};
	$t .= sprintf " %${hllen}x", $line->{info}{level} if defined $args->{'levels-hex'};
	$t .= "\t" . (join '', map {;++$i; $_->{_irssi} == $line->{_irssi} ? $i : ' ' }
			     $view->{buffer}{first_line}, $view->{buffer}{cur_line},
			 $view->{bottom_startline}, $view->{startline});
	$t .= "\t";
	my $levels;
	if (defined $args->{'levels-prepend'}) {
	    $levels = Irssi::bits2level($line->{info}{level});
	    my $lst;
	    if (!$is_file) {
		$lst = "%n%r[%n$levels%r]%n";
	    }
	    else {
		$lst = "[$levels]";
	    }
	    $t .= "$lst\t";
	}
	my $format = $line->get_format();
	if (!defined $format->{text}) {
	    $t .= "%|$format->{module}#$format->{format}";
	    for my $i (0..$#{$format->{args}}) {
		$t .= "%: [$i] ";
		my $text = $format->{args}->[$i];
		$text = Irssi::format_string_unexpand($text);
		if (!$is_file) {
		    $text =~ s/%/%%/g;
		}
		$t .= $text;
	    }
	} else {
	    $t .= "%|text%:";
	    my $text = $format->{text};
	    if (!defined $text) {
		$text = "???";
	    }
	    $text = Irssi::format_string_unexpand($text);
	    if (!$is_file) {
		$text =~ s/%/%%/g;
	    }
	    $t .= $text;
	}
	$t .= "\n";
	if (defined $args->{meta}) {
	    my $meta = $line->get_meta();
	    if ($meta) {
		my $pfx = " "x$padlen
		    . "\t    \t";
		$pfx .= " "x(length $levels) . "  \t" if defined $args->{'levels-prepend'};
		use Data::Dumper;
		local $Data::Dumper::Useqq = 1;
		local $Data::Dumper::Sortkeys = 1;
		local $Data::Dumper::Indent = 0;
		local $Data::Dumper::Quotekeys = 0;
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper::Pair = ':';
		$t .= $pfx . Dumper($meta);
	    }
	}
	prt_report($fh, $t);
    }
    prt_report($fh, "----------\n", map { $_ // 'NULL' }
	"view w", $view->{width}, " h", $view->{height}, " scroll ", $view->{scroll}, "\n",
	       "     ypos ", $view->{ypos}, "\n",
	"     bottom subline ", $view->{bottom_subline}, " subline ", $view->{subline}, ", is bottom: ", $view->{bottom}, "\n",
	    "buffer: lines count ", $view->{buffer}{lines_count}, ", was last eol: ", $view->{buffer}{last_eol}, "\n",
		"win: last line ", simpletime($win->{last_line}),"\n\n");
}


Irssi::command_bind('dumplines' => 'dump_lines');
Irssi::command_bind('dumpformats' => 'dump_formats');
Irssi::command_set_options('dumplines' => 'format ids time levels levels-prepend levels-hex meta 1 -file');
Irssi::command_set_options('dumpformats' => 'ids time levels-prepend levels-hex meta 1 -file');
Irssi::command_bind_last('help' => 'cmd_help');
