Add head element implementation.

Part of #25.
ClutchEngineering · Aug 2, 2024 · 0b3226b · 0b3226b
1 parent 6da46ea
commit 0b3226b
Show file tree

Hide file tree

Showing 4 changed files with 65 additions and 3 deletions.
diff --git a/Sources/Slipstream/Documentation.docc/Views/W3C/W3CViews.md b/Sources/Slipstream/Documentation.docc/Views/W3C/W3CViews.md
@@ -9,3 +9,7 @@ The complete W3C HTML elements standard can be found [here](https://www.w3.org/T
 ### Root element
 
 - <doc:HTML>
+
+### Document metadata
+
+- <doc:Head>
diff --git a/Sources/Slipstream/Views/W3C/Elements/HTML.swift b/Sources/Slipstream/Views/W3C/Elements/HTML.swift
@@ -1,26 +1,32 @@
 import SwiftSoup
 
-/// The html element represents the root of a document.
+/// A view that represents the root of an HTML document.
 ///
 /// Every web page starts with an HTML view.
 ///
 /// ```swift
 /// struct MySite: View {
 ///   var body: some View {
 ///     HTML {
-///       // Your site's content.
+///       Head {
+///       }
+///       Body {
+///       }
 ///     }
 ///   }
 /// }
 /// ```
 ///
-/// View the full [W3C specification](https://www.w3.org/TR/2012/WD-html-markup-20121025/html.html#html).
+/// - SeeAlso: W3C [`html`](https://www.w3.org/TR/2012/WD-html-markup-20121025/html.html#html) specification.
 ///
 /// ## See Also
 ///
 /// - ``View/language(_:)``
 @available(iOS 17.0, macOS 14.0, *)
 public struct HTML<Content>: View where Content: View {
+  /// Creates an HTML view.
+  ///
+  /// - Parameter content: Should include a single ``Head`` view followed by a single ``Body`` view.
   public init(@ViewBuilder content: @escaping () -> Content) {
     self.content = content
   }

diff --git a/Sources/Slipstream/Views/W3C/Elements/Head.swift b/Sources/Slipstream/Views/W3C/Elements/Head.swift
@@ -0,0 +1,32 @@
+import SwiftSoup
+
+/// A view that defines the document's metadata container.
+///
+/// Every web page starts with an HTML view.
+///
+/// ```swift
+/// struct MySiteMetadata: View {
+///   var body: some View {
+///     Head {
+///       // Add document metadata here.
+///     }
+///   }
+/// }
+/// ```
+///
+/// - SeeAlso: W3C [`head`](https://www.w3.org/TR/2012/WD-html-markup-20121025/head.html#head) specification.
+@available(iOS 17.0, macOS 14.0, *)
+public struct Head<Content>: View where Content: View {
+  public init(@ViewBuilder content: @escaping () -> Content) {
+    self.content = content
+  }
+
+  @_documentation(visibility: private)
+  public func render(_ container: Element, environment: EnvironmentValues) throws {
+    let head = Element(.init("head"), "")
+    try self.content().render(head, environment: environment)
+    try container.addChildren(head)
+  }
+
+  private let content: () -> Content
+}
diff --git a/Tests/SlipstreamTests/Views/W3C/HeadTests.swift b/Tests/SlipstreamTests/Views/W3C/HeadTests.swift
@@ -0,0 +1,20 @@
+import Testing
+
+import Slipstream
+
+struct HeadTests {
+  @Test func emptyBlock() throws {
+    try #expect(renderHTML(Head {}) == "<head></head>")
+  }
+
+  @Test func withText() throws {
+    try #expect(renderHTML(HTML {
+      Head {
+      }
+    }) == """
+<html>
+ <head></head>
+</html>
+""")
+  }
+}