summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-06-25 16:16:29 +0530
committerArun Isaac2022-06-25 16:16:29 +0530
commita3f79deff76b7736b63940e5c43b3de177142424 (patch)
tree5d568089ee260784e32933020afaf4d99f1a28f3
parentd1bd37eb16b3dfb81e2254f6c9c3cb86a0f68b01 (diff)
downloadtissue-a3f79deff76b7736b63940e5c43b3de177142424.tar.gz
tissue-a3f79deff76b7736b63940e5c43b3de177142424.tar.lz
tissue-a3f79deff76b7736b63940e5c43b3de177142424.zip
bin: Handle blank search queries as a special case.
* bin/tissue (tissue-search): Handle blank search queries as a special case.
-rwxr-xr-xbin/tissue7
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/tissue b/bin/tissue
index f4a6532..b1c90f2 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -223,9 +223,10 @@ Search issues using SEARCH-QUERY.
(query (parse-query
;; If issue state is not mentioned in query,
;; assume is:open.
- (if (string-contains-ci query-string "is:")
- query-string
- (format #f "is:open AND (~a)" query-string))
+ (cond
+ ((string-null? query-string) "is:open")
+ ((string-contains-ci query-string "is:") query-string)
+ (else (format #f "is:open AND (~a)" query-string)))
#:stemmer stemmer
#:prefixes '(("title" . "S")
("creator" . "A")