lib/Perly/View.pm

package Perly::View;

use strict;
use warnings;

use Jifty::View::Declare -base;

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

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			h1 { _("Enter your code") }
10			div { show 'code_editor' }
11			};
12
13			private template 'code_editor' => sub {
14	dpavlin	10	my $content;
15			my $op = 'Create';
16			my $id;
17			if ( $id = get 'id' ) {
18			my $code = Perly::Model::Code->new();
19			$code->load( $id ) or die "can't load $id";
20			$content = $code->source;
21			warn "loaded ", length( $content ), " bytes";
22			$op = 'Update';
23			}
24	dpavlin	3	form {
25	dpavlin	10	my $action = new_action( class => $op . 'Code', arguments => { id => $id, source => $content }, );
26	dpavlin	6	render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => 'Jifty::Plugin::CodePress::Textarea' );
27	dpavlin	3	#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
28	dpavlin	4	form_submit(
29	dpavlin	10	label => _($op),
30	dpavlin	4	onclick => [
31			{ beforeclick => "CodePress.beforeSubmit();" },
32			],
33			);
34	dpavlin	3	}
35			};
36
37	dpavlin	8	template '/upload' => page {
38			h1 { _("Upload new file") },
39			form {
40			my $action = new_action( class => 'Upload' );
41	dpavlin	9	render_action( $action => [ 'content', 'file', 'format' ] );
42	dpavlin	8	form_submit(
43			label => _('Upload'),
44			);
45			}
46			};
47
48	dpavlin	3	1;