[Emms-patches] Function to Display Current Play Modes

[Ian D]

EMMS Developers,

    After many times of forgetting that I had 'repeat-track' set to 
true, I developed a function that shows which play modes are active.  I 
thought that this might be useful to others, so I've included the 
function in this email.

Ian D

(defun emms-display-modes ()
  "Display the current EMMS play modes."
  (interactive)
  (let ((pl-str (concat "playlist: "
            (if emms-repeat-playlist "y" "n")
            " "))
    (rp-str (concat "repeat: "
            (if emms-repeat-track "y" "n")
            " "))
    (rd-str (concat "random: "
            (if emms-random-playlist "y" "n")
            " ")))
    (message (concat pl-str rp-str rd-str))))