diff options
Diffstat (limited to 'kaakaa/tools/base.scm')
| -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 |