From a340ef35649a564647fa5376c005685842dd1478 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 9 Apr 2026 13:45:46 +0100
Subject: Catch and report files that don't exist.

---
 kaakaa/tools/base.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/kaakaa/tools/base.scm b/kaakaa/tools/base.scm
index 959640a..895d191 100644
--- a/kaakaa/tools/base.scm
+++ b/kaakaa/tools/base.scm
@@ -30,9 +30,12 @@
                                    #:description "File path to read"
                                    #:required? #t)))
         #:proc (lambda* (#:key path)
-                 ;; TODO: Handle non-existent files.
-                 (display (call-with-input-file path
-                            get-string-all)))
+                 (if (file-exists? path)
+                     (display (call-with-input-file path
+                                get-string-all))
+                     (format (current-output-port)
+                             "Error: File ~a does not exist~%"
+                             path)))
         #:title (lambda* (#:key path)
                   (string-append "Read " path))
         #:kind (const "read")))
-- 
cgit 1.4.1