X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FZoom%2FFilterBuilder.pm;h=5c8943a34dc8fa9ae3ddf69e5ef4c877a34487de;hb=bf07288fe4550dffb8aa7f9a887fa7b00701e104;hp=45b57f2c888073f17484343cd44574be83a76f7a;hpb=5cac799ef22c33ef914b2cf9ba1c66a2a1b403e1;p=catagits%2FHTML-Zoom.git diff --git a/lib/HTML/Zoom/FilterBuilder.pm b/lib/HTML/Zoom/FilterBuilder.pm index 45b57f2..5c8943a 100644 --- a/lib/HTML/Zoom/FilterBuilder.pm +++ b/lib/HTML/Zoom/FilterBuilder.pm @@ -24,6 +24,8 @@ sub _flatten_stream_of_streams { shift->_zconfig->stream_utils->flatten_stream_of_streams(@_) } +sub set_attr { shift->set_attribute(@_); } + sub set_attribute { my $self = shift; my ($name, $value) = $self->_parse_attribute_args(@_); @@ -51,6 +53,14 @@ sub add_attribute { die "renamed to add_to_attribute. killing this entirely for 1.0"; } +sub add_class { shift->add_to_attribute('class',@_) } + +sub remove_class { shift->remove_attribute('class',@_) } + +sub set_class { shift->set_attribute('class',@_) } + +sub set_id { shift->set_attribute('id',@_) } + sub add_to_attribute { my $self = shift; my ($name, $value) = $self->_parse_attribute_args(@_); @@ -187,7 +197,21 @@ sub collect_content { sub add_before { my ($self, $events) = @_; - sub { return $self->_stream_from_array(@$events, $_[0]) }; + my $coll_proto = $self->collect({ passthrough => 1 }); + sub { + my $emit = $self->_stream_from_proto($events); + my $coll = &$coll_proto; + if($coll) { + if(ref $coll eq 'ARRAY') { + my $firstbit = $self->_stream_from_proto([$coll->[0]]); + return $self->_stream_concat($emit, $firstbit, $coll->[1]); + } elsif(ref $coll eq 'HASH') { + return [$emit, $coll]; + } else { + return $self->_stream_concat($emit, $coll); + } + } else { return $emit } + } } sub add_after { @@ -195,7 +219,7 @@ sub add_after { my $coll_proto = $self->collect({ passthrough => 1 }); sub { my ($evt) = @_; - my $emit = $self->_stream_from_array(@$events); + my $emit = $self->_stream_from_proto($events); my $coll = &$coll_proto; return ref($coll) eq 'HASH' # single event, no collect ? [ $coll, $emit ] @@ -205,15 +229,18 @@ sub add_after { sub prepend_content { my ($self, $events) = @_; + my $coll_proto = $self->collect({ passthrough => 1, content => 1 }); sub { my ($evt) = @_; + my $emit = $self->_stream_from_proto($events); if ($evt->{is_in_place_close}) { $evt = { %$evt }; delete @{$evt}{qw(raw is_in_place_close)}; return [ $evt, $self->_stream_from_array( - @$events, { type => 'CLOSE', name => $evt->{name} } + $emit->next, { type => 'CLOSE', name => $evt->{name} } ) ]; } - return $self->_stream_from_array($evt, @$events); + my $coll = &$coll_proto; + return [ $coll->[0], $self->_stream_concat($emit, $coll->[1]) ]; }; } @@ -222,14 +249,14 @@ sub append_content { my $coll_proto = $self->collect({ passthrough => 1, content => 1 }); sub { my ($evt) = @_; + my $emit = $self->_stream_from_proto($events); if ($evt->{is_in_place_close}) { $evt = { %$evt }; delete @{$evt}{qw(raw is_in_place_close)}; return [ $evt, $self->_stream_from_array( - @$events, { type => 'CLOSE', name => $evt->{name} } + $emit->next, { type => 'CLOSE', name => $evt->{name} } ) ]; } my $coll = &$coll_proto; - my $emit = $self->_stream_from_array(@$events); return [ $coll->[0], $self->_stream_concat($coll->[1], $emit) ]; }; } @@ -287,7 +314,7 @@ sub repeat { if ($repeat_between) { $options->{filter} = sub { $_->select($repeat_between)->collect({ into => \@between }) - }; + } } my $repeater = sub { my $s = $self->_stream_from_proto($repeat_for); @@ -433,7 +460,7 @@ Sets an attribute of a given name to a given value for all matching selections. ->select('p') ->set_attribute(class=>'paragraph') ->select('div') - ->set_attribute(name=>'class', value=>'divider'); + ->set_attribute({name=>'class', value=>'divider'}); Overrides existing values, if such exist. When multiple L @@ -443,13 +470,23 @@ call wins. =head2 add_to_attribute Adds a value to an existing attribute, or creates one if the attribute does not -yet exist. +yet exist. You may call this method with either an Array or HashRef of Args. + +Here's the 'long form' HashRef: + + $html_zoom + ->select('p') + ->set_attribute(class=>'paragraph') + ->then + ->add_to_attribute({name=>'class', value=>'divider'}); + +And the exact same effect using the 'short form' Array: $html_zoom ->select('p') ->set_attribute(class=>'paragraph') ->then - ->add_to_attribute(name=>'class', value=>'divider'); + ->add_to_attribute(class=>'divider'); Attributes with more than one value will have a dividing space. @@ -609,11 +646,31 @@ You can add zoom events directly =head2 prepend_content - TBD +Similar to add_before, but adds the content to the match. + + HTML::Zoom + ->from_html(q[

World

]) + ->select('p') + ->prepend_content("Hello ") + ->to_html + + ##

Hello World

+ +Acceptable values are strings, scalar refs and L objects =head2 append_content - TBD +Similar to add_after, but adds the content to the match. + + HTML::Zoom + ->from_html(q[

Hello

]) + ->select('p') + ->prepend_content("World") + ->to_html + + ##

Hello World

+ +Acceptable values are strings, scalar refs and L objects =head2 replace @@ -632,34 +689,12 @@ or another L object. =head2 repeat - $zoom->select('.item')->repeat(sub { - if (my $row = $db_thing->next) { - return sub { $_->select('.item-name')->replace_content($row->name) } - } else { - return - } - }, { flush_before => 1 }); - -Run I<$repeat_for>, which should be iterator (code reference) returning -subroutines, reference to array of subroutines, or other zoom-able object -consisting of transformations. Those subroutines would be run with $_ -local-ized to result of L (of collected elements), and with -said result passed as parameter to subroutine. +For a given selection, repeat over transformations, typically for the purposes +of populating lists. Takes either an array of anonymous subroutines or a zoom- +able object consisting of transformation. -You might want to use iterator when you don't have all elements upfront - - $zoom = $zoom->select('.contents')->repeat(sub { - while (my $line = $fh->getline) { - return sub { - $_->select('.lno')->replace_content($fh->input_line_number) - ->select('.line')->replace_content($line) - } - } - return - }); - -You might want to use array reference if it doesn't matter that all iterations -are pre-generated +Example of array reference style (when it doesn't matter that all iterations are +pre-generated) $zoom->select('table')->repeat([ map { @@ -669,8 +704,27 @@ are pre-generated } } @list ]); + +Subroutines would be run with $_ localized to result of L (of +collected elements), and with said result passed as parameter to subroutine. + +You might want to use CodeStream when you don't have all elements upfront + + $zoom->select('.contents')->repeat(sub { + HTML::Zoom::CodeStream->new({ + code => sub { + while (my $line = $fh->getline) { + return sub { + $_->select('.lno')->replace_content($fh->input_line_number) + ->select('.line')->replace_content($line) + } + } + return + }, + }) + }); -In addition to common options as in L, it also supports +In addition to common options as in L, it also supports: =over