diff options
| author | Arun Isaac | 2022-03-17 15:58:35 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-18 16:23:42 +0530 |
| commit | bc340c9a1b6e2f2cae79eefab990958a29c0b3d8 (patch) | |
| tree | fb68a0fdc2f652862fbd0ee78c9fcf2da38155a4 | |
| parent | f52ad25548bb142755a9d18a925b7d9d161d0d55 (diff) | |
| download | tissue-bc340c9a1b6e2f2cae79eefab990958a29c0b3d8.tar.gz tissue-bc340c9a1b6e2f2cae79eefab990958a29c0b3d8.tar.lz tissue-bc340c9a1b6e2f2cae79eefab990958a29c0b3d8.zip | |
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?.
| -rwxr-xr-x | bin/tissue | 2 | ||||
| -rw-r--r-- | tissue/issue.scm | 4 | ||||
| -rw-r--r-- | tissue/web.scm | 2 |
3 files changed, 4 insertions, 4 deletions
@@ -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))) |