use Data::Dumper qw/Dumper/;
sub ftime ($) { POSIX::strftime '%c', localtime shift }
-sub literal ($) { HTML::Element::Library::super_literal shift // '' }
+sub literal ($) {
+ my ($html) = @_;
+ return unless $html;
+ my $b = HTML::TreeBuilder->new;
+ $b->ignore_unknown(0);
+ $b->parse($html);
+ HTML::Element::Library::super_literal $b->guts->as_HTML;
+}
sub HTML::Element::edit_href {
my ($self, $sub) = @_;
sub process_skel {
my ($tree, %args) = @_;
- $tree->fid('logo')->replace_with(literal $logo);
+ $tree->fid('logo')->replace_with(HTML::Element::Library::super_literal $logo);
$tree->content_handler(
title => $args{title},
content => literal $args{meat});