summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-06-25 14:36:27 +0530
committerArun Isaac2022-06-25 14:36:27 +0530
commit4698be366ee6079ba4198f42b2b8306d9eda2136 (patch)
tree6726425a97e5caff1f1b3b0632e36486246bc4d7
parent6fa422bf6b5307d488c3428ecf24da237b339295 (diff)
downloadtissue-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-xbin/tissue5
1 files changed, 4 insertions, 1 deletions
diff --git a/bin/tissue b/bin/tissue
index e3fabd1..2deb23d 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -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))