diff options
| author | Arun Isaac | 2022-06-29 19:53:17 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-29 19:53:17 +0530 |
| commit | 2b35f99ea67c496501f25bedc0bc8c26ccd41efd (patch) | |
| tree | a0655c8232fd9a6145f8bb6f33112a6d31b6972b /team.skb | |
| parent | 9d937b3b34726c24f98a0ed804e2c0c01a991ace (diff) | |
| download | gn-gemtext-2b35f99ea67c496501f25bedc0bc8c26ccd41efd.tar.gz | |
Remove static issue listings.
* closed.skb, index.skb, team.skb, topics.skb: Delete files.
* tissue.scm (#:web-files): Remove static issue listings.
Diffstat (limited to 'team.skb')
| -rw-r--r-- | team.skb | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/team.skb b/team.skb deleted file mode 100644 index c4efb85..0000000 --- a/team.skb +++ /dev/null @@ -1,48 +0,0 @@ -(use-modules (srfi srfi-26) - (ice-9 match) - (tissue issue)) - -(define (issue-awaiting-response? person issue) - "Return #t if ISSUE is awaiting a response from PERSON. Else, return -#f. An issue is considered to be awaiting a response from a person if - -1. That person has participated in the issue and there are newer posts -to that issue. -2. The issue is assigned to that person but they have not -participated." - (let ((authors (map post-author - (issue-posts issue)))) - (or (and (member person authors) - (not (string=? person (last authors)))) - (and (member person (issue-assigned issue)) - (not (member person authors)))))) - -(define (numbered-issue-listing title-format issues) - (subsection :title (format title-format (length issues)) - :number #f - (issue-listing (reverse issues)))) - -(define (person-section person) - (section :title person - :ident (string-map (lambda (c) - (case c - ((#\space) #\-) - (else c))) - (string-downcase person)) - :number #f - (numbered-issue-listing "~a issues await your response" - (reverse (filter (lambda (issue) - (and (issue-open? issue) - (issue-awaiting-response? person issue))) - (issues)))) - (numbered-issue-listing "you have been assigned ~a issues" - (reverse (filter (lambda (issue) - (and (issue-open? issue) - (member person (issue-assigned issue)))) - (issues)))))) - -(document :title "GeneNetwork team agenda view" - (toc) - (map (lambda (author) - (person-section author)) - (authors))) |