root of componentUI renders

[catagits/Reaction.git] / lib / Reaction / UI / RenderingContext / TT.pm

package Reaction::UI::RenderingContext::TT;

use Reaction::Class;
use aliased 'Reaction::UI::RenderingContext';
use aliased 'Template::View';

class TT is RenderingContext, which {

  has 'iter_class' => (
    is => 'ro', required => 1,
    default => sub { 'Reaction::UI::Renderer::TT::Iter'; },
  );

  our $body;

  implements 'dispatch' => as {
    my ($self, $render_tree, $args) = @_;
#warn "-- dispatch start\n";
    local $body = '';
    my %args_copy = %$args;
    foreach my $to_render (@$render_tree) {
      my ($type, @to) = @$to_render;
      if ($type eq '-layout') {
        my ($lset, $fname, $next) = @to;
        local $args_copy{call_next} =
          (@$next
            ? sub { $self->dispatch($next, $args); }
            : '' # no point running internal dispatch if nothing -to- dispatch
          );
        $self->render($lset, $fname, \%args_copy);
      } elsif ($type eq '-render') {
        my ($widget, $fname, $over) = @to;
        #warn "@to";
        if (defined $over) {
          $over->each(sub {
            local $args_copy{_} = $_[0];
            $body .= $widget->render($fname, $self, \%args_copy);
          });
        } else {
          $body .= $widget->render($fname, $self, \%args_copy);
        }
      }
    }
#warn "-- dispatch end, body: ${body}\n-- end body\nbacktrace: ".Carp::longmess()."\n-- end trace\n";
    return $body;
  };
        
  implements 'render' => as {
    my ($self, $lset, $fname, $args) = @_;

    confess "\$body not in scope" unless defined($body);
  
    # foreach non-_ prefixed key in the args
    # build a subref for this key that passes self so the generator has a
    # rendering context when [% key %] is evaluated by TT as $val->()
    # (assuming it's a subref - if not just pass through)
  
    my $tt_args = {
      map {
        my $arg = $args->{$_};
        ($_ => (ref $arg eq 'CODE' ? sub { $arg->($self, $args) } : $arg))
      } grep { !/^_/ } keys %$args
    };
  
    # if there's an _ key that's our current topic (decalarative syntax
    # sees $_ as $_{_}) so build an iterator around it.
  
    # There's possibly a case for making everything an iterator but I think
    # any fragment should only have a single multiple arg
  
    # we also create a 'pos' shortcut to content.pos for brevity
  
    if (my $topic = $args->{_}) {
      my $iter = $self->iter_class->new(
        $topic, $self
      );
      $tt_args->{content} = $iter;
      $tt_args->{pos} = sub { $iter->pos };
    }
    $body .= $lset->tt_view->include($fname, $tt_args);
#warn "rendered ${fname}, body length now ".length($body)."\n";
  };

};
  
package Reaction::UI::Renderer::TT::Iter;

use overload (
  q{""} => 'stringify',
  fallback => 1
);

sub pos { shift->{pos} }

sub new {
  my ($class, $cr, $rctx) = @_;
  bless({ rctx => $rctx, cr => $cr, pos => 0 }, $class);
}

sub next {
  my $self = shift;
  $self->{pos}++;
  my $next = $self->{cr}->();
  return unless $next;
  return sub { $next->($self->{rctx}) };
}

sub all {
  my $self = shift;
  my @all;
  while (my $e = $self->next) {
    push(@all, $e);
  }
  \@all;
}

sub stringify {
  my $self = shift;
  my $res = '';
  foreach my $e (@{$self->all}) {
    $res .= $e->();
  }
  $res;
}

1;