From 608acfe0f019b6b964540298c13131fc9e12dd2a Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Jun 2022 12:37:09 +0530
Subject: document: Accept port argument when printing to text.

* tissue/document.scm (print): Accept port argument.
* tissue/issue.scm (print): Accept port argument.
---
 tissue/document.scm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'tissue/document.scm')

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