emmsで聞いてる曲をとってくる

gistfile1.cl

(defun my-emms-current-track-path ()
  "get current track file as fullpath"
  (emms-track-description (emms-playlist-current-selected-track)))

(defun my-insert-current-track ()
  (interactive)
  (multiple-value-bind (artist album song)
      (last (split-string (my-emms-current-track-path) "/") 3)
    (insert (format "きいてる %s - %s from %s" song artist album))))

;; M-x my-insert-current-track
;; > きいてる 10 Smackwater Jack.m4a - Carole King from Tapestry