summaryrefslogtreecommitdiff
path: root/pandoc-memoir
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2015-01-15 14:34:26 +0100
committerJonas Smedegaard <dr@jones.dk>2015-01-15 14:34:26 +0100
commitc647b5a00ced7d8f791705f2ad756335c4d7f739 (patch)
tree13061e29d81a66f7c234c32991abeff884391da2 /pandoc-memoir
parentedee74b3ffd4b2ce21a87b47c17bbf92ee2e28d5 (diff)
Fix revert to also filter frontmatter.
Diffstat (limited to 'pandoc-memoir')
-rwxr-xr-xpandoc-memoir26
1 files changed, 16 insertions, 10 deletions
diff --git a/pandoc-memoir b/pandoc-memoir
index 8cf44a4..e28e16a 100755
--- a/pandoc-memoir
+++ b/pandoc-memoir
@@ -23,15 +23,23 @@ sub header {
sub frontmatter {
my $self = shift;
- return [ RawBlock( 'latex', '\\frontmatter' ), header('About'), ]
- if ( $self->name eq 'Header' and $self->level >= 1
- and stringify($self) eq 'About' );
+ return [
+# RawBlock( 'latex', '\\frontmatter' ),
+ RawBlock( 'latex',
+ '{\\hypersetup{linkcolor=black}\\setcounter{tocdepth}{3}\\cleartorecto\\tableofcontents}'
+ ),
+ ]
+ if ( $self->name eq 'Header' and $self->level == 1
+ and stringify($self) =~ /^Table/ );
return;
}
sub mainmatter {
my $self = shift;
- return [ RawBlock( 'latex', '\\mainmatter' ), header(stringify($self)), ]
+ return [
+ RawBlock( 'latex', '\\mainmatter' ),
+ header(stringify($self)),
+ ]
if ( $self->name eq 'Header' and $self->level == 1
and stringify($self) =~ /^Scope/ );
return;
@@ -39,7 +47,10 @@ sub mainmatter {
sub backmatter {
my $self = shift;
- return [ RawBlock( 'latex', '\\backmatter' ), header('References'), ]
+ return [
+ RawBlock( 'latex', '\\backmatter' ),
+ header('References'),
+ ]
if ( $self->name eq 'Header' and $self->level == 1
and stringify($self) =~ /^Notes/ );
return;
@@ -47,11 +58,6 @@ sub backmatter {
sub toc {
my $self = shift;
- return RawBlock( 'latex',
- '{\\hypersetup{linkcolor=black}\\setcounter{tocdepth}{3}\\clearpage\\tableofcontents}'
- )
- if ( $self->name eq 'Header' and $self->level == 1
- and stringify($self) =~ /^Table/ );
return []
if ( $self->name eq 'Para' and stringify($self) =~ /__TOC__/ );
return;