1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/env perl
use strict;
require 5.010;
use Pandoc::Elements;
my $select = $ENV{PANDOC_SELECT}
// die "filter requires environment variable PANDOC_SELECT\n";
my $doc = pandoc_json(<STDIN>);
my $blocks = $doc->query( $select => sub { $_->as_block } );
say STDOUT Document({}, $blocks, api_version => $doc->api_version)->to_json;
=head1 NAME
pandoc-select - select parts of a document with Pandoc
=head1 SYNOPSIS
PANDOC_SELECT=Link pandoc --filter select -o out.html < in.md
PANDOC_SELECT=Header pandoc --filter select -o out.html < in.md
=head1 DESCRIPTION
This filter expects a L<Pandoc::Selector> in environment variable
C<PANDOC_SELECT>. Selected elements are converted to block elements.
=cut
|
