#!/usr/bin/perl use warnings; use strict; use feature qw(switch); no if $] >= 5.018, warnings => "experimental::smartmatch"; use Pandoc::Filter; use Pandoc::Elements; use Path::Tiny; use List::Util qw(pairmap); my $bibfilename = $ENV{'PANDOC_CITEPROC_FILE'} || 'bibliography.bib'; my $bibfile = path($bibfilename); 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 ); push @a, join ",\n", '@'.$1.'{'.$id, @data, '}'; 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: " . '"' . $_[0]->content . '"'; return Str ""; } } }; END { $bibfile->spew_utf8( join "\n\n", @a ) if (@a); } tmuch/log/tags/57/f6/1356920112.16999.52.camel@chianamo/debian?h=master'>logtreecommitdiff
path: root/tags/57/f6/1356920112.16999.52.camel@chianamo/debian
diff options
context:
space:
mode:
Diffstat (limited to 'tags/57/f6/1356920112.16999.52.camel@chianamo/debian')
-rw-r--r--tags/57/f6/1356920112.16999.52.camel@chianamo/debian0
1 files changed, 0 insertions, 0 deletions