Elements tests for all non-legacy/deprecated elements

Workaround for direct HTML conformance not compiling for Input:
extension HTMLVoidElement where Self: HTMLElementTypes.HTMLElement & HTML {
    public func callAsFunction(
    ) -> some PointFreeHTML.HTML {
        self
    }
}

KNOWN ISSUE: have to a call void elements with ()()

Author: coenttb

Package.resolved

@@ -8,4 +8,8 @@
 import HTMLElementTypes
 import PointFreeHTML
 
-extension HTMLElementTypes.BR: @retroactive PointFreeHTML.HTML {}
+extension HTMLElementTypes.BR: @retroactive PointFreeHTML.HTML {
+    public var body: PointFreeHTML.HTMLElement<HTMLEmpty> {
+        PointFreeHTML.HTMLElement(tag: Self.tag) { PointFreeHTML.HTMLEmpty() }
+    }
+}

Sources/HTMLElements+PointFreeHTML/<br> Line Break.swift

@@ -13,7 +13,7 @@ extension HTMLElementTypes.Frameset {
         @HTMLBuilder _ content: () -> some PointFreeHTML.HTML
     ) -> some PointFreeHTML.HTML {
         HTMLElement(tag: Self.tag) { content() }
-            .attribute("cols", self.cols)
-            .attribute("rows", self.rows)
+            .cols(self.cols)
+            .rows(self.rows)
     }
 }

Sources/HTMLElements+PointFreeHTML/<frameset> Frameset.swift

@@ -8,4 +8,8 @@
 import HTMLElementTypes
 import PointFreeHTML
 
-extension HTMLElementTypes.ThematicBreak: @retroactive PointFreeHTML.HTML {}
+extension HTMLElementTypes.ThematicBreak: @retroactive PointFreeHTML.HTML {
+    public var body: PointFreeHTML.HTMLElement<HTMLEmpty> {
+        PointFreeHTML.HTMLElement(tag: Self.tag) { PointFreeHTML.HTMLEmpty() }
+    }
+}

Sources/HTMLElements+PointFreeHTML/<hr> Thematic Break (Horizontal Rule).swift

@@ -13,6 +13,6 @@ extension HTMLElementTypes.Image: PointFreeHTML.HTML {
         HTMLElement(tag: Self.tag)
             .src(self.src)
             .alt(self.alt)
-            .attribute("loading", self.loading?.rawValue)
+            .loading(self.loading)
     }
 }

Sources/HTMLElements+PointFreeHTML/<img> Image Embed.swift

@@ -6,6 +6,7 @@
 //
 //
 
+import HTMLAttributes_PointFreeHTML
 import HTMLElementTypes
 import PointFreeHTML
 

Sources/HTMLElements+PointFreeHTML/<input> Input.swift

@@ -7,12 +7,11 @@
 
 import HTMLAttributes_PointFreeHTML
 import HTMLElementTypes
+import PointFreeHTML
 
-extension HTMLElementTypes.Link {
-    public func callAsFunction(
-        @HTMLBuilder _ content: () -> some PointFreeHTML.HTML
-    ) -> some PointFreeHTML.HTML {
-        HTMLElement(tag: Self.tag) { content() }
+extension HTMLElementTypes.Link: PointFreeHTML.HTML {
+    public var body: some PointFreeHTML.HTML {
+        HTMLElement(tag: Self.tag) { HTMLEmpty() }
             .`as`(self.`as`)
             .blocking(self.blocking)
             .crossorigin(self.crossorigin)

Sources/HTMLElements+PointFreeHTML/<link> External Resource Link.swift

@@ -7,12 +7,11 @@
 
 import HTMLAttributes_PointFreeHTML
 import HTMLElementTypes
+import PointFreeHTML
 
-extension HTMLElementTypes.Meta {
-    public func callAsFunction(
-        @HTMLBuilder _ content: () -> some PointFreeHTML.HTML
-    ) -> some PointFreeHTML.HTML {
-        HTMLElement(tag: Self.tag) { content() }
+extension HTMLElementTypes.Meta: PointFreeHTML.HTML {
+    public var body: some PointFreeHTML.HTML {
+        HTMLElement(tag: Self.tag) { HTMLEmpty() }
             .charset(self.charset)
             .content(self.content)
             .httpEquiv(self.httpEquiv)

Sources/HTMLElements+PointFreeHTML/<meta> Metadata.swift

@@ -7,8 +7,17 @@
 
 import HTMLAttributes_PointFreeHTML
 import HTMLElementTypes
+import PointFreeHTML
 
-extension HTMLElementTypes.Option {
+extension HTMLElementTypes.Option: PointFreeHTML.HTML {
+    public var body: some HTML {
+        HTMLElement(tag: Self.tag)
+            .disabled(self.disabled)
+            .label(self.label)
+            .selected(self.selected)
+            .value(self.value)
+    }
+    
     public func callAsFunction(
         @HTMLBuilder _ content: () -> some PointFreeHTML.HTML
     ) -> some PointFreeHTML.HTML {

Sources/HTMLElements+PointFreeHTML/<option> Option.swift

@@ -7,12 +7,11 @@
 
 import HTMLAttributes_PointFreeHTML
 import HTMLElementTypes
+import PointFreeHTML
 
-extension HTMLElementTypes.Param {
-    public func callAsFunction(
-        @HTMLBuilder _ content: () -> some PointFreeHTML.HTML
-    ) -> some PointFreeHTML.HTML {
-        HTMLElement(tag: Self.tag) { content() }
+extension HTMLElementTypes.Param: PointFreeHTML.HTML {
+    public var body: some PointFreeHTML.HTML {
+        HTMLElement(tag: Self.tag) { HTMLEmpty() }
             .name(self.name)
             .value(self.value)
     }