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 ++
 1 file changed, 2 insertions(+)

(limited to 'tissue/document.scm')

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)
-- 
cgit v1.2.3