X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FView%2FDefault.pm;h=b1d484011da799bea712d33ba2c12817171e0dc9;hb=10f3d646dc0d4c48a2d48259a3f81ba840351707;hp=2c65caa46b56302502b9e6eef952b6f379c71fee;hpb=109ce6685d0dfb9e6598da283b75c322bb062220;p=catagits%2FGitalist.git

diff --git a/lib/Gitalist/View/Default.pm b/lib/Gitalist/View/Default.pm
index 2c65caa..b1d4840 100644
--- a/lib/Gitalist/View/Default.pm
+++ b/lib/Gitalist/View/Default.pm
@@ -1,37 +1,47 @@
 package Gitalist::View::Default;
 use Moose;
-use Gitalist; # ->path_to
+use Moose::Autobox;
 use namespace::autoclean;
 
 extends 'Catalyst::View::TT';
-with 'Catalyst::View::ContentNegotiation::XHTML';
+with 'Catalyst::View::Component::SubInclude';
 
 use Template::Plugin::Cycle;
 
+__PACKAGE__->config(
+  TEMPLATE_EXTENSION => '.tt2',
+  WRAPPER            => 'wrapper.tt2',
+  subinclude_plugin => 'SubRequest',
+  render_die => 1,
+);
+
+use Template::Stash;
+
+# define list method to flatten arrayrefs
+$Template::Stash::LIST_OPS->{ to_path } = sub {
+    my $path = join('%2F', shift->flatten, @_);
+    $path =~ s{/}{%2F}g;
+    return $path;
+};
+
+__PACKAGE__->meta->make_immutable(inline_constructor => 0);
+
+__END__
+
 =head1 NAME
 
-Gitalist::View::Default - Catalyst View
+Gitalist::View::Default - HTML View
 
 =head1 DESCRIPTION
 
-Catalyst View.
+HTML View.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Dan Brook
+See L<Gitalist> for authors.
 
 =head1 LICENSE
 
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+See L<Gitalist> for the license.
 
 =cut
-
-__PACKAGE__->config(
-	TEMPLATE_EXTENSION => '.tt2',
-	# Set the location for TT files
-	INCLUDE_PATH       => [ Gitalist->path_to( 'templates' ) ],
-	WRAPPER            => 'default.tt2',
-);
-
-__PACKAGE__->meta->make_immutable(inline_constructor => 0);