From bb47ae9373fc0959022ed59992485f3e044bbd1b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 23 Sep 2021 13:11:17 +0530
Subject: gnbug: Print only open bugs in issue listing.

* gnbug (gnbug-list): Print only open bugs in issue listing.
* README.gmi (gnbug): Update documentation.
---
 README.gmi | 4 ++--
 gnbug      | 7 ++++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/README.gmi b/README.gmi
index b400a8d..eede2c9 100644
--- a/README.gmi
+++ b/README.gmi
@@ -28,12 +28,12 @@ Other discussions on leaving github
 
 You may peruse the issues in this repository using the provided gnbug command-line interface. gnbug requires guile. Please install guile before running gnbug.
 
-List all issues.
+List all open issues.
 ```
 ./gnbug list
 ```
 
-Only list issues assigned to pjotrp.
+Only list open issues assigned to pjotrp.
 ```
 ./gnbug list --assigned=pjotrp
 ```
diff --git a/gnbug b/gnbug
index c57f717..f884c2a 100755
--- a/gnbug
+++ b/gnbug
@@ -266,9 +266,10 @@ terminal."
             (list-transduce (compose (tenumerate 1)
                                      (tfilter (match-lambda
                                                 ((_ . issue)
-                                                 (or (not (assq 'assigned args))
-                                                     (member (assq-ref args 'assigned)
-                                                             (issue-assigned issue))))))
+                                                 (and (issue-open issue)
+                                                      (or (not (assq 'assigned args))
+                                                          (member (assq-ref args 'assigned)
+                                                                  (issue-assigned issue)))))))
                                      (tlog (match-lambda*
                                              ((_ (index . issue))
                                               (format #t "~a ~a ~a ~a~a~a~%"
-- 
cgit 1.4.1