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/;

=head1 NAME

Frey::HTML - generate html pages

=head2 METHODS

=cut

# FIXME

our @view_classes = qw(
        Frey::View
        Frey::REST
        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: $!";
}

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

our @javascript;
our $debug = 0;

use Template::Declare;
use Template::Declare::Tags; # defaults to 'HTML'
Template::Declare->init( roots => \@view_classes, around_template => sub {
        my ($orig, $path, $args, $code) = @_;
        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 = shift;
        warn "## page $_[0]\n";
        my $page = eval { Template::Declare->show( @_ ) };
        if ( $@ ) {
                carp "ERROR: $@";
                $page = Template::Declare->show( 'error', $@ );
        }
        return $page;
}

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