From 4698be366ee6079ba4198f42b2b8306d9eda2136 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 25 Jun 2022 14:36:27 +0530
Subject: bin: Print issue filename.

* bin/tissue (print-issue): Print issue filename.
(tissue-list): Remove newline before printing total count.
---
 bin/tissue | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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))
-- 
cgit v1.2.3