summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorArun Isaac2022-06-29 12:41:25 +0530
committerArun Isaac2022-06-29 12:41:25 +0530
commit01be39d3e096b983a2686c90018058d50c962a93 (patch)
tree13abd0a67ef1eb57e9a57df5f7bc55dacab07c76 /bin
parent608acfe0f019b6b964540298c13131fc9e12dd2a (diff)
downloadtissue-01be39d3e096b983a2686c90018058d50c962a93.tar.gz
tissue-01be39d3e096b983a2686c90018058d50c962a93.tar.lz
tissue-01be39d3e096b983a2686c90018058d50c962a93.zip
bin: Page search results, and do not limit number of results.
* bin/tissue (tissue-search): Page results, and do not limit number of results.
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tissue10
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*