diff options
author | Arun Isaac | 2022-06-29 12:37:09 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-29 12:37:09 +0530 |
commit | 608acfe0f019b6b964540298c13131fc9e12dd2a (patch) | |
tree | 2edb450b472c3a5b787189cd3f1d25a8f728429b /tissue/document.scm | |
parent | ce28a461bbd15e5a89c1625de0543ca94cf30dd7 (diff) | |
download | tissue-608acfe0f019b6b964540298c13131fc9e12dd2a.tar.gz tissue-608acfe0f019b6b964540298c13131fc9e12dd2a.tar.lz tissue-608acfe0f019b6b964540298c13131fc9e12dd2a.zip |
document: Accept port argument when printing to text.
* tissue/document.scm (print): Accept port argument.
* tissue/issue.scm (print): Accept port argument.
Diffstat (limited to 'tissue/document.scm')
-rw-r--r-- | tissue/document.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/tissue/document.scm b/tissue/document.scm index f049a00..5b572ed 100644 --- a/tissue/document.scm +++ b/tissue/document.scm @@ -203,18 +203,20 @@ representing a list of search results." children) "")))) -(define-method (print (document <file-document>) mset) +(define-method (print (document <file-document>) mset port) "Print DOCUMENT in command-line search results. MSET is the xapian MSet object representing a list of search results." - (display (colorize-string (document-title document) 'MAGENTA 'UNDERLINE)) - (newline) - (display (colorize-string (file-document-path document) 'YELLOW)) - (newline) + (display (colorize-string (document-title document) 'MAGENTA 'UNDERLINE) + port) + (newline port) + (display (colorize-string (file-document-path document) 'YELLOW) + port) + (newline port) (let ((snippet (document-snippet document mset))) (unless (string-null? snippet) - (display snippet) - (newline) - (newline)))) + (display snippet port) + (newline port) + (newline port)))) (define (document-sxml-snippet document mset) "Return snippet in SXML form for DOCUMENT. MSET is the xapian MSet |