From a190e007943ba6080b35998012168baaf6199c90 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 19 Sep 2021 11:06:29 +0530
Subject: gnbug: Add <issue> type.

* gnbug: Import (srfi srfi-9).
(<issue>): New type.
(issues): New function.
(main): Use <issue> type.
---
 gnbug | 64 ++++++++++++++++++++++++++++++++++++++--------------------------
 1 file changed, 38 insertions(+), 26 deletions(-)

(limited to 'gnbug')

diff --git a/gnbug b/gnbug
index 31e75fe..d653d6a 100755
--- a/gnbug
+++ b/gnbug
@@ -1,7 +1,8 @@
 #! /usr/bin/env guile
 !#
 
-(import (srfi srfi-26)
+(import (srfi srfi-9)
+        (srfi srfi-26)
         (srfi srfi-37)
         (srfi srfi-171)
         (ice-9 ftw)
@@ -44,6 +45,26 @@ even if it exits non-locally. Return the value returned by PROC."
                     '()
                     directory))
 
+(define-record-type <issue>
+  (issue file assigned)
+  issue?
+  (file issue-file)
+  (assigned issue-assigned))
+
+(define (issues)
+  "Return a list of all issues."
+  ;; Get all gemini files except README.gmi and hidden files. Text
+  ;; editors tend to create hidden files while editing, and we want to
+  ;; avoid them.
+  (map (lambda (file)
+         (issue file
+                (assignees file)))
+       (find-files "."
+                   (lambda (name _)
+                     (and (string-suffix? ".gmi" name)
+                          (not (string=? (basename name) "README.gmi"))
+                          (not (string-prefix? "." (basename name))))))))
+
 (define (assignees file)
   "Return the list of assignees in gemini FILE."
   (call-with-input-file file
@@ -148,31 +169,22 @@ terminal."
                             invalid-operand
                             '())))
        (format #t "~%total ~a~%"
-               (list-transduce (compose (tmap (lambda (file)
-                                                (list (substring file (string-length "./"))
-                                                      (assignees file))))
-                                        (tfilter (match-lambda
-                                                   ((_ assignees)
-                                                    (or (not (assq 'assigned args))
-                                                        (member (assq-ref args 'assigned) assignees)))))
-                                        (tlog (match-lambda*
-                                                ((_ (file ()))
-                                                 (format #t "~a~%" file))
-                                                ((_ (file assignees))
-                                                 (format #t "~a ~a~%"
-                                                         file
-                                                         (magenta (string-append "(assigned: "
-                                                                                 (string-join assignees ", ")
-                                                                                 ")")))))))
+               (list-transduce (compose (tfilter (lambda (issue)
+                                                   (or (not (assq 'assigned args))
+                                                       (member (assq-ref args 'assigned)
+                                                               (issue-assigned issue)))))
+                                        (tlog (lambda (_ issue)
+                                                (let ((file (substring (issue-file issue)
+                                                                       (string-length "./"))))
+                                                  (match (issue-assigned issue)
+                                                    (() (format #t "~a~%" file))
+                                                    (assignees
+                                                     (format #t "~a ~a~%"
+                                                             file
+                                                             (magenta (string-append "(assigned: "
+                                                                                     (string-join assignees ", ")
+                                                                                     ")")))))))))
                                rcount
-                               ;; Get all gemini files except
-                               ;; README.gmi and hidden files. Text
-                               ;; editors tend to create hidden files
-                               ;; while editing, and we want to avoid
-                               ;; them.
-                               (find-files "." (lambda (name _)
-                                                 (and (string-suffix? ".gmi" name)
-                                                      (not (string=? (basename name) "README.gmi"))
-                                                      (not (string-prefix? "." (basename name))))))))))))
+                               (issues)))))))
 
 (apply main (command-line))
-- 
cgit v1.2.3