Displaying svg image in slime-repl

slime-repl-svg.lisp

;; eval inside emacs:
(setq slime-enable-evaluate-in-emacs t)

;; in slime-repl:
(ql:quickload :cl-svg)

(let ((scene (svg:make-svg-toplevel 'svg:svg-1.1-toplevel :height 300 :width 300)))
  (svg:draw scene (:rect :x 5 :y 5 :height 30 :width 30))
  (svg:draw scene (:rect :x 40 :y 40 :height 30 :width 30)
            :stroke "blue" :stroke-width 1 :fill "yellow")
  (svg:draw scene (:rect :x 75 :y 75 :height 30 :width 30)
            :fill "purple")
  (let ((s (with-output-to-string (s)
             (svg:stream-out s scene))))
    (swank:eval-in-emacs `(slime-media-insert-image (create-image ,s 'svg t) "test"))))