From dc17375a6c94edce9b1ba0b200fde734cf32e78d Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 22 Oct 2019 23:28:55 +0200 Subject: Only show PNG or SVG files to insert. --- guile-studio-configure.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index 776b6e0..bf8a973 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -221,7 +221,10 @@ d=\"M400 224h-24v-72C376 68.2 307.8 0 224 0S72 68.2 72 \ (defun geiser--guile-picture-language--pict-from-file () (interactive) - (let ((file (read-file-name "Insert image: " nil nil t))) + (let ((file (read-file-name "Insert image: " nil nil t nil + (lambda (name) + (or (string-suffix-p ".svg" name t) + (string-suffix-p ".png" name t)))))) (geiser-repl--send (concat "(pict-from-file \"" file -- cgit v1.2.3