diff options
| author | Michael W <gcr@sneakygcr.net> | 2012-08-12 16:24:36 -0600 |
|---|---|---|
| committer | Michael W <gcr@sneakygcr.net> | 2012-08-12 16:25:03 -0600 |
| commit | 8cc31471a7c4af199fb0ee62ea264fd1844c1410 (patch) | |
| tree | 212b51f83288c5ad7026470fe30dac25bf50c0d1 | |
| parent | 5a799cacc8a87d94c5110f019d28fc7f43c7ad97 (diff) | |
| download | geiser-8cc31471a7c4af199fb0ee62ea264fd1844c1410.tar.gz geiser-8cc31471a7c4af199fb0ee62ea264fd1844c1410.tar.bz2 | |
[WIP] Add capability for images to be viewed in an external image viewer.
| -rw-r--r-- | elisp/geiser-repl.el | 38 |
1 files changed, 35 insertions, 3 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 05bb584..e1321ac 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -118,6 +118,12 @@ If you have a slow system, try to increase this time." :type 'boolean :group 'geiser-repl) +(geiser-custom--defcustom geiser-system-image-viewer "display" + "Which system image viewer program to invoke upon M-x +geiser-view-last-image" + :type 'string + :group 'geiser-repl) + (geiser-custom--defface repl-input 'comint-highlight-input geiser-repl "evaluated input highlighting") @@ -271,6 +277,9 @@ module command as a string") (geiser-repl--host) (geiser-repl--port))))) +(defvar geiser-repl--last-image nil) +(defvar geiser-repl--last-image-filename nil) + (defun geiser-repl--replace-images () "Replace all image patterns with actual images" (with-silent-modifications @@ -288,18 +297,41 @@ module command as a string") (insert-file-contents-literally file nil) (buffer-string))))) (delete-region begin end) - (put-image (create-image imgdata nil t) begin "[image]") + (if (and geiser-repl-inline-images (display-images-p)) + (put-image (create-image imgdata nil t) begin "[image]") + (progn + (goto-char begin) + (insert "[image] ; use M-x geiser-view-last-image to view"))) (delete-file file) ; XXX need to ensure that the file is in the temporary ; folder before deleting it. Racket will only generate files ; in the system temporary folder (/var/tmp), but we don't ; know what the temp. folder is, especially on Windows + (setq geiser-repl--last-image imgdata) ))))) +(defun geiser-view-last-image () + "Open the last displayed image in the system's image viewer" + (interactive) + (when geiser-repl--last-image + (setq geiser-repl--last-image-filename + (make-temp-file "geiser-image" nil ".png")) + (let ((imgdata geiser-repl--last-image)) + (with-temp-file geiser-repl--last-image-filename + (set-buffer-multibyte nil) + (insert imgdata)) + (let* ((proc (start-process "Geiser image view" + nil + geiser-system-image-viewer + geiser-repl--last-image-filename))) + (set-process-sentinel proc + '(lambda (proc evt) + (message "Deleting file %s" geiser-repl--last-image-filename) + (delete-file geiser-repl--last-image-filename))))))) + (defun geiser-repl--output-filter (txt) (geiser-con--connection-update-debugging geiser-repl--connection txt) - (when (and geiser-repl-inline-images (display-images-p)) - (geiser-repl--replace-images)) + (geiser-repl--replace-images) (when (string-match-p (geiser-con--connection-prompt geiser-repl--connection) txt) (geiser-autodoc--disinhibit-autodoc))) |