seamstress-discuss Mailing List for HTML::Seamstress

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

I would greatly appreciate it if someone could takeover
HTML::Element::Library.

-- Terrence

Hi M. David,

Thank you for well wishes, a first for me this year!

About the CRLF: I added a function in TestUtils to strip whitespace and
modified t/crunch.t to use it. So hopefully the CR versus CRLF is no longer
an issue

And I changed the use_ok() statement.

I'm surprised people are still interested in my module with the advent of
HTML::Zoom, but feel free to write with any other feedback.

I've uploaded a new version and added some credits to you in the AUTHOR
section.

You have a good year as well!

On Fri, Jan 6, 2012 at 10:28 AM, M. David Moussa Leo Keita <
ma...@gm...> wrote:

> Dear Tbone,
>
> First I would like to wish you an happy new year for 2012 !
>
> I was trying to install your HTML::Steamstress to check it and i encounter
> some caveats in the HTML-Element-Library-5.112170 test suite !
>
> the first was in the test t/crunch.t -> in fact, the problem is some CRLF
> caracters in t/html/crunch/crunch.exp that makes the resulting
> t/html/crunch/crunch.gen differ !
> the second was in the t/prune.t -> in the BEGIN BLOCK, you have to replace
> use_ok('HTML::Element::Prune') with use_ok('HTML::Element::Library') to
> make things work well !
>
> Thank you for your amazing job on CPAN !!
>
> David
>

Matt Trout has developed HTML::Zoom (
http://search.cpan.org/~mstrout/HTML-Zoom-0.009001/ ) which is quite similar
to Seamstress and quite elegant.

There's already a Catalyst view (
http://github.com/cycles/Catalyst-View-HTML-Zoom )

I've recorded it with all the other push-style templating systems (
http://perlmonks.org/?node_id=674225 )

Looks interesting:
http://search.cpan.org/~tomita/Template-Semantic-0.01/lib/Template/Semantic.pm

I'm uploading to CPAN now. It's on github at 
http://github.com/metaperl/html-element-library

=head2 Tree Rewriting Methods

=head3 "de-prepping" HTML

Oftentimes, the HTML to be worked with will have multiple (too many) 
sample rows:

  <OL>
   <LI>bread
   <LI>butter
   <LI>beer
   <LI>bacon
  </OL>

But, before you begin to rewrite the HTML with your model data, you 
typically only want 1 or 2 sample rows.

Thus, you want to "crunch" the multiple sample rows to a specified 
amount. Hence the C<crunch> method:

  $tree->crunch(look_down => [ '_tag' => 'li' ], leave => 2) ;

The C<leave> argument defaults to 1 if not given. The call above would 
"crunch" the above 4 sample rows to:

  <OL>
   <LI>bread
   <LI>butter
  </OL>

2009/12/9 Terrence Brannon <met...@gm...>:

> right on! thanks for taking it over.

Having recently gone to the London Perl Workshop I'm now fired up with
the idea of getting to a stage where I can do some kind of talk on
using Seamstress with Catalyst by next years event and raise some
awareness. I think too many Catalyst users just use TT by rote.

> wow, the new declarative Catalyst/Moose stuff
<http://www.catalystframework.org/calendar/2009/5> is way over my head

Yeah that's far from mainstream I think, and from what I've heard from
core cat developers it does some evil things in the background. Still
I expect they'll go with something like that eventually because they
all seem to loathe the method-attribute syntax.

Joe.

-- 
Gmail is watching you!!!!!!

Please don't publish this email address or use it for anything SPAM
risky. My more public email address is jo...@dr...

joe higton wrote:
> Hi,
>      Just shipped Catalyst::View::Seamstress with some minor tweaks and fixes.
>   
right on! thanks for taking it over.
>     Working on some ideas for a more exciting release using some of
> the new Catalyst/Moose stuff and hopefully some useful helper scripts.
>   
wow, the new declarative Catalyst/Moose stuff 
<http://www.catalystframework.org/calendar/2009/5> is way over my head

For some reason, HTML::Element::Replacer 
<http://search.cpan.org/dist/HTML-Element-Replacer/> is failing on all 
but one platform. I'm going to look into this now.

Hi,
     Just shipped Catalyst::View::Seamstress with some minor tweaks and fixes.

    Working on some ideas for a more exciting release using some of
the new Catalyst/Moose stuff and hopefully some useful helper scripts.

Thanks,
    Joe.

Forwarded conversation
Subject: HTML::Element as_HTML encoding problem
------------------------

From: *Oliver Block* <li...@ol...>
Date: Wed, Oct 14, 2009 at 9:00 PM
To: li...@pe...

Hello everyone,

the following code is used to load a web page from a certain web server
and parse it into an html tree. At the end a variable is assigned the
string representation of that tree.

       use LWP::UserAgent;
       use HTML::TreeBuilder;

       my $ua = LWP::UserAgent->new;
       my $response = $ua->get($form->{'url'});

       my $tree = HTML::TreeBuilder->new();
       $tree->parse($response->content);

# ...
# encoding of content of $tree is ISO-8859-1 at this point
       $template = $tree->as_HTML('<>&');

# encoding of content of $template is UTF-8

Now the following problem arises. The encoding of the content of
$template (UTF-8) is not the same than the content of $tree
(ISO-8859-1). So it is obvious, that as_HTML converts the encoding to UTF-8.

I debugged everything and everythings is fine up to the last line of code of
sub HTML::Element::as_HTML which is:

 return join('', @html, "\n");

This would mean that join seems to modify the encoding of the content.

Any suggestions?

Best Regards,

Oliver Block

----------
From: *Bill Moseley* <mo...@ha...>
Date: Thu, Oct 15, 2009 at 12:55 PM
To: Oliver Block <li...@ol...>
Cc: li...@pe...

I'm not really sure what the problem is, sorry.  But, the terminology above
seems a bit off.

UTF-8 and ISO-8859-1 are encodings (encoded octets) not characters.
Characters are an abstractions.  You should use character's inside Perl and
encoded octets outside.  (Ignore the fact that Perl's internal encoding is
UTF-8 and just pretend they are character abstractions.)

So, in general, I would bring character data into Perl like:

my $characters = $response->decoded_content;

Then you work with $characters as needed.

And then when you want to output you convert back to whatever encoding you
need:

$utf8_octets = encode_utf8( $characters );

send_to_client( $utf8_octets );

For your case you might try $tree->parse( $response->decoded_content );  Or,
if you have raw utf-8 octets that you need to parse I think you can call
$tree->utf8_mode( 1 ) to tell the parser to decode.  But, I'd prefer the
first.

(One thing I'm not clear on is when or if the parsers detect encoding by
looking for a charset in the content.  XML::LibXML will use the <?xml
encoding= from the content, for example.  But I'm not clear if the
HTML::Parser will look at an encoding set in a <meta> tag.)

--
Bill Moseley
mo...@ha...

----------
From: *Terrence Brannon* <sch...@gm...>
Date: Thu, Oct 15, 2009 at 1:15 PM
To: sea...@li...

Terrence Brannon wrote:
>
>
> Anton Berezin wrote:
>>
>>
>> Hrmpf.  Just noticed that it still lists HTML::Elemental in Makefile.PL 
well the CPAN dependencies doesnt show it as listed 
<http://deps.cpantesters.org/?module=HTML::Seamstress;perl=latest>

Anton Berezin wrote:
>
>
> Hrmpf.  Just noticed that it still lists HTML::Elemental in Makefile.PL 
actually the github version does not list it 
<http://github.com/metaperl/html-seamstress/blob/fcbc4b6c26e7d9200ac7790b68155b4af2abbb5b/Makefile.PL>
but I have not made a new CPAN release. I guess I could. Ok consider it 
done.

so you are interested in seamstress? we have a mailing list for it

http://lists.sourceforge.net/lists/listinfo/seamstress-discuss

> and
> in META.yml as a required dependency...
>   
META.yml is listed in MANIFEST... but I dont know what you mean by 
required dependency.
> Cheers,
>
>   
Finally, have you seen SQL::DB 
<http://search.cpan.org/~mlawren/SQL-DB-0.18/lib/SQL/DB/Tutorial.pod>
it is similar to your DBIx::Perlish but is clever in overloading operators

Sourceforge discontinued wikispaces and the Trac wiki they have now I 
dont really like.

So now <http://Seamstress.SF.Net> redirects to 
<http://wiki.github.com/metaperl/html-seamstress>

After looking at some pretty seamstresses <
http://seamstress.sourceforge.net/>
You are redirected to a wiki, which has as its main feature a recent talk
given at the Los Angeles Perl Mongers
<http://seamstress.wiki.sourceforge.net/Talks>.

gary, if you have any slides or links, feel free to link me to them or add
them to the wiki yourself.

2009/7/24 Terrence Brannon <tbr...@in...>:

> thank you. I just uploaded 5.0g to CPAN, fixing that.

Cheers!

Joe.

On Fri, Jul 24, 2009 at 5:15 AM, joe higton <dr...@gm...> wrote:

> Hi,
>    Just had some issues installing HTML::Seamstress on a fresh debian
> (etch) VM using CPAN. The tests failed. I checked back and it was
> seemingly because HTML::Element::Library depends on HTML::FillInForm
> but it isn't listed as a dependency .
>
> Certainly installing HTML::FIllInForm manually then caused everything
> else to install + test seamlessly.

thank you. I just uploaded 5.0g to CPAN, fixing that.

Hi,
    Just had some issues installing HTML::Seamstress on a fresh debian
(etch) VM using CPAN. The tests failed. I checked back and it was
seemingly because HTML::Element::Library depends on HTML::FillInForm
but it isn't listed as a dependency .

Certainly installing HTML::FIllInForm manually then caused everything
else to install + test seamlessly.

Ta,
Joe.

Whatever the final solution is, it will need to require a 'html_file'
attribute and provide a 'html_tree' attribute:

package HTML::File::Index;

use HTML::LOOM;

has_loom => (html_file => "templates/index.html", id => [id => 'name'],
welcome => [id => 'welcome']) ;

my $i = HTML::File::Index->new;

$i->name->replace_content('new_data');

On Tue, Jul 21, 2009 at 3:40 PM, Terrence Brannon <met...@gm...>wrote:

> i was fooling around today and finally got some great help from Shawn Moore
> and Chris Prather in #moose.
>
> I've started fooling around with a way to have accessors for an HTML::Tree
> .... nowhere near CPAN publish level yet
>
> <http://code.google.com/p/cpan-modules/source/browse/tmp/try6.pl>
>
> package Get4;
>
> use LookDown;
> use HTML::TreeBuilder;
>
> has file => (
>     is      => 'rw',
>     default => 'file.html'
> );
>
> has tree => (
>     is         => 'rw',
>     lazy_build => 1
> );
>
>

i was fooling around today and finally got some great help from Shawn Moore
and Chris Prather in #moose.

I've started fooling around with a way to have accessors for an HTML::Tree
.... nowhere near CPAN publish level yet

<http://code.google.com/p/cpan-modules/source/browse/tmp/try6.pl>

package Get4;

use LookDown;
use HTML::TreeBuilder;

has file => (
    is      => 'rw',
    default => 'file.html'
);

has tree => (
    is         => 'rw',
    lazy_build => 1
);

sub _build_tree {
    my ($self) = @_;
    HTML::TreeBuilder->new_from_file( $self->file );
}

has_ld name => [ id => 'name' ] ;

has_ld w =>    [ id => qr/w.lc.me/ ] ;

1;

package main;

my $o = Get4->new;

warn $o->w;

1;

<http://code.google.com/p/cpan-modules/source/browse/tmp/LookDown.pm>

package LookDown;

use Moose ();
use Moose::Exporter;

Moose::Exporter->setup_import_methods (
                       with_caller => [ 'has_ld' ],
                       also        => 'Moose',
                      );
use Data::Dumper;
sub has_ld {
     my ($caller, $name, $look_down) = @_;
     warn Dumper($caller, $name, $look_down);
     Class::MOP::class_of($caller)->add_attribute($name,
                          is => 'ro',
                          lazy => 1,
                          default => sub { warn `date` ;
$_[0]->tree->look_down(@$look_down); }
                         );
}

1;

Matt Burns wrote:
> Dear Mr. Brannon
>
> Hello there, my name is Matt Burns and I work as a software developer at 
> ValueClick.  Mayukh Bose made an excellent suggestion of forwarding this 
> email I sent out, to you. 
Hey Mayukh!

>  An application I have built uses your 
> HTML::Seamstress and other related modules. 
Wow!
>  I must say I quite like 
> Seamstress and am quite greatful to you for putting it together - so thank 
> you - 
my pleasure. It seems to be growing in popularity, slowly but surely
> please be aware I'm probably using it like a retard.  
heh, I recently did a corporate job with Seamstress and had to improve 
it by the minute. Here is a post on easier table rendering - 
http://perlmonks.org/?node_id=768430
and here is one on HTML::FillInForm - http://perlmonks.org/?node_id=768497

> Mayukh said you 
> are most likely still in the area so if you so desire it would be wonderful 
> to have you at the L.A mongers group Andrew Grangaard is trying to get going.  
>   
oh how about that. I'm actually in Columbus, OH. I havent been in Los 
Angeles for about 3 years. I do miss that nice weather. And it is hard 
to get good fresh produce here. I took Cali for granted!!!
> Noel Casim told me to say hello and sends along his best wishes. 
Good ol' Noel :)
>  Some 
> background Andrew Grangaard left VC and is now at the Rubicon Project.  Once 
> again thank you, I enjoy the creativity and original nature of your modules 
> you have generously given to the community.
>   
wow, thanks dude.

Ok, I typed up the tutorial -

http://perlmonks.org/?node_id=768430

Miroslav Pilat wrote:
> Hi Terrence,
>
> i'm a newbie in Perl and I'm trying to create multiple tables on
> webpage using your HTML::Seamstress class.
>
> Would you be so kind and give me some advice, please.
>
> Thanks in advance.
>
> S pozdravem / Best regards
> Miroslav Pilat
> mir...@go...
>   

Ok, I put an example in the new release of HTML::Element::Replacer -
http://devel.cybertechnologyllc.com/~tbrannon/tmp/HTML-Element-Replacer-0.02.tar.gz
It's in the directory HTML-Element-Replacer/ex/tables

I will explain it on perlmonks right now.

Miroslav Pilat wrote:
> Hi Terrence,
>
> i'm a newbie in Perl and I'm trying to create multiple tables on
> webpage using your HTML::Seamstress class.
>
> Would you be so kind and give me some advice, please.
>
> Thanks in advance.
>
> S pozdravem / Best regards
> Miroslav Pilat
> mir...@go...
>   

Miroslav Pilat wrote:
> Hi Terrence,
>   
Hi Miroslav!

> i'm a newbie in Perl and I'm trying to create multiple tables on
> webpage using your HTML::Seamstress class.
>   

OK!
> Would you be so kind and give me some advice, please.
>   
yes... first thing... maybe join the mailing list?  
https://lists.sourceforge.net/lists/listinfo/seamstress-discuss

second thing... tables are very easy to do now... with 
HTML::Element::Replacer... 
<http://search.cpan.org/~tbone/HTML-Element-Replacer-0.01/lib/HTML/Element/Replacer.pod>
 I will cobble up an example now

my co-worker builds tables as plain perl strings and then parses his 
string in to a tree and then does $tree->replace_content... he doesnt do 
it all  in tree fashion.. but I will give a tree example
> Thanks in advance.
>
>   
my pleasure... example coming!

So now we have 4 CPAN offers oriented towards rigorous separation of Perl
and HTML

- HTML::Chunks -
http://search.cpan.org/~mblythe/HTML-Chunks-1.55.1/lib/HTML/Chunks.pm
<http://search.cpan.org/~mblythe/HTML-Chunks-1.55.1/lib/HTML/Chunks.pm>
- HTML::Chunks is very similar to Template::Recall -
http://search.cpan.org/~gilad/Template-Recall-0.15/lib/Template/Recall.pm
- PeTAL - http://search.cpan.org/~bpostle/Petal-2.19/lib/Petal.pm
- and my own Seamstress -
http://search.cpan.org/~tbone/HTML-Seamstress-5.0b/lib/HTML/Seamstress.pod

-- 
Terrence Brannon
(818) 359-0893

I saw this PHP library over the weekend:
http://www.koolphp.net/support/demos/#koolcombobox.firstlook

and have some alpha code here - http://code.google.com/p/html-elemental/

Here's some docs on what I've done so far:

=head1 SYNOPSIS

We have some sample HTML:

 <UL id="beers">
  <li>x</li>
  <li>y</li>
  <li>z</li>
 </UL>

We have some data:

  my @data = qw(schlitz lowenbrau miller);

We create our object:

  my $UL = HTML::Elemental::UL->new(tree => $tree, ld => [id => 'beers'],
preproc => sub { $_[0]->elem->delete_content; }) ;

We populate our list:

  $UL->simple_add($_) for @data;

Render the document

  $tree->as_HTML;

-- 
Terrence Brannon
(818) 359-0893

=head3 Simplifying calls to HTML::FillInForm

Since HTML::FillInForm gets and returns strings, using HTML::Element
instances
becomes tedious:

   1. Seamstress has an HTML tree that it wants the form filled in on
   2. Seamstress converts this tree to a string
   3. FillInForm parses the string into an HTML tree and then fills in the
form
   4. FillInForm converts the HTML tree to a string
   5. Seamstress re-parses the HTML for additional processing

I've filed a bug about this:
L<https://rt.cpan.org/Ticket/Display.html?id=44105>

This function, tree_fillinform,
allows you to pass a tree to fillinform (along with your data structure) and
get back a tree:

   my $new_tree = $html_tree->fillinform($data_structure);

-- 
Terrence Brannon

2005	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov (2)	Dec
2006	Jan (9)	Feb (4)	Mar	Apr (1)	May (1)	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2007	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (4)
2008	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (1)
2009	Jan (10)	Feb (5)	Mar (3)	Apr (1)	May	Jun (4)	Jul (6)	Aug (1)	Sep (2)	Oct (1)	Nov	Dec (3)
2010	Jan (1)	Feb (1)	Mar (1)	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2012	Jan (1)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2013	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug (1)	Sep	Oct	Nov	Dec

seamstress-discuss Mailing List for HTML::Seamstress

seamstress-discuss — Discussion of HTML::Seamstress tree-based templating in Perl