From dc84fecb4799d4de041e0967ef29b19edcd017b6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Jun 2022 13:02:58 +0530
Subject: document: Print identifier identifying type of search result.

* tissue/document.scm (print): Print DOCUMENT identifier.
* tissue/issue.scm (print): Print ISSUE identifier.
---
 tissue/document.scm | 2 ++
 tissue/issue.scm    | 5 +++++
 2 files changed, 7 insertions(+)

diff --git a/tissue/document.scm b/tissue/document.scm
index 5b572ed..e9bdb65 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -209,6 +209,8 @@ MSet object representing a list of search results."
   (display (colorize-string (document-title document) 'MAGENTA 'UNDERLINE)
            port)
   (newline port)
+  (display (colorize-string "DOCUMENT" 'BOLD 'YELLOW) port)
+  (display " " port)
   (display (colorize-string (file-document-path document) 'YELLOW)
            port)
   (newline port)
diff --git a/tissue/issue.scm b/tissue/issue.scm
index 6f03b36..65dd7a0 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -119,6 +119,11 @@
                               " posts]")
                port))
     (newline port)
+    (display (if (issue-open? issue)
+                 (colorize-string "ISSUE" 'BOLD 'YELLOW)
+                 (colorize-string "✓ ISSUE" 'BOLD 'GREEN))
+             port)
+    (display " " port)
     (display (colorize-string (file-document-path issue) 'YELLOW)
              port)
     (newline port)
-- 
cgit v1.2.3