X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FWidget.pm;h=3a9bc5c9ed2a5ba14501090560eb327c8df56378;hb=8909345a99d2a873345a3e873b07f3bff8e42c7e;hp=a0b9380652bacd749542702e1934bddd4653fbc2;hpb=b8faba6943a2e10429c8b52b556561934b05665b;p=catagits%2FReaction.git

diff --git a/lib/Reaction/UI/Widget.pm b/lib/Reaction/UI/Widget.pm
index a0b9380..3a9bc5c 100644
--- a/lib/Reaction/UI/Widget.pm
+++ b/lib/Reaction/UI/Widget.pm
@@ -3,23 +3,132 @@ package Reaction::UI::Widget;
 use Reaction::Class;
 use aliased 'Reaction::UI::ViewPort';
 use aliased 'Reaction::UI::View';
+use aliased 'Reaction::UI::LayoutSet';
 
 class Widget which {
 
-  has 'viewport' => (isa => ViewPort, is => 'ro'); # required?
+  sub DEBUG_FRAGMENTS () { $ENV{REACTION_UI_WIDGET_DEBUG_FRAGMENTS} }
+  sub DEBUG_LAYOUTS () { $ENV{REACTION_UI_WIDGET_DEBUG_LAYOUTS} }
+
   has 'view' => (isa => View, is => 'ro', required => 1);
+  has 'layout_set' => (isa => LayoutSet, is => 'ro', required => 1);
+  has 'fragment_names' => (is => 'ro', lazy_build => 1);
+  has 'basic_layout_args' => (is => 'ro', lazy_build => 1);
+
+  implements '_build_fragment_names' => as {
+    my ($self) = shift;
+    return [
+      map { /^_fragment_(.*)/; $1; }
+      grep { /^_fragment_/ }
+      map { $_->{name} }
+      $self->meta->compute_all_applicable_methods
+    ];
+  };
 
   implements 'render' => as {
-    my ($self, $rctx) = @_;
-    my $args = { self => $self };
-    $args->{viewport} = $self->viewport if $self->has_viewport;
-    $self->render_widget($rctx, $args);
+    my ($self, $fragment_name, $rctx, $passed_args) = @_;
+    confess "\$passed_args not hashref" unless ref($passed_args) eq 'HASH';
+    if (DEBUG_FRAGMENTS) {
+      my $vp = $passed_args->{viewport};
+      $self->view->app->log->debug(
+        "Rendering fragment ${fragment_name} for ".ref($self)
+        ." for VP ${vp} at ".$vp->location
+      );
+    }
+    my $args = { self => $self, %$passed_args };
+    my $new_args = { %$args };
+    my $render_tree = $self->_render_dispatch_order(
+                        $fragment_name, $args, $new_args
+                      );
+    $rctx->dispatch($render_tree, $new_args);
   };
 
-  implements 'render_viewport' => as {
-    my ($self, $rctx, $args) = @_;
+  implements '_method_for_fragment_name' => as {
+    my ($self, $fragment_name) = @_;
+    return $self->can("_fragment_${fragment_name}");
+  };
+
+  implements '_render_dispatch_order' => as {
+    my ($self, $fragment_name, $args, $new_args) = @_;
+
+    my @render_stack = (my $render_deep = (my $render_curr = []));
+    my @layout_order = $self->layout_set->widget_order_for($fragment_name);
+
+    if (my $f_meth = $self->_method_for_fragment_name($fragment_name)) {
+      my @wclass_stack;
+      my $do_render = sub {
+        my $package = shift;
+        if (@layout_order) {
+          while ($package eq $layout_order[0][0]
+                 || $layout_order[0][0]->isa($package)) {
+            my $new_curr = [];
+            my @l = @{shift(@layout_order)};
+            if (DEBUG_LAYOUTS) {
+              $self->view->app->log->debug(
+                "Layout ${fragment_name} in ${\$l[1]->name} from ${\$l[1]->source_file}"
+              );
+            }
+            push(@$render_curr, [ -layout, $l[1], $fragment_name, $new_curr ]);
+            push(@render_stack, $new_curr);
+            push(@wclass_stack, $l[0]);
+            $render_deep = $render_curr = $new_curr;
+            last unless @layout_order;
+          }
+        }
+        if (@wclass_stack) {
+          while ($package ne $wclass_stack[-1]
+                 && $package->isa($wclass_stack[-1])) {
+            pop(@wclass_stack);
+            $render_curr = pop(@render_stack);
+          }
+        }
+        push(@{$render_curr}, [ -render, @_ ]);
+      };
+      $self->$f_meth($do_render, $args, $new_args);
+    }
+    # if we had no fragment method or if we still have layouts left
+    if (@layout_order) {
+      while (my $l = shift(@layout_order)) {
+        if (DEBUG_LAYOUTS) {
+          $self->view->app->log->debug(
+            "Layout ${fragment_name} in ${\$l->[1]->name} from ${\$l->[1]->source_file}"
+          );
+        }
+        push(@$render_deep, [
+          -layout => $l->[1], $fragment_name, ($render_deep = [])
+        ]);
+      }
+    }
+
+    return $render_stack[0];
+  };
+  
+  implements '_build_basic_layout_args' => as {
+    my ($self) = @_;
+    my $args;
+    foreach my $name (@{$self->fragment_names},
+                      @{$self->layout_set->layout_names}) {
+      $args->{$name} ||= sub { $self->render($name, @_); };
+    }
+    return $args;
+  };
+
+  implements '_fragment_viewport' => as {
+    my ($self, $do_render, $args, $new_args) = @_;
     my $vp = $args->{'_'};
-    $self->view->render_viewport($rctx, $vp);
+    my ($widget, $merge_args) = $self->view->render_viewport_args($vp);
+    $merge_args->{outer} = { %$new_args };
+    delete @{$new_args}{keys %$new_args}; # fresh start
+    @{$new_args}{keys %$merge_args} = values %$merge_args;
+    $do_render->(Widget, $widget, 'widget');
+  };
+
+  implements '_fragment_widget' => as {
+    my ($self, $do_render, $args, $new_args) = @_;
+    my $merge = $self->basic_layout_args;
+#warn "Merge: ".join(', ', keys %$merge)." into: ".join(', ', keys %$new_args);
+    delete @{$merge}{keys %$new_args}; # nuke 'self' and 'viewport'
+    @{$new_args}{keys %$merge} = values %$merge;
   };
 
 };