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	package Perly::View;
2
3	use strict;
4	use warnings;
5
6	use Jifty::View::Declare -base;
7
8	template '/' => page {
9	h1 { _("Available code") }
10	div { show 'code_list' }
11	};
12
13	template '/edit' => page {
14	h1 { _("Enter your code") }
15	div { show 'code_editor' }
16	};
17
18	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	$code->name,
27	},
28	small { length( $code->source ), ' bytes ', $code->created_on },
29	pre { $code->source },
30	}
31	}
32	}
33	};
34
35	private template 'code_editor' => sub {
36	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	form {
47	my $action = new_action( class => $op . 'Code', arguments => { id => $id, source => $content }, );
48	render_param( $action => 'source', cols => 80, rows => 25, language => 'perl', render_as => 'Jifty::Plugin::CodePress::Textarea' );
49	#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
50	form_submit(
51	label => _($op),
52	onclick => [
53	{ beforeclick => "CodePress.beforeSubmit();" },
54	],
55	);
56	}
57	};
58
59	template '/upload' => page {
60	h1 { _("Upload new file") },
61	form {
62	my $action = new_action( class => 'Upload' );
63	render_action( $action => [ 'content', 'file', 'format' ] );
64	form_submit(
65	label => _('Upload'),
66	);
67	}
68	};
69
70	1;