diff options
| author | Arun Isaac | 2026-04-09 01:19:27 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-04-09 01:19:27 +0100 |
| commit | 5fc3f16dab4613f0d1667646931ce2d0b0cfd3b7 (patch) | |
| tree | 6f50c73994cfb5aa1bee9bffede23d595a7b272d | |
| parent | d7b8110e65116900eb6fd07321cd524c486fa9bf (diff) | |
| download | kaagum-5fc3f16dab4613f0d1667646931ce2d0b0cfd3b7.tar.gz kaagum-5fc3f16dab4613f0d1667646931ce2d0b0cfd3b7.tar.lz kaagum-5fc3f16dab4613f0d1667646931ce2d0b0cfd3b7.zip | |
Mention file path in title of read tool.
| -rw-r--r-- | kaakaa/tools/base.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |