ok singular tags

librasteve · Jul 22, 2024 · e868190 · e868190
1 parent 4ede8fe
commit e868190
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/bin/synopsis-rahx b/bin/synopsis-rahx
@@ -11,6 +11,8 @@ say h1 :class<doobie>;
 
 say div :class<jumbotron>, 'xx';
 
+say br;
+
 
 
 

diff --git a/lib/HTMX.rakumod b/lib/HTMX.rakumod
@@ -33,13 +33,24 @@ sub do-regular-tag( $tag, $inner?, *%h ) {
     '<' ~ $tag ~ $attrs ~ '>' ~ ($inner // '') ~ '</' ~ $tag ~ '>'
 }
 
+sub do-singular-tag( $tag, *%h ) {
+
+    my $attrs = +%h ?? (' ' ~ %h.map({.key ~ '="' ~ .value ~ '"'}).join(' ') ) !! '';
+
+    '<' ~ $tag ~ $attrs ~ ' />'
+}
+
 # put in all the tags programmatically
 # viz. https://docs.raku.org/language/modules#Exporting_and_selective_importing
 
 my package EXPORT::DEFAULT {
     for @regular-tags -> $tag {
         OUR::{'&' ~ $tag} := sub ($inner?, *%h) { do-regular-tag( "$tag", $inner, |%h ) }
     }
+
+    for @singular-tags -> $tag {
+        OUR::{'&' ~ $tag} := sub (*%h) { do-singular-tag( "$tag", |%h ) }
+    }
 }
Original file line number	Diff line number	Diff line change
Expand Up		@@ -11,6 +11,8 @@ say h1 :class<doobie>;

		say div :class<jumbotron>, 'xx';

		say br;




Expand Down