1 files changed, 6 insertions, 21 deletions
diff --git a/katana.raku b/katana.raku
index 59202a8..25c5635 100755
--- a/katana.raku
+++ b/katana.raku
@@ -4,7 +4,7 @@ use v6.d;
 use lib 'lib';
 
 use Katana::Exec::Command;
-use Katana::HTML::Generate;
+use Katana::HTML::Page;
 use Katana::HTML::Tag;
 use Katana::Image::Elem;
 use Katana::Walk::Dir;
@@ -26,25 +26,10 @@ multi MAIN(
   Int :$degree = 4,             #= Degree of parallelism
 ) {
 
-  my $doctype = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
-
-  my @html-elems;
-  push @html-elems, Tag.new: name => 'html',
-    params => (
-      xmlns => 'http://www.w3.org/1999/xhtml',
-      lang => 'en',
-      'xml:lang' => 'en'
-    );
-
-  push @html-elems, Tag.new: name => 'head',
-    succ => [Tag.new: name => 'body'];
-
-  push @html-elems, Tag.new: name => 'title',
-    text => $title;
-
-  generate-from-tags $doctype, @html-elems;
-
-
+  my @body-tags = (Tag.new: :name<hr>, :is-mono(True)); 
+  my Katana::HTML::Page \body .= new: :@body-tags, :$title;
+  body.generate;
+  exit 0;
   my @images = dir($in-dir, test => { "$in-dir/$_".IO.f }).map:{
     Elem.new: source => $_, :$dist-dir
   };
@@ -55,7 +40,7 @@ multi MAIN(
   dir-make-mr-proper $dist-dir if $mr-proper;
   dir-ensure $dist-dir;
 
-  @images.hyper(:$degree).map:{
+  @images.race(:$degree).map: {
     .get-camera-model;
     .generate: :$thumb-geometry, :$bg-blur;
   };