summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2021-09-23 13:11:17 +0530
committerArun Isaac2021-09-23 14:16:47 +0530
commitbb47ae9373fc0959022ed59992485f3e044bbd1b (patch)
tree66ff8f2648b948daa448751883b2e96324b9a652
parent1f1a0423ead4a9324bfb25db5a2c72e960799f96 (diff)
downloadgn-gemtext-bb47ae9373fc0959022ed59992485f3e044bbd1b.tar.gz
gnbug: Print only open bugs in issue listing.
* gnbug (gnbug-list): Print only open bugs in issue listing.
* README.gmi (gnbug): Update documentation.
-rw-r--r--README.gmi4
-rwxr-xr-xgnbug7
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~%"