my ($tmpl, $lang, %args) = @_;
$lang //= 'en';
my $meat = _render($tmpl, $lang, %args);
- _render('skel', $lang, %args, meat => $meat)
+ my $html = _render('skel', $lang, %args, meat => $meat);
+ if ($tmpl eq 'pb_entry') { # Move sidebar to correct position
+ my $builder = HTML::TreeBuilder->new;
+ $builder->ignore_unknown(0);
+ my $tree = $builder->parse_content($html);
+ $tree->fid('content')->postinsert($tree->fid('sidebar'));
+ $html = $tree->as_HTML(undef, undef, $optional_end_tags)
+ }
+ $html
}
sub render_article {
$tree->as_HTML(undef, undef, $optional_end_tags);
}
-my $logo = read_file 'mclogo.svg';
-$logo =~ y/\n//d;
-$logo =~ s/(\s+)/ /g;
-
sub process_skel {
my ($tree, %args) = @_;
- $tree->fid('logo')->replace_with(HTML::Element::Library::super_literal $logo);
$tree->content_handler(
title => $args{title},
content => literal $args{meat});