From eecc9610a1c087510436ccadccca38365dfdab7f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 19 Jul 2022 17:39:42 +0530
Subject: web: server: Move document type identifier into HTML.

* tissue/commit.scm (document->sxml): Generate document type
identifier.
* tissue/file-document.scm (document->sxml): Generate document type
identifier.
* tissue/issue.scm (document->sxml): Generate document type
identifier.
* tissue/web/server.scm (%css): Style document type identifiers.
---
 tissue/commit.scm        |  4 +++-
 tissue/file-document.scm |  4 +++-
 tissue/issue.scm         |  9 ++++++++-
 tissue/web/server.scm    | 17 ++++-------------
 4 files changed, 18 insertions(+), 16 deletions(-)

diff --git a/tissue/commit.scm b/tissue/commit.scm
index 10dc436..3dfd45f 100644
--- a/tissue/commit.scm
+++ b/tissue/commit.scm
@@ -98,8 +98,10 @@ object representing a list of search results."
              (class "search-result-title"))
           ,(document-title commit))
        (div (@ (class "search-result-metadata"))
+            (span (@ (class ,(string-append "document-type commit-document-type")))
+                  "commit")
             ,(string-append
-              (format #f "authored ~a by ~a"
+              (format #f " authored ~a by ~a"
                       (human-date-string (doc:commit-author-date commit))
                       (doc:commit-author commit))))
        ,@(let ((snippet (document-sxml-snippet commit mset)))
diff --git a/tissue/file-document.scm b/tissue/file-document.scm
index 72d83a2..b910131 100644
--- a/tissue/file-document.scm
+++ b/tissue/file-document.scm
@@ -124,8 +124,10 @@ a list of search results."
              (class "search-result-title"))
           ,(document-title document))
        (div (@ (class "search-result-metadata"))
+            (span (@ (class ,(string-append "document-type file-document-type")))
+                  "document")
             ,(string-append
-              (format #f "created ~a by ~a"
+              (format #f " created ~a by ~a"
                       (human-date-string (file-document-created-date document))
                       (file-document-creator document))
               (if (> (length (file-document-commits document))
diff --git a/tissue/issue.scm b/tissue/issue.scm
index 5868120..469b033 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -215,8 +215,15 @@ object representing a list of search results."
                               ,tag))))
                   (issue-keywords issue)))
        (div (@ (class "search-result-metadata"))
+            (span (@ (class ,(string-append "document-type issue-document-type "
+                                            (if (issue-open? issue)
+                                                "open-issue-document-type"
+                                                "closed-issue-document-type"))))
+                  ,(if (issue-open? issue)
+                       "issue"
+                       "✓ issue"))
             ,(string-append
-              (format #f "opened ~a by ~a"
+              (format #f " opened ~a by ~a"
                       (human-date-string (file-document-created-date issue))
                       (file-document-creator issue))
               (if (> (length (file-document-commits issue))
diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index c183edf..25ece4b 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -79,24 +79,15 @@ form { text-align: center; }
     text-decoration: none;
     font-size: larger;
 }
-.search-result-title, .search-result-title:before { vertical-align: middle; }
-.search-result-commit .search-result-metadata:before,
-.search-result-document .search-result-metadata:before,
-.search-result-issue .search-result-metadata:before {
+.document-type {
     font-size: xx-small;
     font-weight: bold;
-    margin: 0 0.2em;
-    padding: 0 0.4em;
+    padding: 0 0.2em;
     background-color: darkmagenta;
     color: white;
+    text-transform: uppercase;
 }
-.search-result-commit .search-result-metadata:before { content: \"COMMIT\"; }
-.search-result-document .search-result-metadata:before { content: \"DOC\"; }
-.search-result-open-issue .search-result-metadata:before {
-    content: \"ISSUE\";
-    background-color: green;
-}
-.search-result-closed-issue .search-result-metadata:before { content: \"✓ ISSUE\"; }
+.open-issue-document-type { background-color: green; }
 .search-result-metadata {
     color: dimgray;
     font-size: smaller;
-- 
cgit v1.2.3