From 479bae5fc69ef0c35f102ef569d1b4356f8ebd32 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Thu, 15 Jan 2015 16:50:38 +0100
Subject: Refactor memoir filter, using (not yet released) fixed
 Pandoc::Filter.

---
 pandoc-memoir | 65 +++++++++++++++++++++++++----------------------------------
 1 file changed, 28 insertions(+), 37 deletions(-)

(limited to 'pandoc-memoir')

diff --git a/pandoc-memoir b/pandoc-memoir
index e28e16a..b4158e7 100755
--- a/pandoc-memoir
+++ b/pandoc-memoir
@@ -3,14 +3,14 @@
 use warnings;
 use strict;
 
-use Pandoc::Filter 0.05;
+use feature qw(switch);
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
+use Pandoc::Filter 0.06;
 use Pandoc::Elements;
 
-# FIXME: avoid eating content past tweaked headers
 pandoc_filter(
-	\&frontmatter,
-	\&mainmatter,
-	\&backmatter,
+	\&matter,
 	\&toc,
 );
 
@@ -21,39 +21,30 @@ sub header {
 	RawBlock( 'latex', '\\chapter{'.$label.'}' );
 };
 
-sub frontmatter {
-	my $self = shift;
-	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 {
+sub matter {
 	my $self = shift;
-	return [
-		RawBlock( 'latex', '\\mainmatter' ),
-		header(stringify($self)),
-	]
-		if ( $self->name eq 'Header' and $self->level == 1
-			and stringify($self) =~ /^Scope/ );
-	return;
-}
-
-sub backmatter {
-	my $self = shift;
-	return [
-		RawBlock( 'latex', '\\backmatter' ),
-		header('References'),
-	]
-		if ( $self->name eq 'Header' and $self->level == 1
-			and stringify($self) =~ /^Notes/ );
-	return;
+	return unless ( $self->name eq 'Header' );
+	return unless ( $self->level == 1 );
+	given (stringify($self)) {
+		when (/^Table/) {
+			return [
+#				RawBlock( 'latex', '\\frontmatter' ),
+				RawBlock( 'latex',
+					'{\\hypersetup{linkcolor=black}\\setcounter{tocdepth}{3}\\cleartorecto\\tableofcontents}'
+				),
+			] };
+		when (/^Scope/) {
+			return [
+				RawBlock( 'latex', '\\mainmatter' ),
+				header(stringify($self)),
+			] };
+		when (/^Notes/) {
+			return [
+				RawBlock( 'latex', '\\backmatter' ),
+				header('References'),
+			] };
+		default { return };
+	}
 }
 
 sub toc {
-- 
cgit v1.2.3