diff options
| author | Arun Isaac | 2022-06-23 16:25:16 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-23 16:25:16 +0530 |
| commit | d9f0e99ce3a2d1c7fd8c7db5e0ee509e5aff900f (patch) | |
| tree | 5f07aba8559ff1a4747980f462af9b8d148cdf9c | |
| parent | b15f7829981497979b9bd86f01a764e6b39b6088 (diff) | |
| download | tissue-d9f0e99ce3a2d1c7fd8c7db5e0ee509e5aff900f.tar.gz tissue-d9f0e99ce3a2d1c7fd8c7db5e0ee509e5aff900f.tar.lz tissue-d9f0e99ce3a2d1c7fd8c7db5e0ee509e5aff900f.zip | |
issue: Remove relative date fields.
* tissue/issue.scm (<issue>)[created-relative-date,
last-updated-relative-date]: New fields.
* tissue/issue.scm (<post>)[post-relative-date]: New field.
* tissue/issue.scm (file-details): Do not collect relative dates.
(issues): Do not initialize created-relative-date and
last-updated-relative-date fields.
| -rw-r--r-- | tissue/issue.scm | 25 |
1 files changed, 6 insertions, 19 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index 72d3d9c..f41576d 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -36,10 +36,8 @@ issue-title issue-creator issue-created-date - issue-created-relative-date issue-last-updater issue-last-updated-date - issue-last-updated-relative-date issue-assigned issue-keywords issue-open? @@ -49,7 +47,6 @@ post post-author post-date - post-relative-date authors issues)) @@ -60,18 +57,15 @@ (make-parameter #f)) (define-record-type <issue> - (issue file title creator created-date created-relative-date - last-updater last-updated-date last-updated-relative-date + (issue file title creator created-date last-updater last-updated-date assigned keywords open tasks completed-tasks posts) issue? (file issue-file) (title issue-title) (creator issue-creator) (created-date issue-created-date) - (created-relative-date issue-created-relative-date) (last-updater issue-last-updater) (last-updated-date issue-last-updated-date) - (last-updated-relative-date issue-last-updated-relative-date) (assigned issue-assigned) (keywords issue-keywords) (open issue-open?) @@ -81,11 +75,10 @@ (posts issue-posts)) (define-record-type <post> - (post author date relative-date) + (post author date) post? (author post-author) - (date post-date) - (relative-date post-relative-date)) + (date post-date)) (define (hashtable-append! hashtable key new-values) "Append NEW-VALUES to the list of values KEY is associated to in @@ -244,22 +237,18 @@ in (tissue tissue). If no alias is found, NAME is returned as such." (let* ((alist (call-with-input-string line read)) (author (resolve-alias (assq-ref alist 'author) (%aliases))) - (date (assq-ref alist 'author-date)) - (relative-date (assq-ref alist 'author-relative-date))) + (date (assq-ref alist 'author-date))) (when (zero? index) (hashtable-set! result 'last-updater author) - (hashtable-set! result 'last-updated-date (unix-time->date date)) - (hashtable-set! result 'last-updated-relative-date relative-date)) + (hashtable-set! result 'last-updated-date (unix-time->date date))) (hashtable-set! result 'creator author) (hashtable-set! result 'created-date (unix-time->date date)) - (hashtable-set! result 'created-relative-date relative-date) - (post author date relative-date)))))) + (post author date)))))) rcons get-line port)))) "git" "log" "--follow" (string-append "--format=format:(" "(author . \"%an\")" "(author-date . %at)" - "(author-relative-date . \"%ar\")" ")") "--" file) result)) @@ -284,10 +273,8 @@ in (tissue tissue). If no alias is found, NAME is returned as such." (if (string-any char-set:letter title) title file)) (hashtable-ref file-details 'creator #f) (hashtable-ref file-details 'created-date #f) - (hashtable-ref file-details 'created-relative-date #f) (hashtable-ref file-details 'last-updater #f) (hashtable-ref file-details 'last-updated-date #f) - (hashtable-ref file-details 'last-updated-relative-date #f) (hashtable-ref file-details 'assigned '()) ;; "closed" is a special keyword to indicate ;; the open/closed status of an issue. |