lib/Perly/View.pm

package Perly::View;

use strict;
use warnings;

use Jifty::View::Declare -base;

template '/' => page {
        h1 { _("Available code") }
        div { show 'code_list' }
};

template '/edit' => page {
        h1 { _("Enter your code") }
        div { show 'code_editor' }
};

private template 'code_list' => sub {
        ul {
                my $coll = Perly::Model::CodeCollection->new();
                $coll->unlimit;
                while ( my $code = $coll->next ) {
                        li {
                                a {
                                        attr { href => '/edit?id=' . $code->id, },
                                        length( $code->source ), ' bytes'
                                }
                                pre { $code->source },
                        }
                }
        }
};

private template 'code_editor' => sub {
        my $content;
        my $op = 'Create';
        my $id;
        if ( $id = get 'id' ) {
                my $code = Perly::Model::Code->new();
                $code->load( $id ) or die "can't load $id";
                $content = $code->source;
                warn "loaded ", length( $content ), " bytes";
                $op = 'Update';
        }
        form {
                my $action = new_action( class => $op . 'Code', arguments => { id => $id, source => $content }, );
                render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => 'Jifty::Plugin::CodePress::Textarea' );
                #render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
                form_submit(
                        label => _($op),
                        onclick => [
                                { beforeclick => "CodePress.beforeSubmit();" },
                        ],
                );
        }
};

template '/upload' => page {
        h1 { _("Upload new file") },
        form {
                my $action = new_action( class => 'Upload' );
                render_action( $action => [ 'content', 'file', 'format' ] );
                form_submit(
                        label => _('Upload'),
                );
        }
};

1;
1	dpavlin	3	package Perly::View;
2
3			use strict;
4			use warnings;
5
6			use Jifty::View::Declare -base;
7
8			template '/' => page {
9	dpavlin	11	h1 { _("Available code") }
10			div { show 'code_list' }
11			};
12
13			template '/edit' => page {
14	dpavlin	3	h1 { _("Enter your code") }
15			div { show 'code_editor' }
16			};
17
18	dpavlin	11	private template 'code_list' => sub {
19			ul {
20			my $coll = Perly::Model::CodeCollection->new();
21			$coll->unlimit;
22			while ( my $code = $coll->next ) {
23			li {
24			a {
25			attr { href => '/edit?id=' . $code->id, },
26			length( $code->source ), ' bytes'
27			}
28			pre { $code->source },
29			}
30			}
31			}
32			};
33
34	dpavlin	3	private template 'code_editor' => sub {
35	dpavlin	10	my $content;
36			my $op = 'Create';
37			my $id;
38			if ( $id = get 'id' ) {
39			my $code = Perly::Model::Code->new();
40			$code->load( $id ) or die "can't load $id";
41			$content = $code->source;
42			warn "loaded ", length( $content ), " bytes";
43			$op = 'Update';
44			}
45	dpavlin	3	form {
46	dpavlin	10	my $action = new_action( class => $op . 'Code', arguments => { id => $id, source => $content }, );
47	dpavlin	6	render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => 'Jifty::Plugin::CodePress::Textarea' );
48	dpavlin	3	#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
49	dpavlin	4	form_submit(
50	dpavlin	10	label => _($op),
51	dpavlin	4	onclick => [
52			{ beforeclick => "CodePress.beforeSubmit();" },
53			],
54			);
55	dpavlin	3	}
56			};
57
58	dpavlin	8	template '/upload' => page {
59			h1 { _("Upload new file") },
60			form {
61			my $action = new_action( class => 'Upload' );
62	dpavlin	9	render_action( $action => [ 'content', 'file', 'format' ] );
63	dpavlin	8	form_submit(
64			label => _('Upload'),
65			);
66			}
67			};
68
69	dpavlin	3	1;