diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-10-22 23:28:55 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-10-23 10:10:43 +0200 |
| commit | dc17375a6c94edce9b1ba0b200fde734cf32e78d (patch) | |
| tree | c52fc30c11b1008d13769c03193e5552009d23c8 | |
| parent | eb252faef806b146908060f917d3effdb4eba245 (diff) | |
Only show PNG or SVG files to insert.
| -rw-r--r-- | guile-studio-configure.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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 |