1.3.0 html fragment support

Author: pimbrouwers

CHANGELOG.md

@@ -2,6 +2,14 @@
 
 All notable changes to this project will be documented in this file.
 
+## [1.3.0] 2025-09-09
+
+### Added
+
+- `XmlNode.NodeList` to represent HTML fragments.
+- `Elem.createFragment` to create HTML fragments from a list of `XmlNode`.
+- `Elem.empty` leverages `Elem.createFragment` and `XmlNode.NodeList` to represent an empty HTML fragment.
+
 ## [1.2.0] 2025-06-26
 
 ### Added

src/Falco.Markup/Elem.fs

@@ -9,6 +9,12 @@ module Elem =
     let createSelfClosing (tag : string) (attr : XmlAttribute list) =
         SelfClosingNode (tag, attr)
 
+    let createFragment (nodes : XmlNode list) =
+        NodeList nodes
+
+    let empty =
+        NodeList []
+
     //
     // Main root
 

src/Falco.Markup/Falco.Markup.fsproj

@@ -3,7 +3,7 @@
   <PropertyGroup>
     <AssemblyName>Falco.Markup</AssemblyName>
     <RootNamespace>Falco</RootNamespace>
-    <Version>1.2.0</Version>
+    <Version>1.3.0</Version>
 
     <!-- General info -->
     <Description>An F# DSL for generating markup, including HTML, SVG and XML.</Description>

src/Falco.Markup/TestHelpers.fs

@@ -121,6 +121,7 @@ module TestHelpers =
 
                                     | ParentNode _
                                     | SelfClosingNode _
+                                    | NodeList _
                                     | TextNode _ -> ()
 
                             // <option></option>
@@ -129,6 +130,7 @@ module TestHelpers =
 
                             | ParentNode _
                             | SelfClosingNode _
+                            | NodeList _
                             | TextNode _ -> () ]
 
                     if selected.Length = 0 then
@@ -141,6 +143,9 @@ module TestHelpers =
                     for c in children do
                         buildNameValues c
 
+                | NodeList nodes ->
+                    for node in nodes do
+                        buildNameValues node
                 | SelfClosingNode _
                 | TextNode _ -> ()
 
@@ -158,4 +163,4 @@ module TestHelpers =
     let renderNameValues (tag : XmlNode) =
         let sb = StringBuilderCache.Acquire()
         let w = new StringWriter(sb, CultureInfo.InvariantCulture)
-        XmlNodeSerializer.serializeNameValues(w, tag)
+        XmlNodeSerializer.serializeNameValues(w, tag)

src/Falco.Markup/XmlNode.fs

@@ -16,9 +16,10 @@ type XmlElement =
 
 /// Describes the different XML-style node patterns
 type XmlNode =
-    | ParentNode      of XmlElement * XmlNode list
-    | SelfClosingNode of XmlElement
     | TextNode        of string
+    | SelfClosingNode of XmlElement
+    | NodeList        of XmlNode list
+    | ParentNode      of XmlElement * XmlNode list
 
 [<AbstractClass; Sealed>]
 type StringBuilderCache internal() =
@@ -80,18 +81,25 @@ module internal XmlNodeSerializer =
                     w.Write attrValue
                     w.Write _quote
 
+        let inline writeElement (tag : string, attrs) =
+            w.Write _openChar
+            w.Write tag
+            writeAttributes attrs
+            w.Write _space
+            w.Write _term
+            w.Write _closeChar
+
         let rec buildXml tag =
             match tag with
             | TextNode text ->
                 w.Write text
 
-            | SelfClosingNode (tag, attrs) ->
-                w.Write _openChar
-                w.Write tag
-                writeAttributes attrs
-                w.Write _space
-                w.Write _term
-                w.Write _closeChar
+            | SelfClosingNode el ->
+                writeElement el
+
+            | NodeList nodes ->
+                for node in nodes do
+                    buildXml node
 
             | ParentNode ((tag, attrs), children) ->
                 w.Write _openChar
@@ -131,4 +139,4 @@ module XmlNodeRenderer =
         let sb = StringBuilderCache.Acquire()
         let w = new StringWriter(sb, CultureInfo.InvariantCulture)
         w.Write "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
-        XmlNodeSerializer.serialize(w, tag)
+        XmlNodeSerializer.serialize(w, tag)