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 | |
| 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.
| -rw-r--r-- | tissue/document.scm | 2 | ||||
| -rw-r--r-- | tissue/issue.scm | 5 |
2 files changed, 7 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) 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) |