From 6b0d4ee051f650b46af7ec50acf1122d44088fb5 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Wed, 20 Apr 2022 10:12:14 +0100
Subject: modularize more

---
 lib/Katana/HTML/Generate.rakumod | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 lib/Katana/HTML/Generate.rakumod

(limited to 'lib/Katana/HTML/Generate.rakumod')

diff --git a/lib/Katana/HTML/Generate.rakumod b/lib/Katana/HTML/Generate.rakumod
new file mode 100644
index 0000000..fb020b4
--- /dev/null
+++ b/lib/Katana/HTML/Generate.rakumod
@@ -0,0 +1,22 @@
+use v6.d;
+
+unit module Katana::HTML::Generate:api<1>;
+
+multi sub generate-from-tags(Str $doctype, @tags) is export {
+  say $doctype;
+  generate-from-tags @tags;
+}
+
+multi sub generate-from-tags(@tags) is export {
+  my @sgat; # tags spelled in reverse.
+  for @tags -> $tag {
+    say $tag.open;
+    say $tag.text if $tag.has-text;
+    unshift @sgat, $tag;
+  }
+  for @sgat -> $tag {
+    say $tag.close;
+    generate-from-tags $tag.succ if $tag.has-succ;
+  }
+}
+
-- 
cgit v1.2.3