#!/usr/bin/perl -CSD
use warnings;
use strict;
use v5.22;

use File::Path qw(make_path remove_tree);
use DateTime;
use DateTime::Format::ISO8601;
use File::pushd;
use Text::VimColor;

my %output_dir = (
        'nekodev' => '../nekodev',
        'blog.nekodev' => '../blog.nekodev',
	'code.nekodev' => '../code.nekodev',
        '' => '../tmp',
	'tmpdir' => '../tmp'
);

my %src_dirs = (
	'code-tmp' => 'code-tmp',
	'blog' => 'blog',
	'web' => 'web'
);


my $blog_index = $output_dir{'tmpdir'}.'/blog_index';

sub make {
	foreach(@_) {
		system($^X, '-CSD', "../webcc", $_) if (-f $_);
		#`perl -d webcc $_` if (-f $_);
		if (-d $_) {
			print "Processing directory $_\n";

			my $dirGlob = $_.'/*';
			make(glob $dirGlob);
		}
	}
}

sub make_code_highlight {

	foreach(@_) {
		if (-f $_) {
			#$highlighter->syntax_mark_file($_);
			# need to overwrite vim options, as nvim doesn't provide -X flag
			my @vim_opts = [qw( -RZ -i NONE -u NONE -N -n ), "+set nomodeline"];
			my @extra_vim_opts = ['+setg number', '+set printoptions=number:y'];
			my $highlighter = Text::VimColor->new(
				file => $_,
				all_syntax_groups => 1,
				vim_command => 'nvim',
				vim_options => @vim_opts,
				extra_vim_options => @extra_vim_opts
			);

			my $modDate = DateTime->from_epoch( epoch => (stat $_)[9])->iso8601();
			my $outFileName = $_ =~ s/^code\//code-tmp\//r;
			$outFileName .= ".code";
			my ($dir,$saneFileName) = $_ =~ /(.*)\/(.*)/;
			make_path($dir);
			print "outputting file $outFileName\n";

			open my $out_file, '>', $outFileName or die "Can't open out file $outFileName: $!";
			print {$out_file} "[title]\n$saneFileName\n[date]\n$modDate\n[content]\n<pre>\n";

			$saneFileName =~ s/\./_/g;
			my $lineNr = 1;
			foreach(split /^/, $highlighter->html) {
				my $lineId = 'L'.$lineNr.$saneFileName;
				print {$out_file} "<span id=\"$lineId\" class=\"synLineNr\">$lineNr </span>".$_;
				$lineNr++;
			}
			print {$out_file} "</pre>\n";
			close $out_file;
		}

		if (-d $_) {
			print "Processing directory $_\n";
			my $dirGlob = $_.'/*';
			make_code_highlight(glob $dirGlob);
		}
	}
}


# setup tmpdirs
{
	my $dir = pushd($src_dirs{'blog'});
	remove_tree($output_dir{'tmpdir'});
	make_path($output_dir{'tmpdir'});
}

make_code_highlight('code');

foreach(values %src_dirs)
{
	my $dir = pushd($_);
	make(glob '*');
}


#make(@ARGV);

# build blog.nekodex index.html
{
my $dir = pushd('tmp');
my %post2title;
my %post2date;

open (my $FH, '<', $blog_index) or die "can't open blog_index file, no blog post or serious error: $!";
while( my $post = <$FH> ) {
	chomp $post;


	chomp( my $title = <$FH>);
	chomp( my $date = <$FH>);

	if( $date ne '' and $title ne '' )
	{
		$post2title{$post} = $title;
		$post2date{$post} = $date;
	}
}
close $FH;

# traverse by date
my $date_index = <<EOF;
[title]
Blogposts nach Datum sortiert
[content]
EOF

my $lastMonth;
foreach my $post (sort { $post2date{$a} cmp $post2date{$b} } keys %post2date) {
	my $date_str = $post2date{$post};
	my $date = DateTime::Format::ISO8601->parse_datetime( $date_str );
        # format with locale dependent text
        $date->set_locale('de-DE');
        my $localeDate_str = $date->strftime('%A, %d. %B %Y, %H:%M');

	my $curMonth = $date->strftime('%B %Y');
	if (defined $lastMonth) {
		if ($curMonth ne $lastMonth) {
			$date_index .= "</ul><li><time datetime=<time datetime=$date_str>$curMonth</time></li><ul>\n";
			$lastMonth = $curMonth;
		}
	} else {
		$date_index .= "<ul><li><time datetime=<time datetime=$date_str>$curMonth</time></li><ul>\n";
		$lastMonth = $curMonth;
	}

	my $pattern = $output_dir{'blog.nekodev'}."\/";
	my $linkPath = $post;
	$linkPath =~ s/$pattern//;
	$date_index .= "<li><a href=\"$linkPath\">$post2title{$post} | <time datetime=$date_str>$localeDate_str</time></a></li>\n";
}
$date_index .= "</ul></ul>\n";

# We're in tmpdir
my $tmp_blog_index = 'date_index.blog';

open (my $date_index_fh, '>', $tmp_blog_index) or die "can't open date_index file: $!";
print {$date_index_fh} $date_index;
close $date_index_fh;

system($^X, '-CSD', "../webcc", $tmp_blog_index);


# build alphabeticat index of posts
my $alphaIndex =<<EOF;
[title]
Blogposts alphabetisch sortiert
[content]
<ul>
EOF

foreach my $post (sort { $post2title{$a} cmp $post2title{$b} } keys %post2title) {
	my $pattern = $output_dir{'blog.nekodev'}."\/";
	my $linkPath = $post;
	$linkPath =~ s/$pattern//;
	$alphaIndex .= "<li><a href=\"$linkPath\">$post2title{$post}</li>\n";
}
$alphaIndex .= "</ul>\n";


# We're in tmpdir
my $tmp_alpha_index = 'alpha_index.blog';

open (my $alpha_index_fh, '>', $tmp_alpha_index) or die "can't open alpha_index file: $!";
print {$alpha_index_fh} $alphaIndex;
close $alpha_index_fh;

system($^X, '-CSD', "../webcc", $tmp_alpha_index);
}