diff options
author | Arun Isaac | 2022-06-25 14:36:27 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-25 14:36:27 +0530 |
commit | 4698be366ee6079ba4198f42b2b8306d9eda2136 (patch) | |
tree | 6726425a97e5caff1f1b3b0632e36486246bc4d7 | |
parent | 6fa422bf6b5307d488c3428ecf24da237b339295 (diff) | |
download | tissue-4698be366ee6079ba4198f42b2b8306d9eda2136.tar.gz tissue-4698be366ee6079ba4198f42b2b8306d9eda2136.tar.lz tissue-4698be366ee6079ba4198f42b2b8306d9eda2136.zip |
bin: Print issue filename.
* bin/tissue (print-issue): Print issue filename.
(tissue-list): Remove newline before printing total count.
-rwxr-xr-x | bin/tissue | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -114,6 +114,8 @@ to run tissue." (number->string number-of-posts) " posts]"))) (newline) + (display (colorize-string (issue-file issue) 'YELLOW)) + (newline) (display (string-append "opened " (colorize-string (human-date-string (issue-created-date issue)) 'CYAN) @@ -133,6 +135,7 @@ to run tissue." "/" (number->string (issue-tasks issue)) " tasks done"))) + (newline) (newline))) (define (print-issue-to-gemtext issue) @@ -191,7 +194,7 @@ List issues. invalid-option invalid-operand '((format . text))))) - (format #t "~%total ~a~%" + (format #t "total ~a~%" (list-transduce (compose (tfilter (lambda (issue) (and (issue-open? issue) (or (not (assq 'assigned args)) |