redirect

Author: Fernando Corrêa de Oliveira

README.md

@@ -51,9 +51,7 @@ has Todo @.todos;
 
 method RENDER($_) {
   .ol: {
-    for @!todos -> Todo $todo {
-      .add-child: $todo
-    }
+    .add-children: @!todos;
   }
   .form:
     :endpoint(self.new-todo),
@@ -66,40 +64,55 @@ method RENDER($_) {
 method new-todo(Str :$description!)
 is endpoint{
   :path</bla>,
-  :return(-> | { boilerplate :title("My TODO list"), { .add-child: TodoList.new } })
+  :redirect</>,
 } {
   @!todos.push: Todo.new: :$description;
 }
 ```
 
 ```raku
-# humming-bird-todo.raku
+# examples/App.rakumod
+use TodoList;
+use HTML::Component;
+use HTML::Component::Boilerplate;
+unit class App does HTML::Component;
+
+method RENDER($?) {
+  boilerplate
+    :title("My TODO list"),
+    *.add-child: TodoList.new
+}
+```
+
+```raku
+# examples/humming-bird-todo.raku
 use v6.d;
 
 use Humming-Bird::Core;
 use HTML::Component::Boilerplate;
 use lib "examples";
 use TodoList;
 use Todo;
+use App;
 use HTML::Component::Endpoint;
 
-my $index = boilerplate :title("My TODO list"), { .add-child: TodoList.new }
+my $index = App.new.RENDER;
 my $html = $index.HTML;
 
 get('/', -> $request, $response {
-    $response.html($html);
+    $response.html(App.new.RENDER.HTML);
 });
 
 for HTML::Component::Endpoint.endpoints {
     if .verb.uc eq "GET" {
         get .path, -> $request, $response {
-            $response.html: .run-defined(Any, |$request.query<>)
+            $response.html: .run-defined(Any, |$request.query<>).Str;
+            $response.redirect: $_ with .redirect;
         }
     }
 }
 
 listen(12345);
-
 ```
 
 # DESCRIPTION

examples/App.rakumod

@@ -0,0 +1,10 @@
+use TodoList;
+use HTML::Component;
+use HTML::Component::Boilerplate;
+unit class App does HTML::Component;
+
+method RENDER($?) {
+  boilerplate
+    :title("My TODO list"),
+    *.add-child: TodoList.new
+}

examples/TodoList.rakumod

@@ -12,9 +12,7 @@ has Todo @.todos;
 
 method RENDER($_) {
   .ol: {
-    for @!todos -> Todo $todo {
-      .add-child: $todo
-    }
+    .add-children: @!todos;
   }
   .form:
     :endpoint(self.new-todo),
@@ -27,7 +25,7 @@ method RENDER($_) {
 method new-todo(Str :$description!)
 is endpoint{
   :path</bla>,
-  :return(-> | { boilerplate :title("My TODO list"), { .add-child: TodoList.new } })
+  :redirect</>,
 } {
   @!todos.push: Todo.new: :$description;
 }

examples/humming-bird-todo.raku

@@ -5,19 +5,21 @@ use HTML::Component::Boilerplate;
 use lib "examples";
 use TodoList;
 use Todo;
+use App;
 use HTML::Component::Endpoint;
 
-my $index = boilerplate :title("My TODO list"), { .add-child: TodoList.new }
+my $index = App.new.RENDER;
 my $html = $index.HTML;
 
 get('/', -> $request, $response {
-    $response.html($html);
+    $response.html(App.new.RENDER.HTML);
 });
 
 for HTML::Component::Endpoint.endpoints {
     if .verb.uc eq "GET" {
         get .path, -> $request, $response {
-            $response.html: .run-defined(Any, |$request.query<>)
+            $response.html: .run-defined(Any, |$request.query<>).Str;
+            $response.redirect: $_ with .redirect;
         }
     }
 }

lib/HTML/Component.rakumod

@@ -5,28 +5,8 @@ sub html(|c) is export {
   ::("HTML::Component::Tag::HTML").new: |c;
 }
 
-# sub body(&func, *%_ where { .keys.all ~~ BODY.&all-html-attrs.any }) is export {
-#     my $body = BODY.new: |%_;
-#     $body.&func;
-#     $body
-# }
-
-#class SNIPPET does OnOl does OnBody does OnHTML does OnHead does Node {}
-
-# sub snippet(&func) is export {
-#     #do given func SNIPPET.new { .children.head }
-#     func SNIPPET.new # for now
-# }
-
 method HTML {
   my $*HTML-COMPONENT-RENDERING = True;
   $.RENDER: CALLERS::<self>;
   Empty
 }
-
-# method render-root {
-#     html -> HTML::Component $root { self.RENDER: $root }
-# }
-# method render {
-#     snippet(-> HTML::Components $root { self.RENDER: $root }).RENDER
-# }

lib/HTML/Component/Endpoint.rakumod

@@ -13,6 +13,7 @@ has         $.load-meth = "LOAD";
 has Bool    $.undefined = &!method.signature.params.first.modifier ne ":D";
 has Bool    $.defined   = &!method.signature.params.first.modifier ne ":U";
 has         &.return    = -> :$component, :$method-output { $method-output };
+has         $.redirect;
 
 submethod TWEAK(|) {
   @endpoints.push: self
@@ -48,4 +49,3 @@ multi trait_mod:<is>(Method $method, :%endpoint (Str() :$path!, |)) is export {
     nextsame
   }
 }
-

lib/HTML/Component/Tag/Node.rakumod

@@ -12,6 +12,14 @@ multi method new(&body, *%_) {
     $obj
 }
 
+multi method add-children(+@components) {
+    $.add-child: $_ for @components
+}
+
+multi method add-child(@components) {
+    $.add-child: $_ for @components
+}
+
 multi method add-child(HTML::Component $comp) {
     @!children.push: $comp;
     $comp