From 5fc3f16dab4613f0d1667646931ce2d0b0cfd3b7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 9 Apr 2026 01:19:27 +0100
Subject: Mention file path in title of read tool.

---
 kaakaa/tools/base.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/kaakaa/tools/base.scm b/kaakaa/tools/base.scm
index 38aed17..959640a 100644
--- a/kaakaa/tools/base.scm
+++ b/kaakaa/tools/base.scm
@@ -33,7 +33,8 @@
                  ;; TODO: Handle non-existent files.
                  (display (call-with-input-file path
                             get-string-all)))
-        #:title (const "Read file")
+        #:title (lambda* (#:key path)
+                  (string-append "Read " path))
         #:kind (const "read")))
 
 (define %list-files
-- 
cgit 1.4.1