From 5caa3518d32826a0383b7720905f7b494293071d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 14 Jul 2022 15:54:08 +0530
Subject: file-document: Show created and last updated dates in listings.

* tissue/file-document.scm (print, document->sxml): Show created and
last updated dates in listings.
* tissue/web/server.scm (%css): Put DOC identifier before metadata,
not before title.
---
 tissue/file-document.scm | 30 ++++++++++++++++++++++++++++++
 tissue/web/server.scm    |  4 ++--
 2 files changed, 32 insertions(+), 2 deletions(-)

diff --git a/tissue/file-document.scm b/tissue/file-document.scm
index 1265660..72d83a2 100644
--- a/tissue/file-document.scm
+++ b/tissue/file-document.scm
@@ -91,6 +91,25 @@ MSet object representing a list of search results."
   (display (colorize-string (file-document-path document) 'YELLOW)
            port)
   (newline port)
+  (display (string-append
+            "created "
+            (colorize-string (human-date-string
+                              (file-document-created-date document))
+                             'CYAN)
+            " by "
+            (colorize-string (file-document-creator document) 'CYAN))
+           port)
+  (when (> (length (file-document-commits document)) 1)
+    (display (string-append (colorize-string "," 'CYAN)
+                            " last updated "
+                            (colorize-string (human-date-string
+                                              (file-document-last-updated-date document))
+                                             'CYAN)
+                            " by "
+                            (colorize-string (file-document-last-updater document)
+                                             'CYAN))
+             port))
+  (newline port)
   (let ((snippet (document-snippet document mset)))
     (unless (string-null? snippet)
       (display snippet port)
@@ -104,6 +123,17 @@ a list of search results."
        (a (@ (href ,(document-web-uri document))
              (class "search-result-title"))
           ,(document-title document))
+       (div (@ (class "search-result-metadata"))
+            ,(string-append
+              (format #f "created ~a by ~a"
+                      (human-date-string (file-document-created-date document))
+                      (file-document-creator document))
+              (if (> (length (file-document-commits document))
+                     1)
+                  (format #f ", last updated ~a by ~a"
+                          (human-date-string (file-document-last-updated-date document))
+                          (file-document-last-updater document))
+                  "")))
        ,@(let ((snippet (document-sxml-snippet document mset)))
            (if snippet
                (list `(div (@ (class "search-result-snippet"))
diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index a7cacb7..453b54a 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -82,7 +82,7 @@ form { text-align: center; }
 }
 .search-result-title, .search-result-title:before { vertical-align: middle; }
 .search-result-commit .search-result-metadata:before,
-.search-result-document .search-result-title:before,
+.search-result-document .search-result-metadata:before,
 .search-result-issue .search-result-metadata:before {
     font-size: xx-small;
     font-weight: bold;
@@ -92,7 +92,7 @@ form { text-align: center; }
     color: white;
 }
 .search-result-commit .search-result-metadata:before { content: \"COMMIT\"; }
-.search-result-document .search-result-title:before { content: \"DOC\"; }
+.search-result-document .search-result-metadata:before { content: \"DOC\"; }
 .search-result-open-issue .search-result-metadata:before {
     content: \"ISSUE\";
     background-color: green;
-- 
cgit v1.2.3