diff options
author | Arun Isaac | 2022-06-29 13:02:58 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-29 13:39:12 +0530 |
commit | dc84fecb4799d4de041e0967ef29b19edcd017b6 (patch) | |
tree | 35209d61ef6ef48587e722de6f6fc401125914ec /tissue/document.scm | |
parent | 01be39d3e096b983a2686c90018058d50c962a93 (diff) | |
download | tissue-dc84fecb4799d4de041e0967ef29b19edcd017b6.tar.gz tissue-dc84fecb4799d4de041e0967ef29b19edcd017b6.tar.lz tissue-dc84fecb4799d4de041e0967ef29b19edcd017b6.zip |
document: Print identifier identifying type of search result.
* tissue/document.scm (print): Print DOCUMENT identifier.
* tissue/issue.scm (print): Print ISSUE identifier.
Diffstat (limited to 'tissue/document.scm')
-rw-r--r-- | tissue/document.scm | 2 |
1 files changed, 2 insertions, 0 deletions
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) |