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, },
                                        $code->name,
                                },
                                small { length( $code->source ), ' bytes ', $code->created_on },
                                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	dpavlin	12	$code->name,
27			},
28			small { length( $code->source ), ' bytes ', $code->created_on },
29	dpavlin	11	pre { $code->source },
30			}
31			}
32			}
33			};
34
35	dpavlin	3	private template 'code_editor' => sub {
36	dpavlin	10	my $content;
37			my $op = 'Create';
38			my $id;
39			if ( $id = get 'id' ) {
40			my $code = Perly::Model::Code->new();
41			$code->load( $id ) or die "can't load $id";
42			$content = $code->source;
43			warn "loaded ", length( $content ), " bytes";
44			$op = 'Update';
45			}
46	dpavlin	3	form {
47	dpavlin	10	my $action = new_action( class => $op . 'Code', arguments => { id => $id, source => $content }, );
48	dpavlin	6	render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => 'Jifty::Plugin::CodePress::Textarea' );
49	dpavlin	3	#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
50	dpavlin	4	form_submit(
51	dpavlin	10	label => _($op),
52	dpavlin	4	onclick => [
53			{ beforeclick => "CodePress.beforeSubmit();" },
54			],
55			);
56	dpavlin	3	}
57			};
58
59	dpavlin	8	template '/upload' => page {
60			h1 { _("Upload new file") },
61			form {
62			my $action = new_action( class => 'Upload' );
63	dpavlin	9	render_action( $action => [ 'content', 'file', 'format' ] );
64	dpavlin	8	form_submit(
65			label => _('Upload'),
66			);
67			}
68			};
69
70	dpavlin	3	1;