From 01be39d3e096b983a2686c90018058d50c962a93 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 29 Jun 2022 12:41:25 +0530
Subject: bin: Page search results, and do not limit number of results.

* bin/tissue (tissue-search): Page results, and do not limit number of
results.
---
 bin/tissue | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/bin/tissue b/bin/tissue
index 3ade799..ffe8a34 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -86,7 +86,15 @@ Search issues using SEARCH-QUERY.
     (args
      (call-with-database %xapian-index
        (lambda (db)
-         (search-map print db (string-join args)))))))
+         (call-with-output-pipe
+          (lambda (port)
+            (search-map (cut print <> <> port)
+                        db
+                        (string-join args)
+                        #:maximum-items (database-document-count db)))
+          (or (getenv "PAGER")
+              "less")
+          "--raw"))))))
 
 (define tissue-show
   (match-lambda*
-- 
cgit v1.2.3