gnbug: Print only open bugs in issue listing.

* gnbug (gnbug-list): Print only open bugs in issue listing.
* README.gmi (gnbug): Update documentation.

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~%"