rework skin path handling

[catagits/Reaction.git] / lib / Reaction / UI / Widget.pm

diff --git a/lib/Reaction/UI/Widget.pm b/lib/Reaction/UI/Widget.pm
index c27e905..2c7e00c 100644 (file)
--- a/lib/Reaction/UI/Widget.pm
+++ b/lib/Reaction/UI/Widget.pm
@@ -7,21 +7,108 @@ use aliased 'Reaction::UI::LayoutSet';
 
 class Widget which {
 
-  has 'viewport' => (isa => ViewPort, is => 'ro'); # required?
   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';
+#warn "Render: ${fragment_name} for ${self}";
+    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 '_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)};
+            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)) {
+        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 'render_viewport' => as {
-    my ($self, $rctx, $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);
+    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;
   };
 
 };