#!/usr/bin/perl

use warnings;
use strict;

use feature qw(switch);
no if $] >= 5.018, warnings => "experimental::smartmatch";

use Pandoc::Filter 0.05;
use Pandoc::Elements;

use Text::BibTeX::Entry;
use Path::Tiny;
use List::Util qw(pairmap);
use DateTime::Format::Flexible;


my $bibfilename = $ENV{'PANDOC_CITEPROC_FILE'} || 'bibliography.bib';
my $bibfile = path($bibfilename);
my $bibdata = new Text::BibTeX::Entry;

my (@a, $i);

pandoc_filter sub {
	my $self = shift;
	return unless ($self->name eq 'RawInline' and $self->format eq 'mediawiki');

	given ($self->content) {
		when (/^\{\{cite\s+(\w+)\s*\|(.*)\}\}$/) {
			my $id = 'ref'.++$i;
			my @data = pairmap { $b =~ s/"/\\"/g; "$a=\"$b\"" }
				map { /^\s*(\w+)\s*=\s*"?(.*?)"?\s*$/ }
					split( /\|/, $2 );
			$bibdata->parse_s (join ",\n",
				'@'.$1.'{'.$id,
				@data,
				'}');
			if ( ! $bibdata->get('author') ) {
				my @authors;
				for ( my $i = 1;; $i++ ) {
					my ( $first, $last );
					if ( $i == 1 and $bibdata->get('first') ) {
						$first = $bibdata->get('first');
						$bibdata->delete('first');
					} elsif ( $bibdata->get("first$i") ) {
						$first = $bibdata->get("first$i");
						$bibdata->delete("first$i");
					}
					if ( $i == 1 and $bibdata->get('last') ) {
						$last = $bibdata->get('last');
						$bibdata->delete('last');
					} elsif ( $bibdata->get("last$i") ) {
						$last = $bibdata->get("last$i");
						$bibdata->delete("last$i");
					}
					if ( $first and $last ) {
						push @authors, "$first {$last}";
					} elsif ($first) {
						push @authors, $first;
					} elsif ($last) {
						push @authors, $last;
					} else {
						last;
					}
				}
				if ( @authors > 0 ) {
					$bibdata->set( 'author', join ( ' and ', @authors ) );
				};
			};
			if ( $bibdata->type =~ /web/i ) {
				$bibdata->set_type('online');
				if ( my $urldate = $bibdata->get('accessdate') ) {
					my $dt = DateTime::Format::Flexible->parse_datetime($urldate);
					$bibdata->set( 'urldate', $dt->format_cldr('yyyy-MM-dd') );
					$bibdata->delete('accessdate');
				};
			};
			$bibfile->spew( '' )
				if ( $i <= 1 );
			$bibfile->append( $bibdata->print_s );
			return Cite(
				[{
					'citationId' => $id,
					'citationPrefix' => [],
					'citationSuffix' => [],
					'citationMode' => {
						t => 'NormalCitation',
						c => [],
					},
					'citationNoteNum' => 0,
					'citationHash' => 0,
				 }],
				[ Str $id ],
			);
		}
		when (/^\{\{citation needed\}\}$/) {
			say STDERR "WARNING: Mediawiki citation needed.";
			return [
				Str "citation",
				Space,
				Str "needed",
			];
		}
		default {
			say STDERR "WARNING: Mediawiki unknown data skipped: "
				. '"' . $_ . '"';
			return Str "";
		}
	}
};
24/c9/handler.839042.D839042.159683666921435.ackdone@bugs.debian.org?h=master'>handler.839042.D839042.159683666921435.ackdone@bugs.debian.org</a>/<a href='/notmuch/diff/tags/24/c9/handler.839042.D839042.159683666921435.ackdone@bugs.debian.org/debian?h=master'>debian</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='master'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><div class='diffstat-header'><a href='/notmuch/diff/?h=master'>Diffstat</a> (limited to 'tags/24/c9/handler.839042.D839042.159683666921435.ackdone@bugs.debian.org/debian')</div><table summary='diffstat' class='diffstat'><tr><td class='mode'>-rw-r--r--</td><td class='add'><a href='/notmuch/diff/tags/24/c9/handler.839042.D839042.159683666921435.ackdone@bugs.debian.org/debian?h=master'>tags/24/c9/handler.839042.D839042.159683666921435.ackdone@bugs.debian.org/debian</a></td><td class='right'>0</td><td class='graph'><table summary='file diffstat' width='0%'><tr><td class='add' style='width: -nan%;'/><td class='rem' style='width: -nan%;'/><td class='none' style='width: -nan%;'/></tr></table></td></tr>
</table><div class='diffstat-summary'>1 files changed, 0 insertions, 0 deletions</div><table summary='diff' class='diff'><tr><td>