lib/Frey/Web.pm

package Frey::Web;
use Moose::Role;

use Continuity::Widget::DomNode;
use Data::Dump qw/dump/;
use Carp qw/confess/;
use File::Slurp;

has 'head' => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub { [ 'static/frey.css' ] },
);

has 'inline_smaller_than' => (
        is => 'rw',
        isa => 'Int',
        default => 10240,
);

sub dom2html {
#       warn "## dom2html ",dump( @_ );
        return Continuity::Widget::DomNode->create( @_ )->to_string;
}

sub _inline_path {
        my ( $self, $path ) = @_;
        -s $path < $self->inline_smaller_than;
}

sub _head_html {
        my $self = shift;
        my $out = '';
        foreach my $path ( @{ $self->head } ) {
                $path =~ s!^/!!;
                if ( $path =~ m/\.js$/ ) {
                        $out .= $self->_inline_path( $path ) ?
                                qq|<!-- $path --><script type="text/javascript">\n| . read_file($path) . qq|\n</script>| :
                                qq|<script type="text/javascript" src="/$path"></script>|;
                } elsif ( $path =~ m/\.css$/ ) {
                        $out .= $self->_inline_path( $path ) ?
                                qq|<!-- $path --><style type="text/css">\n| . read_file( $path ) . qq|\n</style>| :
                                qq|<link type="text/css" rel="stylesheet" href="/$path" media="screen">|;
                } else {
                        confess "don't know how to render $path";
                }
                $out .= "\n";
        }
        return $out;
}

=head2 add_head

  $o->add_head( 'path/to/external.js' );

  my $size = $o->add_head( 'path/to/external.css' );

=cut

sub add_head {
        my ( $self, $path ) = @_;
        return if ! defined $path || $path eq '';
        $path =~ s!^/!!;

        if ( -e $path ) {
                if ( $path =~ m/\.(?:js|css)$/ ) {
                        push @{ $self->head }, $path;
                } else {
                        confess "can't add_head( $path ) it's not js or css";
                }
        } else {
                confess "can't find $path: $!";
        }

        return -s $path;
}

our $reload_counter = 0;

sub page {
        my $self = shift;
        my $a = {@_};

        $reload_counter++;

        my $html = qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|
        . $self->_head_html
        . '<title>' . ( $a->{title} || ref($self) ) . '</title>'
        . ( $a->{head} || '' )
        . '</head><body>'
        . ( $a->{body} || '<!-- no body -->' )
        . qq|<div class="frey-status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>|
        . '</body></html>'
        ;

        warn "## >>> page ",length($html), " bytes\n" if $self->debug;

        return $html;
}

1;
1	dpavlin	100	package Frey::Web;
2			use Moose::Role;
3
4			use Continuity::Widget::DomNode;
5			use Data::Dump qw/dump/;
6	dpavlin	121	use Carp qw/confess/;
7	dpavlin	161	use File::Slurp;
8	dpavlin	100
9	dpavlin	156	has 'head' => (
10	dpavlin	121	is => 'rw',
11			isa => 'ArrayRef[Str]',
12	dpavlin	160	default => sub { [ 'static/frey.css' ] },
13	dpavlin	121	);
14
15	dpavlin	161	has 'inline_smaller_than' => (
16			is => 'rw',
17			isa => 'Int',
18			default => 10240,
19			);
20
21	dpavlin	100	sub dom2html {
22	dpavlin	106	# warn "## dom2html ",dump( @_ );
23	dpavlin	100	return Continuity::Widget::DomNode->create( @_ )->to_string;
24			}
25
26	dpavlin	161	sub _inline_path {
27			my ( $self, $path ) = @_;
28			-s $path < $self->inline_smaller_than;
29			}
30
31	dpavlin	156	sub _head_html {
32			my $self = shift;
33	dpavlin	121	my $out = '';
34	dpavlin	156	foreach my $path ( @{ $self->head } ) {
35	dpavlin	121	$path =~ s!^/!!;
36	dpavlin	156	if ( $path =~ m/\.js$/ ) {
37	dpavlin	161	$out .= $self->_inline_path( $path ) ?
38	dpavlin	163	qq\|<!-- $path --><script type="text/javascript">\n\| . read_file($path) . qq\|\n</script>\| :
39	dpavlin	161	qq\|<script type="text/javascript" src="/$path"></script>\|;
40	dpavlin	156	} elsif ( $path =~ m/\.css$/ ) {
41	dpavlin	161	$out .= $self->_inline_path( $path ) ?
42	dpavlin	163	qq\|<!-- $path --><style type="text/css">\n\| . read_file( $path ) . qq\|\n</style>\| :
43	dpavlin	161	qq\|<link type="text/css" rel="stylesheet" href="/$path" media="screen">\|;
44	dpavlin	156	} else {
45			confess "don't know how to render $path";
46			}
47	dpavlin	163	$out .= "\n";
48	dpavlin	121	}
49			return $out;
50			}
51	dpavlin	100
52	dpavlin	154	=head2 add_head
53
54			$o->add_head( 'path/to/external.js' );
55
56			my $size = $o->add_head( 'path/to/external.css' );
57
58			=cut
59
60			sub add_head {
61			my ( $self, $path ) = @_;
62			return if ! defined $path \|\| $path eq '';
63			$path =~ s!^/!!;
64
65			if ( -e $path ) {
66	dpavlin	156	if ( $path =~ m/\.(?:js\|css)$/ ) {
67			push @{ $self->head }, $path;
68	dpavlin	154	} else {
69			confess "can't add_head( $path ) it's not js or css";
70			}
71			} else {
72			confess "can't find $path: $!";
73			}
74
75			return -s $path;
76			}
77
78	dpavlin	142	our $reload_counter = 0;
79
80	dpavlin	121	sub page {
81	dpavlin	100	my $self = shift;
82	dpavlin	121	my $a = {@_};
83	dpavlin	100
84	dpavlin	142	$reload_counter++;
85
86	dpavlin	121	my $html = qq\|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>\|
87	dpavlin	156	. $self->_head_html
88	dpavlin	121	. '<title>' . ( $a->{title} \|\| ref($self) ) . '</title>'
89			. ( $a->{head} \|\| '' )
90			. '</head><body>'
91			. ( $a->{body} \|\| '<!-- no body -->' )
92	dpavlin	157	. qq\|<div class="frey-status-line"> <a href="/">Frey</a> $Frey::VERSION <a href="?reload=$reload_counter">reload</a> </div>\|
93	dpavlin	121	. '</body></html>'
94			;
95	dpavlin	100
96	dpavlin	121	warn "## >>> page ",length($html), " bytes\n" if $self->debug;
97	dpavlin	100
98	dpavlin	121	return $html;
99	dpavlin	100	}
100
101			1;