Update all my elpa files

elpa/slime-20180413.1720/contrib/slime-media.el

@@ -0,0 +1,46 @@
+(eval-and-compile
+  (require 'slime))
+
+(define-slime-contrib slime-media
+  "Display things other than text in SLIME buffers"
+  (:authors "Christophe Rhodes <csr21@cantab.net>")
+  (:license "GPL")
+  (:slime-dependencies slime-repl)
+  (:swank-dependencies swank-media)
+  (:on-load
+   (add-hook 'slime-event-hooks 'slime-dispatch-media-event)))
+
+(defun slime-media-decode-image (image)
+  (mapcar (lambda (image)
+	    (if (plist-get image :data)
+		(plist-put image :data (base64-decode-string (plist-get image :data)))
+	      image))
+	  image))
+
+(defun slime-dispatch-media-event (event)
+  (slime-dcase event
+    ((:write-image image string)
+     (let ((img (or (find-image (slime-media-decode-image image))
+                    (create-image image))))
+       (slime-media-insert-image img string))
+     t)
+    ((:popup-buffer bufname string mode)
+     (slime-with-popup-buffer (bufname :connection t :package t)
+       (when mode (funcall mode))
+       (princ string)
+       (goto-char (point-min)))
+     t)
+    (t nil)))
+
+(defun slime-media-insert-image (image string &optional bol)
+  (with-current-buffer (slime-output-buffer)
+    (let ((marker (slime-output-target-marker :repl-result)))
+      (goto-char marker)
+      (slime-propertize-region `(face slime-repl-result-face
+                                      rear-nonsticky (face))
+        (insert-image image string))
+      ;; Move the input-start marker after the REPL result.
+      (set-marker marker (point)))
+    (slime-repl-show-maximum-output)))
+
+(provide 'slime-media)