From 40962e7254abff17104d9e6420110a05a91ad840 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 15 Apr 2026 22:16:37 +0100
Subject: Do not indicate line number range when whole file is being read.

---
 kaagum/tools/base.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/kaagum/tools/base.scm b/kaagum/tools/base.scm
index cbccf8c..dd6107f 100644
--- a/kaagum/tools/base.scm
+++ b/kaagum/tools/base.scm
@@ -127,8 +127,11 @@ Line numbers start from 1. Output is the raw file contents without line numbers.
                           get-line
                           <>)))))
         #:title (lambda* (#:key path (start-line 1) end-line)
-                  (format #f "read ~a:~a-~a"
-                          path start-line (or end-line "")))
+                  (if (and (= start-line 1)
+                           (not end-line))
+                      (format #f "read ~a" path)
+                      (format #f "read ~a:~a-~a"
+                              path start-line (or end-line ""))))
         #:kind "read"))
 
 (define %list
-- 
cgit 1.4.1