lib/Frey/HTML.pm

package Frey::HTML;

use strict;
use warnings;

use Time::HiRes qw/time/;
use Data::Dump qw/dump/;
use Carp qw/confess carp/;

#use Template::Declare;
use base qw/Template::Declare/;
use Template::Declare::Tags; # defaults to 'HTML'

=head1 NAME

Frey::HTML - generate html pages

=head2 METHODS

=cut

# FIXME

our @view_classes = qw(
        Frey::View
        Strix::View
);

warn "Using view classes ", dump( @view_classes );

foreach ( @view_classes ) {
        my $path = $_;
        $path =~ s!::!/!g;
        $path .= '.pm';
        require $path or warn "Can't require $_ from $path: $!";
        # this will import templates as fully qualified paths
        import_templates $_ under "/$_/";
}

warn "available templates = ",dump( Template::Declare->templates );

our @javascript;
our $debug = 0;

Template::Declare->init( roots => \@view_classes, around_template => sub {
        my ($orig, $path, $args, $code) = @_;
        my $from = (caller(1))[3];
        my $package = __PACKAGE__;
        if ( $from !~ m/$package/ ) {
                warn "SKIP around_template for $path from $from\n";
                return $orig->();
        } else {
                warn "WRAP around_temolate for $path from $from\n";
        }

        my $t = time;
        html {
                head {
                        title { $path }
                        link {
                                { rel is 'stylesheet' }
                                { href is '/static/app.css' }
                                { type is 'text/css' }
                                { media is 'screen' }
                        };
                        foreach my $js ( @javascript ) {
                                script { 
                                        { type is 'text/javascript' }
                                        { src is "/$js" }
                                }
                        };
                }
                body {
                        $orig->();
                }
        };
        warn "TEMPLATE $path ",dump($args),sprintf(" in %.4fs\n",time - $t) if $debug;
});

=head2 page

Wrap template into html page

  Frey::HTML->page( 'template_name', $req, $args );

=cut

sub page {
        my ( $self, $page, $req, $args ) = @_;
        warn "## buffer_stack ",dump( Template::Declare->buffer_stack );
        Template::Declare->buffer->clear; # XXX we need to manually do this!
        warn "## page $page ",dump($args),"\n";
        my $out = eval { Template::Declare->show( $page, $req, $args ) };
        if ( $@ ) {
                carp "ERROR: $@";
                $out = Template::Declare->show( 'error', $req, "page $page " . dump($args) . ": $@" );
        }
        return $out;
}

=head2 add_javascript

Add javascript to current page

  Frey::HTML->add_javascript( 'static/javascript.js' );

=cut

sub add_javascript {
        my $self = shift;
        my $js = shift or confess "no JavaScript path";
#       return unless -e $js; # FIXME
        warn "Added javascript $js\n";
        push @javascript, $js;
}

1;
1	package Frey::HTML;
2
3	use strict;
4	use warnings;
5
6	use Time::HiRes qw/time/;
7	use Data::Dump qw/dump/;
8	use Carp qw/confess carp/;
9
10	#use Template::Declare;
11	use base qw/Template::Declare/;
12	use Template::Declare::Tags; # defaults to 'HTML'
13
14	=head1 NAME
15
16	Frey::HTML - generate html pages
17
18	=head2 METHODS
19
20	=cut
21
22	# FIXME
23
24	our @view_classes = qw(
25	Frey::View
26	Strix::View
27	);
28
29	warn "Using view classes ", dump( @view_classes );
30
31	foreach ( @view_classes ) {
32	my $path = $_;
33	$path =~ s!::!/!g;
34	$path .= '.pm';
35	require $path or warn "Can't require $_ from $path: $!";
36	# this will import templates as fully qualified paths
37	import_templates $_ under "/$_/";
38	}
39
40	warn "available templates = ",dump( Template::Declare->templates );
41
42	our @javascript;
43	our $debug = 0;
44
45	Template::Declare->init( roots => \@view_classes, around_template => sub {
46	my ($orig, $path, $args, $code) = @_;
47	my $from = (caller(1))[3];
48	my $package = __PACKAGE__;
49	if ( $from !~ m/$package/ ) {
50	warn "SKIP around_template for $path from $from\n";
51	return $orig->();
52	} else {
53	warn "WRAP around_temolate for $path from $from\n";
54	}
55
56	my $t = time;
57	html {
58	head {
59	title { $path }
60	link {
61	{ rel is 'stylesheet' }
62	{ href is '/static/app.css' }
63	{ type is 'text/css' }
64	{ media is 'screen' }
65	};
66	foreach my $js ( @javascript ) {
67	script {
68	{ type is 'text/javascript' }
69	{ src is "/$js" }
70	}
71	};
72	}
73	body {
74	$orig->();
75	}
76	};
77	warn "TEMPLATE $path ",dump($args),sprintf(" in %.4fs\n",time - $t) if $debug;
78	});
79
80	=head2 page
81
82	Wrap template into html page
83
84	Frey::HTML->page( 'template_name', $req, $args );
85
86	=cut
87
88	sub page {
89	my ( $self, $page, $req, $args ) = @_;
90	warn "## buffer_stack ",dump( Template::Declare->buffer_stack );
91	Template::Declare->buffer->clear; # XXX we need to manually do this!
92	warn "## page $page ",dump($args),"\n";
93	my $out = eval { Template::Declare->show( $page, $req, $args ) };
94	if ( $@ ) {
95	carp "ERROR: $@";
96	$out = Template::Declare->show( 'error', $req, "page $page " . dump($args) . ": $@" );
97	}
98	return $out;
99	}
100
101	=head2 add_javascript
102
103	Add javascript to current page
104
105	Frey::HTML->add_javascript( 'static/javascript.js' );
106
107	=cut
108
109	sub add_javascript {
110	my $self = shift;
111	my $js = shift or confess "no JavaScript path";
112	# return unless -e $js; # FIXME
113	warn "Added javascript $js\n";
114	push @javascript, $js;
115	}
116
117	1;