implement Realms page

Author: tayloraswift

Assets/css/Main.css

@@ -16,5 +16,6 @@ protocol _HTTPServerResponseFactory<Format>
 {
     associatedtype Format
 
+    consuming
     func response(as format:Format) throws -> HTTP.ServerResponse
 }

Assets/css/Main.css.map

@@ -0,0 +1,9 @@
+extension Swiftinit
+{
+    @frozen public
+    enum Realm:StaticRoot
+    {
+        @inlinable public static
+        var root:String { "realm" }
+    }
+}

Sources/HTTP/HTTP.ServerResponseFactory.swift

@@ -25,7 +25,7 @@ extension Swiftinit.AdminPage.Recode
 extension Swiftinit.AdminPage.Recode:Swiftinit.RenderablePage
 {
     public
-    var title:String { "Schema - Administrator Tools" }
+    var title:String { "Schema · Administrator Tools" }
 }
 extension Swiftinit.AdminPage.Recode:Swiftinit.StaticPage
 {

Sources/Swiftinit/Tree/Swiftinit.Realm.swift

@@ -29,7 +29,7 @@ extension Swiftinit.AdminPage.Slaves
 extension Swiftinit.AdminPage.Slaves:Swiftinit.RenderablePage
 {
     public
-    var title:String { "Slaves - Administrator Tools" }
+    var title:String { "Slaves · Administrator Tools" }
 }
 extension Swiftinit.AdminPage.Slaves:Swiftinit.StaticPage
 {

Sources/SwiftinitPages/Surfaces/Administration/Swiftinit.AdminPage.Recode.swift

@@ -75,7 +75,7 @@ extension Swiftinit.TagsPage
 }
 extension Swiftinit.TagsPage:Swiftinit.RenderablePage
 {
-    var title:String { "Git Tags - \(self.package.symbol)" }
+    var title:String { "Git Tags · \(self.package.symbol)" }
 }
 extension Swiftinit.TagsPage:Swiftinit.StaticPage
 {
@@ -218,7 +218,10 @@ extension Swiftinit.TagsPage:Swiftinit.ApplicationPage
                 {
                     if  let realm:Unidoc.RealmMetadata = self.realm
                     {
-                        $0[.span] = realm.symbol
+                        $0[.a]
+                        {
+                            $0.href = "\(Swiftinit.Realm[realm.symbol])"
+                        } = realm.symbol
 
                         guard self.package.realmAligning
                         else

Sources/SwiftinitPages/Surfaces/Administration/Swiftinit.AdminPage.Slaves.swift

@@ -7,7 +7,7 @@ import UnidocRecords
 
 extension Unidoc.PackageQuery.Output:HTTP.ServerResponseFactory
 {
-    public
+    public consuming
     func response(as format:Swiftinit.RenderFormat) -> HTTP.ServerResponse
     {
         switch format.accept

Sources/SwiftinitPages/Surfaces/Editions/Swiftinit.TagsPage.swift

@@ -0,0 +1,15 @@
+import Symbols
+import URI
+
+extension Swiftinit.Realm
+{
+    @inlinable public static
+    subscript(realm:String) -> URI
+    {
+        var uri:URI = Self.uri
+
+        uri.path.append(realm)
+
+        return uri
+    }
+}

Sources/SwiftinitPages/Surfaces/Editions/Unidoc.PackageQuery.Output (ext).swift

@@ -0,0 +1,79 @@
+import HTML
+import URI
+
+extension Swiftinit
+{
+    struct RealmPage
+    {
+        let metadata:Unidoc.RealmMetadata
+        let packages:[Unidoc.PackageMetadata]
+        let user:Unidoc.User?
+
+        private
+        init(metadata:Unidoc.RealmMetadata,
+            packages:[Unidoc.PackageMetadata],
+            user:Unidoc.User?)
+        {
+            self.metadata = metadata
+            self.packages = packages
+            self.user = user
+        }
+    }
+}
+extension Swiftinit.RealmPage
+{
+    init(from output:consuming Unidoc.RealmQuery.Output)
+    {
+        let output:Unidoc.RealmQuery.Output = output
+
+        var packages:[Unidoc.PackageMetadata] = output.packages
+        let metadata:Unidoc.RealmMetadata = output.metadata
+        let user:Unidoc.User? = (consume output).user
+
+        packages.sort { $0.symbol < $1.symbol }
+
+        self.init(metadata: metadata, packages: packages, user: user)
+    }
+}
+extension Swiftinit.RealmPage:Swiftinit.RenderablePage
+{
+    var title:String { "Realms · \(self.metadata.symbol)" }
+}
+extension Swiftinit.RealmPage:Swiftinit.StaticPage
+{
+    var location:URI { Swiftinit.Realm[self.metadata.symbol] }
+}
+extension Swiftinit.RealmPage:Swiftinit.ApplicationPage
+{
+    func main(_ main:inout HTML.ContentEncoder, format:Swiftinit.RenderFormat)
+    {
+        main[.section, { $0.class = "introduction" }]
+        {
+            $0[.h1] = "\(self.metadata.symbol) (realm)"
+        }
+
+        main[.section, { $0.class = "details" }]
+        {
+            if  self.packages.isEmpty
+            {
+                $0[.p] = "This realm contains no packages."
+                return
+            }
+
+            $0[.h2] = "Realm members"
+            $0[.ol, { $0.class = "packages" }]
+            {
+                for package:Unidoc.PackageMetadata in self.packages
+                {
+                    $0[.li]
+                    {
+                        $0[.a]
+                        {
+                            $0.href = "\(Swiftinit.Tags[package.symbol])"
+                        } = "\(package.symbol)"
+                    }
+                }
+            }
+        }
+    }
+}