implement a way to view tagless docs in the tags page

Author: tayloraswift

Assets/css/Main.css

@@ -0,0 +1,123 @@
+import HTML
+import SemanticVersions
+import SHA1
+import UnidocDB
+import UnidocQueries
+import UnidocRecords
+
+extension Swiftinit.TagsPage
+{
+    struct Row
+    {
+        let volume:Unidoc.VolumeMetadata?
+        let graph:Unidoc.PackageQuery.Graph?
+        let type:RowType
+
+        init(
+            volume:Unidoc.VolumeMetadata?,
+            graph:Unidoc.PackageQuery.Graph?,
+            type:RowType)
+        {
+            self.volume = volume
+            self.graph = graph
+            self.type = type
+        }
+    }
+}
+extension Swiftinit.TagsPage.Row:HyperTextOutputStreamable
+{
+    static
+    func += (tr:inout HTML.ContentEncoder, self:Self)
+    {
+        let version:PatchVersion
+
+        switch self.type
+        {
+        case .tagged(let name, let commit, let docs, release: _):
+            let sha1:String? = commit?.description
+            tr[.td] { $0.class = "refname" } = name
+            tr[.td]
+            {
+                $0.class = "commit"
+                $0.title = sha1
+
+            } = sha1?.prefix(7) ?? ""
+
+            version = docs
+
+        case .tagless:
+            tr[.td]
+            tr[.td]
+
+            version = .v(0, 0, 0)
+        }
+
+        tr[.td, { $0.class = "version" }]
+        {
+            if  let volume:Unidoc.VolumeMetadata = self.volume
+            {
+                $0[.a] { $0.href = "\(Swiftinit.Docs[volume])" } = "\(version)"
+            }
+            else
+            {
+                $0[.span]
+                {
+                    $0.title = "No documentation has been generated for this version."
+                } = "\(version)"
+
+                return
+            }
+
+            switch self.type
+            {
+            case .tagged(_, _, _, release: true):
+                break
+
+            case .tagged(_, _, _, release: false):
+                $0 += " "
+                $0[.span]
+                {
+                    $0.class = "parenthetical"
+                    $0.title = "This documentation is a prerelease version."
+                } = "prerelease"
+
+            case .tagless:
+                $0 += " "
+                $0[.span]
+                {
+                    $0.class = "parenthetical"
+                    $0.title = "This documentation is unversioned."
+                } = "unversioned"
+            }
+        }
+        tr[.td, { $0.class = "graph" }]
+        {
+            if  let graph:Unidoc.PackageQuery.Graph = self.graph
+            {
+                $0[.span]
+                {
+                    $0.class = graph.uplinking ? "abi uplinking" : "abi"
+                    $0.title = graph.uplinking ? """
+                        This symbol graph is currently queued for documentation generation.
+                        """ : nil
+                } = "\(graph.abi)"
+
+                $0 += " "
+
+                $0[.span]
+                {
+                    $0.class = "kb"
+                    $0.title = "\(graph.bytes) bytes"
+
+                } = "(\(graph.bytes >> 10) kb)"
+            }
+            else
+            {
+                $0[.span]
+                {
+                    $0.title = "No symbol graph has been built for this version."
+                }
+            }
+        }
+    }
+}

Assets/css/Main.css.map

@@ -0,0 +1,11 @@
+import SHA1
+import SemanticVersions
+
+extension Swiftinit.TagsPage
+{
+    enum RowType
+    {
+        case tagged(String, SHA1?, PatchVersion, release:Bool)
+        case tagless
+    }
+}