bin: Page search results, and do not limit number of results.

* bin/tissue (tissue-search): Page results, and do not limit number of
results.

1 files changed, 9 insertions, 1 deletions

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*