From 303c0a796193848dbb7bf8019ed770b9ac1eb4a4 Mon Sep 17 00:00:00 2001
From: Doug Bell <madcityzen@gmail.com>
Date: Sun, 24 May 2015 17:47:50 -0500
Subject: [PATCH] use document templates to override page templates

When a document has a template or layout set, the page will use that
instead of the template/layout set by the application.

This has revealed a bunch of technical debt around creating and giving
template _objects_ to the Page. Since the Page has the Site which has
the Theme, we don't need to give it objects. We can just give it
arrays/strings and it can figure it out.

Fixes #40
---
 lib/Statocles/Document.pm             |  8 +++++--
 lib/Statocles/Page/Document.pm        | 32 +++++++++++++++++++++++++++
 t/page/document.t                     | 27 +++++++++++++++++++++-
 t/share/theme/document/recipe.html.ep |  3 +++
 t/share/theme/layout/logo.html.ep     |  2 ++
 5 files changed, 69 insertions(+), 3 deletions(-)
 create mode 100644 t/share/theme/document/recipe.html.ep
 create mode 100644 t/share/theme/layout/logo.html.ep

diff --git a/lib/Statocles/Document.pm b/lib/Statocles/Document.pm
index 7739bc1f..b1033ccf 100644
--- a/lib/Statocles/Document.pm
+++ b/lib/Statocles/Document.pm
@@ -109,7 +109,9 @@ has date => (
 
 =attr template
 
-A template override for this document.
+A template override for this document. If set, the L<document
+page|Statocles::Page::Document> will use this instead of the template provided
+by the application.
 
 =cut
 
@@ -125,7 +127,9 @@ has template => (
 
 =attr layout
 
-A layout override for this document.
+A layout template override for this document. If set, the L<document
+page|Statocles::Page::Document> will use this instead of the layout provided
+by the application.
 
 =cut
 
diff --git a/lib/Statocles/Page/Document.pm b/lib/Statocles/Page/Document.pm
index f6784ff2..ce6ead9b 100644
--- a/lib/Statocles/Page/Document.pm
+++ b/lib/Statocles/Page/Document.pm
@@ -131,6 +131,38 @@ sub tags {
     return @{ $self->_tags };
 }
 
+=method template()
+
+The L<template|Statocles::Template> for this page. If the document has a template,
+it will be used. Otherwise, the L<template attribute|Statocles::Page/template> will
+be used.
+
+=cut
+
+around template => sub {
+    my ( $orig, $self, @args ) = @_;
+    if ( $self->document->has_template ) {
+        return $self->site->theme->template( @{ $self->document->template } );
+    }
+    return $self->$orig( @args );
+};
+
+=method layout()
+
+The L<layout template|Statocles::Template> for this page. If the document has a layout,
+it will be used. Otherwise, the L<layout attribute|Statocles::Page/layout> will
+be used.
+
+=cut
+
+around layout => sub {
+    my ( $orig, $self, @args ) = @_;
+    if ( $self->document->has_layout ) {
+        return $self->site->theme->template( @{ $self->document->layout } );
+    }
+    return $self->$orig( @args );
+};
+
 1;
 __END__
 
diff --git a/t/page/document.t b/t/page/document.t
index 8e08e01a..ed7d8557 100644
--- a/t/page/document.t
+++ b/t/page/document.t
@@ -6,7 +6,10 @@ use Statocles::Document;
 use Statocles::Page::Document;
 use Text::Markdown;
 use Statocles::Site;
-my $site = Statocles::Site->new( deploy => tempdir );
+my $site = Statocles::Site->new(
+    deploy => tempdir,
+    theme => $SHARE_DIR->child(qw( theme )),
+);
 
 my $doc = Statocles::Document->new(
     path => '/path/to/document.markdown',
@@ -69,6 +72,28 @@ subtest 'page date overridden by published date' => sub {
     is $page->date->datetime, $tp->datetime;
 };
 
+subtest 'document template/layout override' => sub {
+    my $doc = Statocles::Document->new(
+        path => '/path/to/doc.markdown',
+        title => 'Page Title',
+        content => 'Page content',
+        template => '/document/recipe.html',
+        layout => '/layout/logo.html',
+    );
+
+    my $page = Statocles::Page::Document->new(
+        path => '/path/to/doc.html',
+        site => $site,
+        document => $doc,
+        template => '<%= $content %>', # will be overridden
+        layout => '<%= $content %>', # will be overridden
+    );
+
+    my $output = $page->render;
+    my $expect = "Logo layout\nRecipe template\nPage Title\n<p>Page content</p>\n\n\n";
+    eq_or_diff $output, $expect;
+};
+
 subtest 'template coercion' => sub {
 
     subtest 'template' => sub {
diff --git a/t/share/theme/document/recipe.html.ep b/t/share/theme/document/recipe.html.ep
new file mode 100644
index 00000000..9498e117
--- /dev/null
+++ b/t/share/theme/document/recipe.html.ep
@@ -0,0 +1,3 @@
+Recipe template
+%= $self->title
+%= $content
diff --git a/t/share/theme/layout/logo.html.ep b/t/share/theme/layout/logo.html.ep
new file mode 100644
index 00000000..9b3f17fa
--- /dev/null
+++ b/t/share/theme/layout/logo.html.ep
@@ -0,0 +1,2 @@
+Logo layout
+<%= $content %>