From bc340c9a1b6e2f2cae79eefab990958a29c0b3d8 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 17 Mar 2022 15:58:35 +0530
Subject: issue: Rename issue-open to issue-open?.

issue-open returns a boolean. So, it makes sense to name it like a
predicate.

* bin/tissue (tissue-list): Replace issue-open with issue-open?.
* tissue/issue.scm (tissue): Export issue-open? instead of issue-open.
(<issue>): Rename issue-open to issue-open?.
* tissue/web.scm (issue-listing): Replace issue-open with issue-open?.
---
 bin/tissue       | 2 +-
 tissue/issue.scm | 4 ++--
 tissue/web.scm   | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/tissue b/bin/tissue
index c0514fb..9273482 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -257,7 +257,7 @@ List issues.
                (list-transduce (compose (tenumerate 1)
                                         (tfilter (match-lambda
                                                    ((_ . issue)
-                                                    (and (issue-open issue)
+                                                    (and (issue-open? issue)
                                                          (or (not (assq 'assigned args))
                                                              (member (assq-ref args 'assigned)
                                                                      (issue-assigned issue)))))))
diff --git a/tissue/issue.scm b/tissue/issue.scm
index 6a71874..9505e21 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -39,7 +39,7 @@
             issue-last-updated-relative-date
             issue-assigned
             issue-keywords
-            issue-open
+            issue-open?
             issue-tasks
             issue-completed-tasks
             issue-posts
@@ -60,7 +60,7 @@
   (last-updated-relative-date issue-last-updated-relative-date)
   (assigned issue-assigned)
   (keywords issue-keywords)
-  (open issue-open)
+  (open issue-open?)
   (tasks issue-tasks)
   (completed-tasks issue-completed-tasks)
   (posts issue-posts))
diff --git a/tissue/web.scm b/tissue/web.scm
index c2acbcd..fa804a4 100644
--- a/tissue/web.scm
+++ b/tissue/web.scm
@@ -180,7 +180,7 @@ default, all issues are listed newest first."
                                    #:last-updated-relative-date (issue-last-updated-relative-date issue)
                                    #:assigned (issue-assigned issue)
                                    #:keywords (issue-keywords issue)
-                                   #:open (issue-open issue)
+                                   #:open (issue-open? issue)
                                    #:tasks (issue-tasks issue)
                                    #:completed-tasks (issue-completed-tasks issue)
                                    #:posts (issue-posts issue)))
-- 
cgit v1.2.3