use Reaction::UI::WidgetClass;
-class ListView is 'Reaction::UI::Widget::GridView', which {
- widget renders [ qw/pager header body footer actions/,
- {
- pager => sub{ $_{viewport}->pager },
- object_action_count => sub{ $_{viewport}->object_action_count },
- #^^ it's ugly, i know, but i gotsto
- }
- ];
-
- pager renders
- [ qw/first_page previous_page current_page next_page last_page page_list/,
- {
- first_page => sub{ $_{pager}->first_page },
- previous_page => sub{ $_{pager}->previous_page },
- current_page => sub{ $_{pager}->current_page },
- next_page => sub{ $_{pager}->next_page },
- last_page => sub{ $_{pager}->last_page },
- page_list => sub{ [$_{pager}->first_page .. $_{pager}->last_page] },
- }
- ];
-
- first_page renders [ string{ "First" } ],
- { uri => sub{ $_{self}->connect_uri( {page => $_{first_page} } ) } };
-
- previous_page renders [ string{ "Previous" } ],
- { uri => sub{ $_{self}->connect_uri( {page => $_{previous_page} } ) } };
-
- current_page renders [ string{ "Current" } ],
- { uri => sub{ $_{self}->connect_uri( {page => $_{current_page} } ) } };
-
- next_page renders [ string{ "Next" } ],
- { uri => sub{ $_{self}->connect_uri( {page => $_{next_page} } ) } };
-
- last_page renders [ string{ "Last" } ],
- { uri => sub{ $_{self}->connect_uri( {page => $_{last_page} } ) } };
-
- page_list renders [ page over $_{page_list} ];
- page renders [ string{ $_ } ],
- { uri => sub{ $_{self}->connect_uri( {page => $_ } ) } };
-
- actions renders [ action over func(viewport => 'actions') ];
- action renders [ 'viewport' ];
-
- header_cell renders [ string { $_{labels}->{$_} } ],
- { uri => sub{
- my $ev = {order_by => $_, order_by_desc => $_{viewport}->order_by_desc ? 0 : 1 };
- return $_{self}->connect_uri($ev);
- }
- };
+class ListView is 'Reaction::UI::Widget::Collection::Grid', which {
+
+ after fragment widget {
+ arg pager_obj => $_{viewport}->pager;
+ };
+
+ implements fragment actions {
+ render action => over $_{viewport}->actions;
+ };
- footer_cell renders [ string { $_{labels}->{$_} } ],
- { uri => sub{
- my $ev = {order_by => $_, order_by_desc => $_{viewport}->order_by_desc ? 0 : 1 };
- return $_{self}->connect_uri($ev);
- }
+ implements fragment action {
+ render 'viewport';
+ };
+
+ after fragment header_cells {
+ if ($_{viewport}->object_action_count) {
+ render 'header_action_cell';
+ }
+ };
+
+ around fragment header_cell {
+ arg order_uri => event_uri {
+ order_by => $_,
+ order_by_desc => ((($_{viewport}->order_by||'') ne $_
+ || $_{viewport}->order_by_desc) ? 0 : 1)
};
+ call_next;
+ };
+
+ implements fragment header_action_cell {
+ arg col_count => $_{viewport}->object_action_count;
+ };
+
+ implements fragment page_list {
+ render numbered_page_fragment
+ => over [ $_{pager_obj}->first_page .. $_{pager_obj}->last_page ];
+ };
+
+ implements fragment numbered_page_fragment {
+ arg page_uri => event_uri { page => $_ };
+ arg page_number => $_;
+ if ($_{pager_obj}->current_page == $_) {
+ render 'numbered_page_this_page';
+ } else {
+ render 'numbered_page';
+ }
+ };
+
+ implements fragment first_page {
+ arg page_uri => event_uri { page => $_{pager_obj}->first_page };
+ arg page_name => 'First';
+ render 'named_page';
+ };
+
+ implements fragment last_page {
+ arg page_uri => event_uri { page => $_{pager_obj}->last_page };
+ arg page_name => 'Last';
+ render 'named_page';
+ };
+
+ implements fragment next_page {
+ arg page_name => 'Next';
+ if (my $page = $_{pager_obj}->next_page) {
+ arg page_uri => event_uri { page => $page };
+ render 'named_page';
+ } else {
+ render 'named_page_no_page';
+ }
+ };
- #this needs to be cleaned up and moved out
- implements connect_uri => as{
- my ($self, $events) = @_;
- my $vp = $self->viewport;
- my $ctx = $self->viewport->ctx;
- my %args = map{ $vp->event_id_for($_) => $events->{$_} } keys %$events;
- return $ctx->req->uri_with(\%args);
+ implements fragment previous_page {
+ arg page_name => 'Previous';
+ if (my $page = $_{pager_obj}->previous_page) {
+ arg page_uri => event_uri { page => $page };
+ render 'named_page';
+ } else {
+ render 'named_page_no_page';
+ }
};
};
1;
+
+__END__;
+
+=head1 NAME
+
+Reaction::UI::Widget::ListView
+
+=head1 DESCRIPTION
+
+This class is a subclass of L<Reaction::UI::ViewPort::Collection::Grid>
+
+=head1 FRAGMENTS
+
+=head2 widget
+
+Additional arguments available:
+
+=over 4
+
+=item B<pager_obj> - The C<pager> object of the viewport
+
+=back
+
+=head2 actions
+
+Render the C<action> fragment for every action in the viewport.
+
+=head2 action
+
+Renders the C<action> viewport passed
+
+=head2 header_cells
+
+Adds a modifier to render the actions column after the data columns
+
+=head2 header_cell
+
+Modify the header_cell fragment to add support for ordering
+
+Additional arguments available:
+
+=over 4
+
+=item B<order_uri> - A URI to the collection view which will order the members
+using this field. Will toggle ascending / descending order.
+
+=back
+
+=head2 header_action_cell
+
+Additional arguments available:
+
+=over 4
+
+=item B<col_count> - Column width to span
+
+=back
+
+=head2 page_list
+
+Will sequentially render a C<numbered_page_fragment> for every page available in
+ the pager object
+
+=head2 numbered_page_fragment
+
+Renders a link pointing to the different pages in the pager object. If the current
+page number is equal to the page number for the page being rendered then the
+template block C<numbered_page_this_page> is called instead of C<numbered_page>
+
+Additional arguments available:
+
+=over 4
+
+=item B<page_uri> - The URI to the page
+
+=item B<page_number> - The number of the page
+
+=back
+
+=head2 first_page
+
+=head2 last_page
+
+=head2 next_page
+
+=head2 previous_page
+
+Render links to the first, last, next and previous pages, respectively. All four will
+render as the C<named_page> template fragment, unless the current page is the last
+and/or first page, in which case the first and last fragments will render as
+C<named_page_no_page>
+
+Additional arguments available:
+
+=over 4
+
+=item B<page_uri> - The URI to the page
+
+=item B<page_number> - The label of the page (First / Last / Next / Previous)
+
+=back
+
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
+
+=cut
projects / catagits/Reaction.git / blobdiff