viewer.lisp

(defun view-file-slime (file &key (bufname "*image-viewer*"))
  "Requires setting `slime-enable-evaluate-in-emacs' to T in Emacs"
  (let ((ns (namestring file)))
    (swank::eval-in-emacs `(slime-with-popup-buffer (,bufname :connection t :package t)
                             (insert-image (create-image ,ns))
                             (image-mode)
                             (setf buffer-file-name ,ns)
                             (not-modified)
                             (image-toggle-display-image)
                             ))))