static route

bin/server.raku

@@ -1,41 +1,21 @@
-#!/usr/bin/env raku
-use v6.d;
-
 use Cro::HTTP::Router;
 use Cro::HTTP::Server;
-#use Cro::HTTP::Log;
-
-my $dynamic-routes-supply = Supply.new;
 
-sub create-router {
-    my @dynamic-routes;
-    $dynamic-routes-supply.tap(-> $route { @dynamic-routes.push($route) });
-
-    route {
-        get -> 'hello' {
-            content 'text/plain', 'Hello, World!';
-        }
-        for @dynamic-routes -> $route {
-            get -> $route.path {
-                content 'text/plain', $route.response;
-        }
+my $application = route {
+    get -> 'greet', $name {
+        content 'text/plain', "Hello, $name!";
+    }
+    get -> {
+        static 'index.html';
     }
 }
-}
-
-my $router = create-router();
 
-my $server = Cro::HTTP::Server.new:
-    :host<localhost>,
-    :port(10000),
-    :$router;
+my Cro::Service $hello = Cro::HTTP::Server.new:
+    :host<localhost>, :port<10000>, :$application;
 
-$server.start;
+$hello.start;
 
-# Example of adding a dynamic route
-$dynamic-routes-supply.emit({ path => 'dynamic', response => 'This is a dynamic route' });
+react whenever signal(SIGINT) { $hello.stop; exit; }
 
-react whenever signal(SIGINT) {
-    $server.stop;
-    exit;
-}
+#raku server.raku
+#lynx localhost:10000/greet/librasteve

stash.rakumod → lib/HTMOO.rakumod

@@ -1,24 +1,19 @@
-use v6.d;
+unit class HTMOO;
 
-#`[I found this lying around (in Cro?) and think it would be good to repurpose for the HTMX world so that we have examples of OO htmx pages]
+#`[
+I found this lying around (in Cro?) and think it would be good to repurpose for the HTMX world so that we have examples of OO htmx pages
 
-my $page = Page.new:
-    Html => Html.new:
-        Head => Head.new:
-            Meta => [
-                Meta.new: m1,
-                    Meta.new: m2
-                ],
-            Title => Title.new:
+This has the superpower of defaults and overrrides
+#]
 
-                class Meta {
-                    has $.name;
-                    has $.content;
+class Meta {
+    has $.name;
+    has $.content;
 
-                    method render {
-                        '<meta name="' ~ $!name ~ '" content="' ~ $!content ~ '">' ~ "\n"
-                    }
-                }
+    method render {
+        '<meta name="' ~ $!name ~ '" content="' ~ $!content ~ '">' ~ "\n"
+    }
+}
 
 class Title {
     has $.title;
@@ -62,10 +57,10 @@ class Head {
 
     method render {
         { .render for @!metas   } ~ "\n" ~
-            $!title.render            ~ "\n" ~
-            { .render for @!scripts } ~ "\n" ~
-            { .render for @!links   } ~ "\n" ~
-            $!style.render            ~ "\n"
+        $!title.render            ~ "\n" ~
+        { .render for @!scripts } ~ "\n" ~
+        { .render for @!links   } ~ "\n" ~
+        $!style.render            ~ "\n"
     }
 }
 
@@ -83,7 +78,7 @@ class Html {
 
     method render {
         $!head.render ~ "\n" ~
-            $!body.render ~ "\n"
+        $!body.render ~ "\n"
     }
 }
 
@@ -93,7 +88,17 @@ class Page {
 
     method render {
         "<!doctype $!doctype>\n" ~
-            $!html.render ~ "\n"
+        $!html.render ~ "\n"
     }
 }
 
+# example ... refactor to .new iamerejh
+my $page = Page.new:
+    Html => Html.new:
+        Head => Head.new:
+            Meta => [
+                Meta.new: m1,
+                Meta.new: m2
+            ],
+            Title => Title.new:
+