Image: Bind S-RET to image-display-external

.emacs.d/lisp/functions.el

@@ -114,6 +114,19 @@ selectively."
     (setq key (pop bindings)
           def (pop bindings))))
 
+(defun ambrevar/image-display-external ()
+  "Display original image at point using external viewer."
+  (interactive)
+  (let ((file (or (get-text-property (point) 'original-file-name)
+                  (let ((image (get-text-property (point) 'display)))
+                    (when image
+                      (plist-get (cdr image) :file))))))
+    (if (not file)
+        (message "No original file name found")
+      (start-process "image-dired-thumb-external" nil
+                     image-dired-external-viewer (expand-file-name file)))))
+(define-key image-map (kbd "S-<return>") 'ambrevar/image-display-external)
+
 (defun ambrevar/insert-and-indent (text)
   "Insert indented TEXT at point."
   (interactive "s Text: ")